VAQREQ09 ;ALB/JFP - PDX, REQUEST PATIENT DATA, HELP MESSAGES;01MAR93
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
EP ; -- Main entry point for the list processor
HLPDOM1 ; -- Displays options for call to domain
W !!,"The network address of the site you are requesting/sending PDX"
W !,"data (ie: BOSTON.DOMAIN.EXT). The following prompt will repeat until"
W !,"a <RET> is entered. This will allow for multiple selection."
W !!,"Options for Domain Prompt:",!
W !," Enter Domain: domain name ; selects domain"
W !," Enter Domain: G.domain group name ; selects domain group"
W !," Enter Domain: -domain name ; de-selects a domain"
W !," Enter Domain: *L ; list selected domains"
W !," Enter Domain: ^ ; terminates without selection"
W !," Enter Domain: return ; done with option"
W !," Enter Domain: ? ; definition/list of input options"
W !," Enter Domain: ?? ; prompt to display domain or"
W !," domain group"
QUIT
;
HLPSEG1 ; -- Displays options for call to segment
W !!,"The name associated with the data being requested or received"
W !,"(ie. RXOP Pharmacy Outpatient). The user may enter the full"
W !,"segment name or the mnemonic. The following prompt will repeat"
W !,"until a <RET> is entered. This allows for multiple selection."
W !!,"Options for Segment Prompt:",!
W !," Enter Segment: segment name ; selects segment"
W !," Enter Segment: G.segment group name ; selects segment group"
W !," Enter Segment: -segment name ; de-selects a segment"
W !," Enter Segment: *L ; list selected segments"
W !," Enter Segment: ^ ; terminates without selection"
W !," Enter Segment: return ; done with option"
W !," Enter Segment: ? ; list of input options"
W !," Enter Segment: ?? ; prompt to display segment or"
W !," segment group"
QUIT
;
HLPDOM2 ; -- Displays the file of domains or domain groups
W !!,"(1) - Domain",!,"(2) - Domain Group",!
R "Select Display Option: ",X:DTIME Q:X=""
I X="^" QUIT
I X=1 D HLPD1 QUIT
I X=2 D HLPD2 QUIT
W " ...invalid entry"
K X
QUIT
;
HLPD1 ; -- Displays domain
S DIC="^DIC(4.2,"
S DIC(0)="C"
S D="B"
D DQ^DICQ
K DIC,D
QUIT
;
HLPD2 ; -- Displays domain groups
S DIC="^VAT(394.83,"
S DIC(0)="CM"
S D="B",DZ="??"
D DQ^DICQ
K DIC,D,DZ
QUIT
;
HLPSEG2 ; -- Displays the file of Segment or Segment groups(public) or private
W !!,"(1) - Segment",!,"(2) - Segment group (public)",!,"(3) - Segment group (private)",!
R "Select Display Option: ",X:DTIME Q:X=""
I X="^" QUIT
I X=1 D HLPG1 QUIT
I X=2 D HLPG2 QUIT
I X=3 D HLPG3 QUIT
W " ...invalid entry"
K X
QUIT
;
HLPG1 ; -- Displays Segments
S DIC="^VAT(394.71,"
S DIC(0)="C"
S D="B"
D DQ^DICQ
K DIC,D
QUIT
;
HLPG2 ; -- Displays public segment groups
S DIC="^VAT(394.84,"
S DIC("S")="I $P(^(0),U,2)=""1"""
S DIC(0)="M"
S D="B",DZ="??"
D DQ^DICQ
K DIC,D,DZ
QUIT
;
HLPG3 ; -- Displays private segment groups
S DIC="^VAT(394.84,"
S DIC("S")="I $P(^(0),U,2)=""0""&($P(^(0),U,3)=DUZ)"
S DIC(0)="M"
S D="B",DZ="??"
D DQ^DICQ
K DIC,D,DZ
QUIT
PAT ; -- Double question mark response for patient prompt
W !!,"Enter patient in the format of (Last,first middle)."
W !,"Please note a comma is required after last name"
QUIT
;
END ; -- End of code
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQREQ09 3668 printed Nov 22, 2024@17:36:51 Page 2
VAQREQ09 ;ALB/JFP - PDX, REQUEST PATIENT DATA, HELP MESSAGES;01MAR93
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
EP ; -- Main entry point for the list processor
HLPDOM1 ; -- Displays options for call to domain
+1 WRITE !!,"The network address of the site you are requesting/sending PDX"
+2 WRITE !,"data (ie: BOSTON.DOMAIN.EXT). The following prompt will repeat until"
+3 WRITE !,"a <RET> is entered. This will allow for multiple selection."
+4 WRITE !!,"Options for Domain Prompt:",!
+5 WRITE !," Enter Domain: domain name ; selects domain"
+6 WRITE !," Enter Domain: G.domain group name ; selects domain group"
+7 WRITE !," Enter Domain: -domain name ; de-selects a domain"
+8 WRITE !," Enter Domain: *L ; list selected domains"
+9 WRITE !," Enter Domain: ^ ; terminates without selection"
+10 WRITE !," Enter Domain: return ; done with option"
+11 WRITE !," Enter Domain: ? ; definition/list of input options"
+12 WRITE !," Enter Domain: ?? ; prompt to display domain or"
+13 WRITE !," domain group"
+14 QUIT
+15 ;
HLPSEG1 ; -- Displays options for call to segment
+1 WRITE !!,"The name associated with the data being requested or received"
+2 WRITE !,"(ie. RXOP Pharmacy Outpatient). The user may enter the full"
+3 WRITE !,"segment name or the mnemonic. The following prompt will repeat"
+4 WRITE !,"until a <RET> is entered. This allows for multiple selection."
+5 WRITE !!,"Options for Segment Prompt:",!
+6 WRITE !," Enter Segment: segment name ; selects segment"
+7 WRITE !," Enter Segment: G.segment group name ; selects segment group"
+8 WRITE !," Enter Segment: -segment name ; de-selects a segment"
+9 WRITE !," Enter Segment: *L ; list selected segments"
+10 WRITE !," Enter Segment: ^ ; terminates without selection"
+11 WRITE !," Enter Segment: return ; done with option"
+12 WRITE !," Enter Segment: ? ; list of input options"
+13 WRITE !," Enter Segment: ?? ; prompt to display segment or"
+14 WRITE !," segment group"
+15 QUIT
+16 ;
HLPDOM2 ; -- Displays the file of domains or domain groups
+1 WRITE !!,"(1) - Domain",!,"(2) - Domain Group",!
+2 READ "Select Display Option: ",X:DTIME
if X=""
QUIT
+3 IF X="^"
QUIT
+4 IF X=1
DO HLPD1
QUIT
+5 IF X=2
DO HLPD2
QUIT
+6 WRITE " ...invalid entry"
+7 KILL X
+8 QUIT
+9 ;
HLPD1 ; -- Displays domain
+1 SET DIC="^DIC(4.2,"
+2 SET DIC(0)="C"
+3 SET D="B"
+4 DO DQ^DICQ
+5 KILL DIC,D
+6 QUIT
+7 ;
HLPD2 ; -- Displays domain groups
+1 SET DIC="^VAT(394.83,"
+2 SET DIC(0)="CM"
+3 SET D="B"
SET DZ="??"
+4 DO DQ^DICQ
+5 KILL DIC,D,DZ
+6 QUIT
+7 ;
HLPSEG2 ; -- Displays the file of Segment or Segment groups(public) or private
+1 WRITE !!,"(1) - Segment",!,"(2) - Segment group (public)",!,"(3) - Segment group (private)",!
+2 READ "Select Display Option: ",X:DTIME
if X=""
QUIT
+3 IF X="^"
QUIT
+4 IF X=1
DO HLPG1
QUIT
+5 IF X=2
DO HLPG2
QUIT
+6 IF X=3
DO HLPG3
QUIT
+7 WRITE " ...invalid entry"
+8 KILL X
+9 QUIT
+10 ;
HLPG1 ; -- Displays Segments
+1 SET DIC="^VAT(394.71,"
+2 SET DIC(0)="C"
+3 SET D="B"
+4 DO DQ^DICQ
+5 KILL DIC,D
+6 QUIT
+7 ;
HLPG2 ; -- Displays public segment groups
+1 SET DIC="^VAT(394.84,"
+2 SET DIC("S")="I $P(^(0),U,2)=""1"""
+3 SET DIC(0)="M"
+4 SET D="B"
SET DZ="??"
+5 DO DQ^DICQ
+6 KILL DIC,D,DZ
+7 QUIT
+8 ;
HLPG3 ; -- Displays private segment groups
+1 SET DIC="^VAT(394.84,"
+2 SET DIC("S")="I $P(^(0),U,2)=""0""&($P(^(0),U,3)=DUZ)"
+3 SET DIC(0)="M"
+4 SET D="B"
SET DZ="??"
+5 DO DQ^DICQ
+6 KILL DIC,D,DZ
+7 QUIT
PAT ; -- Double question mark response for patient prompt
+1 WRITE !!,"Enter patient in the format of (Last,first middle)."
+2 WRITE !,"Please note a comma is required after last name"
+3 QUIT
+4 ;
END ; -- End of code
+1 QUIT
