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