source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQLED09.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1VAQLED09 ;ALB/JFP - PDX, LOAD/EDIT, HELP MESSAGES;01MAR93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3HLPTRN1 ; -- 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 ;
15HLPT1 ; -- 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 ;
27HLPT2 ; -- 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 ;
38HLPT3 ; -- 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
48IDENT ; -- 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 ;
58FLT1() ; -- 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 ;
73FLT2() ; -- 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 ;
78FLT3() ; -- 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 ;
83END ; -- End of code
84 QUIT
Note: See TracBrowser for help on using the repository browser.