| 1 | VAQLED09 ;ALB/JFP - PDX, LOAD/EDIT, HELP MESSAGES;01MAR93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | HLPTRN1 ; -- Displays the patients by result for selection
|
|---|
| 4 | N X
|
|---|
| 5 | D STATPTR^VAQUTL95 ; -- set PDX status pointers
|
|---|
| 6 | W !!,"(1) - All PDX transaction patients",!,"(2) - All PDX transaction patients (results)",!,"(3) - All PDX transaction patients (unsolicited)",!
|
|---|
| 7 | R "Select Display Option: ",X:DTIME Q:X=""
|
|---|
| 8 | I X="^" QUIT
|
|---|
| 9 | I X=1 D HLPT1 QUIT
|
|---|
| 10 | I X=2 D HLPT2 QUIT
|
|---|
| 11 | I X=3 D HLPT3 QUIT
|
|---|
| 12 | W " ...invalid entry"
|
|---|
| 13 | QUIT
|
|---|
| 14 | ;
|
|---|
| 15 | HLPT1 ; -- All PDX transaction patients
|
|---|
| 16 | N DIC,D,DZ,VAQXRF3,TRNFLAG,SCR
|
|---|
| 17 | S DIC="^VAT(394.61,"
|
|---|
| 18 | S DIC(0)="C"
|
|---|
| 19 | S DIC("W")="D IDENT^VAQLED09"
|
|---|
| 20 | S DIC("S")="I $$FLT1^VAQLED09()"
|
|---|
| 21 | S D="B",DZ="??"
|
|---|
| 22 | D DQ^DICQ
|
|---|
| 23 | K NM,SSN,BS5,^TMP("BS5",$J)
|
|---|
| 24 | S %T="F" ; -- dic kills this variable required for dir (free text)
|
|---|
| 25 | QUIT
|
|---|
| 26 | ;
|
|---|
| 27 | HLPT2 ; -- All PDX transactions (vaq-rslt)
|
|---|
| 28 | N DIC,D,DZ,VAQXRF3,TRNFLAG,SCR
|
|---|
| 29 | S DIC="^VAT(394.61,"
|
|---|
| 30 | S DIC("W")="D IDENT^VAQLED09"
|
|---|
| 31 | S DIC("S")="I $$FLT2^VAQLED09()"
|
|---|
| 32 | S DIC(0)="CM"
|
|---|
| 33 | S D="B",DZ="??"
|
|---|
| 34 | D DQ^DICQ
|
|---|
| 35 | S %T="F" ; -- dic kills this variable required for dir (free text)
|
|---|
| 36 | QUIT
|
|---|
| 37 | ;
|
|---|
| 38 | HLPT3 ; -- All PDX transactions (vaq-unsol)
|
|---|
| 39 | N DIC,D,DZ,VAQXRF3,TRNFLAG,SCR
|
|---|
| 40 | S DIC="^VAT(394.61,"
|
|---|
| 41 | S DIC("W")="D IDENT^VAQLED09"
|
|---|
| 42 | S DIC("S")="I $$FLT3^VAQLED09()"
|
|---|
| 43 | S DIC(0)="CM"
|
|---|
| 44 | S D="B",DZ="??"
|
|---|
| 45 | D DQ^DICQ
|
|---|
| 46 | S %T="F" ; -- dic kills this variable required for dir (free text)
|
|---|
| 47 | QUIT
|
|---|
| 48 | IDENT ; -- Resets identifier
|
|---|
| 49 | S VAQXRF0=$G(^VAT(394.61,Y,"QRY"))
|
|---|
| 50 | S VAQXRF1=$P(VAQXRF0,U,1) ; -- name
|
|---|
| 51 | S VAQXRF2=$P(VAQXRF0,U,4) ; -- pid
|
|---|
| 52 | S:VAQXRF1="" VAQXRF1="NOT ON FILE"
|
|---|
| 53 | S:VAQXRF2="" VAQXRF2="NOT ON FILE"
|
|---|
| 54 | W ?15,"Name: ",VAQXRF1,?50,"Pid: ",VAQXRF2
|
|---|
| 55 | K VAQXRF0,VAQXRF1,VAQXRF2
|
|---|
| 56 | QUIT
|
|---|
| 57 | ;
|
|---|
| 58 | FLT1() ; -- Filters out multiple names
|
|---|
| 59 | ; -- filters out transactions flagged as purged or exceeded life days
|
|---|
| 60 | I $$EXPTRN^VAQUTL97(Y) Q 0
|
|---|
| 61 | N NODE
|
|---|
| 62 | S NODE=$G(^VAT(394.61,Y,"QRY"))
|
|---|
| 63 | S NM=$P(NODE,U,1) ; -- name
|
|---|
| 64 | Q:NM="" 0
|
|---|
| 65 | S SSN=$P(NODE,U,4)
|
|---|
| 66 | Q:SSN="" 0
|
|---|
| 67 | S BS5=$E(NM,1,1)_$E(SSN,6,10)
|
|---|
| 68 | ;
|
|---|
| 69 | I $D(^TMP("BS5",$J,BS5)) Q 0
|
|---|
| 70 | S ^TMP("BS5",$J,BS5)=1
|
|---|
| 71 | QUIT 1
|
|---|
| 72 | ;
|
|---|
| 73 | FLT2() ; -- Filter out all but results
|
|---|
| 74 | I $$EXPTRN^VAQUTL97(Y) Q 0
|
|---|
| 75 | I $P($G(^VAT(394.61,Y,0)),U,2)=VAQRSLT Q 1
|
|---|
| 76 | QUIT 0
|
|---|
| 77 | ;
|
|---|
| 78 | FLT3() ; -- Filter out all but unsolicited
|
|---|
| 79 | I $$EXPTRN^VAQUTL97(Y) Q 0
|
|---|
| 80 | I $P($G(^VAT(394.61,Y,0)),U,2)=VAQUNSOL Q 1
|
|---|
| 81 | QUIT 0
|
|---|
| 82 | ;
|
|---|
| 83 | END ; -- End of code
|
|---|
| 84 | QUIT
|
|---|
