source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQREQ09.m@ 1446

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1VAQREQ09 ;ALB/JFP - PDX, REQUEST PATIENT DATA, HELP MESSAGES;01MAR93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3EP ; -- Main entry point for the list processor
4HLPDOM1 ; -- Displays options for call to domain
5 W !!,"The network address of the site you are requesting/sending PDX"
6 W !,"data (ie: BOSTON.VA.GOV). The following prompt will repeat until"
7 W !,"a <RET> is entered. This will allow for multiple selection."
8 W !!,"Options for Domain Prompt:",!
9 W !," Enter Domain: domain name ; selects domain"
10 W !," Enter Domain: G.domain group name ; selects domain group"
11 W !," Enter Domain: -domain name ; de-selects a domain"
12 W !," Enter Domain: *L ; list selected domains"
13 W !," Enter Domain: ^ ; terminates without selection"
14 W !," Enter Domain: return ; done with option"
15 W !," Enter Domain: ? ; definition/list of input options"
16 W !," Enter Domain: ?? ; prompt to display domain or"
17 W !," domain group"
18 QUIT
19 ;
20HLPSEG1 ; -- Displays options for call to segment
21 W !!,"The name associated with the data being requested or received"
22 W !,"(ie. RXOP Pharmacy Outpatient). The user may enter the full"
23 W !,"segment name or the mnemonic. The following prompt will repeat"
24 W !,"until a <RET> is entered. This allows for multiple selection."
25 W !!,"Options for Segment Prompt:",!
26 W !," Enter Segment: segment name ; selects segment"
27 W !," Enter Segment: G.segment group name ; selects segment group"
28 W !," Enter Segment: -segment name ; de-selects a segment"
29 W !," Enter Segment: *L ; list selected segments"
30 W !," Enter Segment: ^ ; terminates without selection"
31 W !," Enter Segment: return ; done with option"
32 W !," Enter Segment: ? ; list of input options"
33 W !," Enter Segment: ?? ; prompt to display segment or"
34 W !," segment group"
35 QUIT
36 ;
37HLPDOM2 ; -- Displays the file of domains or domain groups
38 W !!,"(1) - Domain",!,"(2) - Domain Group",!
39 R "Select Display Option: ",X:DTIME Q:X=""
40 I X="^" QUIT
41 I X=1 D HLPD1 QUIT
42 I X=2 D HLPD2 QUIT
43 W " ...invalid entry"
44 K X
45 QUIT
46 ;
47HLPD1 ; -- Displays domain
48 S DIC="^DIC(4.2,"
49 S DIC(0)="C"
50 S D="B"
51 D DQ^DICQ
52 K DIC,D
53 QUIT
54 ;
55HLPD2 ; -- Displays domain groups
56 S DIC="^VAT(394.83,"
57 S DIC(0)="CM"
58 S D="B",DZ="??"
59 D DQ^DICQ
60 K DIC,D,DZ
61 QUIT
62 ;
63HLPSEG2 ; -- Displays the file of Segment or Segment groups(public) or private
64 W !!,"(1) - Segment",!,"(2) - Segment group (public)",!,"(3) - Segment group (private)",!
65 R "Select Display Option: ",X:DTIME Q:X=""
66 I X="^" QUIT
67 I X=1 D HLPG1 QUIT
68 I X=2 D HLPG2 QUIT
69 I X=3 D HLPG3 QUIT
70 W " ...invalid entry"
71 K X
72 QUIT
73 ;
74HLPG1 ; -- Displays Segments
75 S DIC="^VAT(394.71,"
76 S DIC(0)="C"
77 S D="B"
78 D DQ^DICQ
79 K DIC,D
80 QUIT
81 ;
82HLPG2 ; -- Displays public segment groups
83 S DIC="^VAT(394.84,"
84 S DIC("S")="I $P(^(0),U,2)=""1"""
85 S DIC(0)="M"
86 S D="B",DZ="??"
87 D DQ^DICQ
88 K DIC,D,DZ
89 QUIT
90 ;
91HLPG3 ; -- Displays private segment groups
92 S DIC="^VAT(394.84,"
93 S DIC("S")="I $P(^(0),U,2)=""0""&($P(^(0),U,3)=DUZ)"
94 S DIC(0)="M"
95 S D="B",DZ="??"
96 D DQ^DICQ
97 K DIC,D,DZ
98 QUIT
99PAT ; -- Double question mark response for patient prompt
100 W !!,"Enter patient in the format of (Last,first middle)."
101 W !,"Please note a comma is required after last name"
102 QUIT
103 ;
104END ; -- End of code
105 QUIT
Note: See TracBrowser for help on using the repository browser.