| [613] | 1 | DVBAB6 ;ALB/KLB - CAPRI PENDING 2507 REQUEST ;08/01/00
|
|---|
| 2 | ;;2.7;AMIE;**35,90,108**;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | STRT(MSG,DVBCSORT,RSTAT,ERDAYS,OLDAYS,ADIVNUM,ELTYP) ;
|
|---|
| 5 | I ADIVNUM'="" S X=$O(^DG(40.8,"C",ADIVNUM,"")) S:X]"" ADIVNUM=X
|
|---|
| 6 | SETUP K ^TMP($J),^TMP("CAPRI")
|
|---|
| 7 | S DVBCDT(0)=$$FMTE^XLFDT(DT,"5DZ"),PG=1,DVBCCNT=0,DONE="NO",MSGCNT=1
|
|---|
| 8 | S DVBCHDR="Sorted by "_$S(DVBCSORT="V":"VETERAN NAME",DVBCSORT="R":"Routing location",DVBCSORT="S":"Status",DVBCSORT="A":"Age of request",1:"Unknown")
|
|---|
| 9 | HEAD S HEAD="Pending 2507 Requests for "_$S($D(^DVB(396.1,1,0)):$P(^(0),U,1),1:"Unknown site"),HEAD2="",PROCDT="Processed on: "_DVBCDT(0),NODATA=0
|
|---|
| 10 | S ^TMP("CAPRI",MSGCNT)=HEAD_"^",MSGCNT=MSGCNT+1
|
|---|
| 11 | S ^TMP("CAPRI",MSGCNT)=HEAD2_"^",MSGCNT=MSGCNT+1
|
|---|
| 12 | S ^TMP("CAPRI",MSGCNT)=PROCDT_"^",MSGCNT=MSGCNT+1
|
|---|
| 13 | S ^TMP("CAPRI",MSGCNT)="^",MSGCNT=MSGCNT+1
|
|---|
| 14 | S $P(^TMP("CAPRI",MSGCNT),"=",75)="=^",MSGCNT=MSGCNT+1
|
|---|
| 15 | S ^TMP("CAPRI",MSGCNT)="^",MSGCNT=MSGCNT+1
|
|---|
| 16 | S ^TMP("CAPRI",MSGCNT)="",MSGCNT=MSGCNT+1
|
|---|
| 17 | DATA S DFN="" F S DFN=$O(^DVB(396.3,"B",DFN)) Q:DFN="" F REQDA=0:0 S REQDA=$O(^DVB(396.3,"B",DFN,REQDA)) Q:REQDA="" D SORT^DVBAB5
|
|---|
| 18 | I DVBCSORT="V" S PNAM="" F S PNAM=$O(^TMP($J,PNAM)) Q:PNAM="" F DFN=0:0 S DFN=$O(^TMP($J,PNAM,DFN)) Q:'DFN F DA(1)=0:0 S DA(1)=$O(^TMP($J,PNAM,DFN,DA(1))) Q:'DA(1) D PRINT I $D(OUT) S DA(1)=999999999,PNAM="ZZZ",DONE="YES" Q
|
|---|
| 19 | I DVBCSORT="R"!(DVBCSORT="A")!(DVBCSORT="S") D
|
|---|
| 20 | . S JX="" F S JX=$O(^TMP($J,JX)) Q:JX="" D
|
|---|
| 21 | .. S PNAM="" F S PNAM=$O(^TMP($J,JX,PNAM)) Q:PNAM="" D
|
|---|
| 22 | ... F DFN=0:0 S DFN=$O(^TMP($J,JX,PNAM,DFN)) Q:'DFN D NXT
|
|---|
| 23 | I DVBCCNT>0 S ^TMP("CAPRI",MSGCNT)="Total pending: "_DVBCCNT,DONE="YES"
|
|---|
| 24 | ;
|
|---|
| 25 | EXIT I NODATA=0 S ^TMP("CAPRI",MSGCNT)="No pending request found for select parameters.",MSG=$NA(^TMP("CAPRI"))
|
|---|
| 26 | I DONE="YES" S MSG=$NA(^TMP("CAPRI"))
|
|---|
| 27 | K ^TMP($J),ADIV,CNUM,NODATA,STATUS,TST,TSTA1,STSAT,KKMSGCNT,PG,PRTNM,RDATE,RDATE1,REQDA,SSN,RONAME,JX
|
|---|
| 28 | K PROCDT,REQSTR,TSTAT,DA,DFN,DONE,DVBCCNT,DVBCDT,DVBCHDR,X,XX,ZS,ZZZ,HEAD,HEAD2,OUT,OWNDOM,EDAYS,PNAM
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | PRINT S ADIV=$S($D(^DVB(396.3,DA(1),1)):$P(^(1),U,4),1:"") Q:ADIV'=ADIVNUM&(DVBCSORT="R") I ADIV]"" S ADIV=$S($D(^DG(40.8,+ADIV,0)):$P(^(0),U,1),1:"Unknown Division")
|
|---|
| 32 | S RDATE1=$P(^DVB(396.3,DA(1),0),U,2),RDATE=$P(^(0),U,5)
|
|---|
| 33 | S SSN=$P($G(^DPT(DFN,0)),U,9) S:SSN="" SSN="Unknown"
|
|---|
| 34 | S CNUM=$P($G(^DPT(DFN,.31)),U,3) S:CNUM="" CNUM="Unknown"
|
|---|
| 35 | D ELAPSED^DVBAB5
|
|---|
| 36 | S STATUS="Unknown",^TMP("CAPRI",MSGCNT)="Division: "_ADIV_"^",MSGCNT=MSGCNT+1,XX=$P(^DVB(396.3,DA(1),0),U,18),STATUS=$S(XX="N":"New",XX="P":"Pending, reported",XX="S":"Pending, scheduled",XX="R":"Released to RO, not printed",1:"")
|
|---|
| 37 | I STATUS="",$D(XX) S STATUS=$S(XX="C":"Completed, printed by RO",XX="X":"Cancelled by RO",XX="T":"Transcribed",XX="NT":"New,Transferred in",XX="CT":"Completed, Transferred out",1:"Unknown")
|
|---|
| 38 | S ^TMP("CAPRI",MSGCNT)="Status: "_STATUS_"^",MSGCNT=MSGCNT+1
|
|---|
| 39 | S ^TMP("CAPRI",MSGCNT)=PNAM_" ^",MSGCNT=MSGCNT+1,^TMP("CAPRI",MSGCNT)="SSN: "_SSN_"^",MSGCNT=MSGCNT+1,^TMP("CAPRI",MSGCNT)="Claim no: "_CNUM_"^",MSGCNT=MSGCNT+1
|
|---|
| 40 | S ^TMP("CAPRI",MSGCNT)="Request Date: "_$$FMTE^XLFDT(RDATE1,"5DZ")_"^",MSGCNT=MSGCNT+1
|
|---|
| 41 | S ^TMP("CAPRI",MSGCNT)="Elapsed days: "_EDAYS_"^",MSGCNT=MSGCNT+1
|
|---|
| 42 | S ^TMP("CAPRI",MSGCNT)="^",MSGCNT=MSGCNT+1
|
|---|
| 43 | S X=$S($D(^DVB(396.3,DA(1),4)):^(4),1:"")
|
|---|
| 44 | S OWNDOM=$P(^DVB(396.3,DA(1),0),U,22) I OWNDOM]"" S ^TMP("CAPRI",MSGCNT)="Transferred in from "_$S($D(^DIC(4.2,+OWNDOM,0)):$P(^(0),U,1),1:"Unknown Site")_"^",MSGCNT=MSGCNT+1
|
|---|
| 45 | S ^TMP("CAPRI",MSGCNT)="^",MSGCNT=MSGCNT+1
|
|---|
| 46 | S ^TMP("CAPRI",MSGCNT)="Exams requested:"_"^",MSGCNT=MSGCNT+1
|
|---|
| 47 | ;
|
|---|
| 48 | ITEMS D TST S NODATA=1,REQSTR=+$P(^DVB(396.3,DA(1),0),U,4)
|
|---|
| 49 | S ZZZ="Requested by: "_$S($D(^VA(200,+REQSTR,0)):$P(^(0),U,1),1:" (Not specified) ")_" at "
|
|---|
| 50 | S RONAME=$P(^DVB(396.3,DA(1),0),U,3),RONAME=$S(RONAME]"":$P(^DIC(4,+RONAME,0),U,1),1:"")
|
|---|
| 51 | S ^TMP("CAPRI",MSGCNT)="^"_ZZZ_$S(RONAME]"":RONAME,1:" (Not specified) ")_"^",MSGCNT=MSGCNT+1
|
|---|
| 52 | S ^TMP("CAPRI",MSGCNT)="^",MSGCNT=MSGCNT+1
|
|---|
| 53 | S $P(^TMP("CAPRI",MSGCNT),"-",75)="-^",MSGCNT=MSGCNT+1
|
|---|
| 54 | S DVBCCNT=DVBCCNT+1,MSGCNT=MSGCNT+1
|
|---|
| 55 | Q
|
|---|
| 56 | NXT F DA(1)=0:0 S DA(1)=$O(^TMP($J,JX,PNAM,DFN,DA(1))) Q:DA(1)="" D PRINT I $D(OUT) S DA(1)="",PNAM="ZZZZ",JX=$S($A(JX)>57:PNAM,1:9999999),DONE="YES"
|
|---|
| 57 | Q
|
|---|
| 58 | TST F DA=0:0 S DA=$O(^DVB(396.4,"C",DA(1),DA)) Q:DA="" K PRINT S TSTAT=$P(^DVB(396.4,DA,0),U,4),TST=$P(^DVB(396.4,DA,0),U,3),PRTNM=$S($D(^DVB(396.6,TST,0)):$P(^(0),U,2),1:"") D TST1
|
|---|
| 59 | Q
|
|---|
| 60 | TST1 S TSTA1=""
|
|---|
| 61 | I $D(^DVB(396.4,DA,"CAN")) S TSTA1=$P(^DVB(396.4,DA,"CAN"),U,3)
|
|---|
| 62 | I $D(^DVB(396.4,DA,"TRAN")) S X=$P(^DVB(396.4,DA,"TRAN"),U,3)
|
|---|
| 63 | S:TSTA1]"" TSTA1=$P(^DVB(396.5,TSTA1,0),U,1)
|
|---|
| 64 | S ^TMP("CAPRI",MSGCNT)=$S(PRTNM]"":PRTNM,1:"Missing exam name")_$S(TSTA1]"":" -cancelled ("_TSTA1_")",TSTAT="T":" - Transferred",TSTAT="":" (Unknown status)",1:"")_"^",MSGCNT=MSGCNT+1
|
|---|
| 65 | I TSTAT="T" S X=$S($D(^DIC(4.2,+X,0)):$P(^(0),U,1),1:"unknown site") S ^TMP("CAPRI",MSGCNT)=" to "_$P(X,".",1),MSGCNT=MSGCNT+1
|
|---|
| 66 | ;S ^TMP("CAPRI",MSGCNT)=";",MSGCNT=MSGCNT+1
|
|---|
| 67 | Q
|
|---|
