| [613] | 1 | DVBABEBD ;ALB - CAPRI EXAM BY DATE REPORT;09/13/04
|
|---|
| 2 | ;;2.7;AMIE;**57,108**;Apr 10, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | EXAMBYDT(MSG,BEGDT,ENDDT) ; CALLED BY REMOTE PROCEDURE DVBAB EXAMS BY DATE
|
|---|
| 6 | N DVBABCNT,DVBABIEN,DVBABPAT,DVBABT,DVBAB0,DVBABT1,DVBABT2,DVBABT3,DVBABT4,DVBABT5,DVBABT6
|
|---|
| 7 | K ^TMP("DVBABEBD",DUZ) D SETSTAT
|
|---|
| 8 | S ^TMP("DVBABEBD",DUZ,1)="PATIENT NAME^REQUEST DATE^DATE RELEASED^DATE PRINTED BY RO^REQUEST STATUS"_$C(13)
|
|---|
| 9 | S DVBABCNT=2,DVBABIEN=0,MSG=$NA(^TMP("DVBABEBD",DUZ))
|
|---|
| 10 | F S DVBABIEN=$O(^DVB(396.3,DVBABIEN)) Q:+DVBABIEN=0 D
|
|---|
| 11 | . ;REQUEST DATE
|
|---|
| 12 | . S DVBAB0=$G(^DVB(396.3,DVBABIEN,0)) Q:DVBAB0=""
|
|---|
| 13 | . S DVBABPAT=$G(^DPT($P(DVBAB0,"^"),0)) Q:DVBABPAT=""
|
|---|
| 14 | . S DVBABT2=$P($P(DVBAB0,"^",2),".")
|
|---|
| 15 | . I (DVBABT2>(BEGDT-1))&(DVBABT2<(ENDDT+1)) D
|
|---|
| 16 | .. S DVBABT1=$P(DVBABPAT,"^",1) ;PATIENT NAME
|
|---|
| 17 | .. S DVBABT6=$P(DVBABPAT,"^",9) ;SSN
|
|---|
| 18 | .. S DVBABT3=$P(DVBAB0,"^",14) ;DATE RELEASED
|
|---|
| 19 | .. S DVBABT4=$P(DVBAB0,"^",16) ;DATE PRINTED BY RO
|
|---|
| 20 | .. S DVBABT5=$P(DVBAB0,"^",18) ;REQUEST STATUS
|
|---|
| 21 | .. S:$D(DVBABT(DVBABT5)) DVBABT5=DVBABT(DVBABT5)
|
|---|
| 22 | .. S ^TMP("DVBABEBD",DUZ,DVBABCNT)=DVBABT1_U_DVBABT2_U_DVBABT3_U_DVBABT4_U_DVBABT5_U_DVBABT6_$C(13)
|
|---|
| 23 | .. S DVBABCNT=DVBABCNT+1
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | SETSTAT S DVBABT("N")="NEW"
|
|---|
| 27 | S DVBABT("P")="PENDING, REPORTED"
|
|---|
| 28 | S DVBABT("S")="PENDING, SCHEDULED"
|
|---|
| 29 | S DVBABT("R")="RELEASED TO RO, NOT PRINTED"
|
|---|
| 30 | S DVBABT("C")="COMPLETED, PRINTED BY RO"
|
|---|
| 31 | S DVBABT("X")="CANCELLED BY MAS"
|
|---|
| 32 | S DVBABT("RX")="CANCELLED BY RO"
|
|---|
| 33 | S DVBABT("T")="TRANSCRIBED"
|
|---|
| 34 | S DVBABT("NT")="NEW, TRANSFERRED IN"
|
|---|
| 35 | S DVBABT("CT")="COMPLETE, TRANSFERRED OUT"
|
|---|
| 36 | Q
|
|---|
