| 1 | VAQDIS10 ;ALB/JFP - DISPLAY,REQUEST PDX BY PATIENT;01APR93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | INIT ; -- 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
|
|---|
| 9 | MAIN ; -- 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)
|
|---|
| 29 | MLOOP G MAIN ; -- loop back until no more patient added
|
|---|
| 30 | ;
|
|---|
| 31 | PTNFND ; -- Requested PDX not found
|
|---|
| 32 | W !,"Patient not found in PDX transaction file..."
|
|---|
| 33 | S POP=1
|
|---|
| 34 | QUIT
|
|---|
| 35 | ;
|
|---|
| 36 | EXIT ; -- Cleanup and exit routine
|
|---|
| 37 | K BADSSN,FLE,FLD ; -- table entries
|
|---|
| 38 | K DIROUT,DIRUT,DTOUT,DUOUT
|
|---|
| 39 | K VAQOPT
|
|---|
| 40 | QUIT
|
|---|
| 41 | ;
|
|---|
| 42 | END ; -- End of code
|
|---|
| 43 | QUIT
|
|---|
