DVBAB71 ;ALB/KLB - CAPRI REQUEST STATUS INQUIRY ;09/11/00
 ;;2.7;AMIE;**35**;Apr 10, 1995
 ;
STRT(MSG,DFN,RECIEN) 
 
U="^"
 
^TMP("CAPRI")
 
'$D(DFNMSG(1)="You must select a patient."
 
Q:'$D(DFN)
 
Q:DFN=""
 
PTNAME=$E($P(^DPT(DFN,0),U),1,25)
 
;S RECIEN=0,RECIEN=$O(^DVB(396,"B",DFN,RECIEN))
 
DVB0=$G(^DVB(396,RECIEN,0)),DVB1=$G(^DVB(396,RECIEN,1)),DVB2=$G(^DVB(396,RECIEN,2)),DVB6=$G(^DVB(396,RECIEN,6))
 
MCNT=1
 
;S ^TMP("CAPRI",MCNT)="Patient Name: "_PTNAME_"^",MCNT=MCNT+1
 
I $P(DVB2,U,10)="L" DOCTYP="ACTIVITY DATE: "
 
I $P(DVB2,U,10)="A" DOCTYP="Admission Date: "
 
Y=$P(DVB0,U,4) ^DD("DD")
 
^TMP("CAPRI",MCNT)=" Patient Name: "_PTNAME_"             "_DOCTYP_Y_"^",MCNT=MCNT+1
 
;S ^TMP("CAPRI",MCNT)="SSN: "_$P(^DPT(DFN,0),U,9)_"^",MCNT=MCNT+1
 
^TMP("CAPRI",MCNT)="          SSN: "_$P(^DPT(DFN,0),U,9)_"                  Claim Number: "_$P(^DPT(DFN,.31),U,3)_"^",MCNT=MCNT+1
 
DIV=$P(DVB2,U,9) DIV'="" DIV=$P(^DG(40.8,DIV,0),U)
 
^TMP("CAPRI",MCNT)="Receiving Div: "_DIV_"^",MCNT=MCNT+1
 
^TMP("CAPRI",MCNT)="  Requisition          Status      Status Date    Operator    Current Division"_"^",MCNT=MCNT+1
 
Y=$P(DVB0,U,10) ^DD("DD"DIV=$P(DVB6,U,9),STAT=$P(DVB0,U,9) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
DIV'="" DIV=$P(^DG(40.8,DIV,0),U)
 
^TMP("CAPRI",MCNT)="---------------------------------------------------------------------------"_"^",MCNT=MCNT+1
 
OP=$P(DVB1,U,13) OP="" OP="            "
DATA ^TMP("CAPRI",MCNT)="  Notice/Discharge:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB0,U,12) ^DD("DD"DIV=$P(DVB6,U,11)
 
STAT=$P(DVB0,U,11) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB1,U,14) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="  Hospital Summary:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB0,U,14) ^DD("DD"DIV=$P(DVB6,U,13)
 
STAT=$P(DVB0,U,13) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB1,U,15) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="21-day Certificate:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U^DD("DD"DIV=$P(DVB6,U,15)
 
STAT=$P(DVB0,U,15) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STATUS="              "
 
OP=$P(DVB1,U,16) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="       Other/Exam:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U,3) ^DD("DD"DIV=$P(DVB6,U,17)
 
STAT=$P(DVB0,U,17) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB1,U,17) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="   Special Report:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U,4) ^DD("DD"DIV=$P(DVB6,U,19)
 
STAT=$P(DVB0,U,19) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB1,U,18) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="Competency Report:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U,5) ^DD("DD"DIV=$P(DVB6,U,21)
 
STAT=$P(DVB0,U,21) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB2,UOP="" OP="            "
 
^TMP("CAPRI",MCNT)="     Form 21-2680:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U,6) ^DD("DD"DIV=$P(DVB6,U,23)
 
STAT=$P(DVB0,U,23) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB2,U,2) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="Asset Information:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U,8) ^DD("DD"DIV=$P(DVB6,U,7)
 
STAT=$P(DVB1,U,7) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB2,U,3) OP="" OP="            "
 
^TMP("CAPRI",MCNT)=" Admission Report:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U,9) ^DD("DD"DIV=$P(DVB6,U,26)
 
STAT=$P(DVB0,U,26) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB2,U,4) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="OPT Treatment Rpt:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
Y=$P(DVB1,U,10) ^DD("DD"DIV=$P(DVB6,U,28)
 
STAT=$P(DVB0,U,28) STAT="P" STAT="PENDING        " STAT="C" STAT="COMPLETED     " STAT="" STAT="              "
 
OP=$P(DVB2,U,5) OP="" OP="            "
 
^TMP("CAPRI",MCNT)="    Beg Date/Care:   "_STAT_Y_"    "_OP_DIV_"^",MCNT=MCNT+1
 
^TMP("CAPRI",MCNT)=""_"^",MCNT=MCNT+1
 
REM
 
^TMP("CAPRI",MCNT)=""_"^"
 
Y=$P(DVB1,U,12) ^DD("DD")
 
^TMP("CAPRI",MCNT)="Requesting location: "_$E($P(DVB2,U,7),1,20)_"               Date of Request: "_Y,MCNT=MCNT+1
 
^TMP("CAPRI",MCNT)="       Requested by: "_$E($P(DVB2,U,8),1,25)_"          "_Y
 
MSG=$NA(^TMP("CAPRI"))
 
;F  S XX=$O(^TMP("CAPRI",XX)) Q:'XX  S MSG(XX)=$G(^TMP("CAPRI",XX))
 
Y,PTNAME,DFN,DVB0,DVB1,DVB2,DVB6
 
Q
REM X=0,FLG=0
 
F  S X=$O(^DVB(396,RECIEN,5,X)) Q:'X  D
 
.FLG=0 D
 
..^TMP("CAPRI",MCNT)="REMARKS: "_$G(^DVB(396,RECIEN,5,X,0))_"^",MCNT=MCNT+1
 ..
FLG=1
 .
FLG=1&(X>1) D
 
..^TMP("CAPRI",MCNT)=$G(^DVB(396,RECIEN,5,X,0))_"^",MCNT=MCNT+1
 
^TMP("CAPRI",MCNT)=""_"^"
 
Q