source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQDIS10.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1VAQDIS10 ;ALB/JFP - DISPLAY,REQUEST PDX BY PATIENT;01APR93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3INIT ; -- Intialization
4 D ^VAQUTL98
5 ;
6 N POP,DFN,VAQIN,VAQDFN,X,Y
7 ;
8 S:'$D(VAQOPT) VAQOPT="" ; -- should be set from menu option
9MAIN ; -- Main entry point
10 K BADSSN,FLE,FLD ; -- table entries
11 K DIROUT,DIRUT,DTOUT,DUOUT
12 S POP=0
13 ;
14 ; -- Call to Dir to request patient from patient file (2)
15 S DIR("A")="Identify PDX: "
16 S DIR(0)="FAO^1:30^K:(X'=$C(32)&($L(X)<3)) X"
17 S DIR("?")="Enter Patient's Name (Last,First Middle) or SSN or Transaction #"
18 S DIR("??")="^D HLPTRN1^VAQLED09"
19 W !! D ^DIR K DIR G:$D(DIRUT) EXIT
20 S (X,VAQIN)=Y
21 ;
22 ; -- Function call to get patient from transaction file (DIC)
23 D:$D(XRTL) T0^%ZOSV ; -- Capacity start
24 S VAQDFN=$$GETTRN^VAQUTL96(X)
25 S:$D(XRT0) XRTN=$T(+0) D:$D(XRT0) T1^%ZOSV ; -- Capacity stop
26 D:VAQDFN=-1 PTNFND ; -- patient not in transaction file
27 G:POP MLOOP
28 D EP^VAQDIS11 ; -- Call to list processor (selection screen)
29MLOOP G MAIN ; -- loop back until no more patient added
30 ;
31PTNFND ; -- Requested PDX not found
32 W !,"Patient not found in PDX transaction file..."
33 S POP=1
34 QUIT
35 ;
36EXIT ; -- Cleanup and exit routine
37 K BADSSN,FLE,FLD ; -- table entries
38 K DIROUT,DIRUT,DTOUT,DUOUT
39 K VAQOPT
40 QUIT
41 ;
42END ; -- End of code
43 QUIT
Note: See TracBrowser for help on using the repository browser.