source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBABEBD.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1DVBABEBD ;ALB - CAPRI EXAM BY DATE REPORT;09/13/04
2 ;;2.7;AMIE;**57,108**;Apr 10, 1995
3 Q
4 ;
5EXAMBYDT(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 ;
26SETSTAT 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
Note: See TracBrowser for help on using the repository browser.