Routine: PSDHL7

Information

PSDHL7 ;BIR/LTL-HL7 inteface for Control Subs invoked by post init ; 21 Feb 95

Package	Total	Call Graph
VA FileMan	4	^DIC ^DIE EN^DIQ1 ^DIR
Controlled Substances	2	NONK^PSDHLP ^PSDHLX

Name	Comments	DBIA/ICR reference
CHECK	;check for Narcotic Dispensing Equipment System/HL7 interface
PROTO	;Pick HLLP or X3.28 protocol
HLLP
END

Name	Line Occurrences
Function Call: WRITE	Prompt: " Added." Condition for execution: $P(Y,U,3) Line Location: CHECK+10
Function Call: WRITE	Prompt: "Failed." Line Location: CHECK+10
Function Call: WRITE	Prompt: " Added." Condition for execution: $P(Y,U,3) Line Location: CHECK+23
Function Call: WRITE	Prompt: "Failed." Line Location: CHECK+23
Function Call: WRITE	Prompt: !!,"Let's check for a ",PSD," entry in your",! Line Location: HLLP+0
Function Call: WRITE	Prompt: "HL LOWER LEVEL PROTOCOL PARAMETER file (#869.2)." Line Location: HLLP+1
Function Call: WRITE	Prompt: "Added." Condition for execution: $P(Y,U,3) Line Location: HLLP+3
Function Call: WRITE	Prompt: "Failed." Line Location: HLLP+3
Function Call: WRITE	Prompt: " Updating.",!! Line Location: HLLP+4
Function Call: WRITE	Prompt: !!,"Let's check for a ",PSD(1)," entry in your" Line Location: HLLP+6
Function Call: WRITE	Prompt: !,"HL LOGICAL LINK file (#870)." Line Location: HLLP+7
Function Call: WRITE	Prompt: "Added." Condition for execution: $P(Y,U,3) Line Location: HLLP+9
Function Call: WRITE	Prompt: "Failed." Line Location: HLLP+9
Function Call: WRITE	Prompt: " Updating." Line Location: HLLP+10
Function Call: WRITE	Prompt: ! Line Location: HLLP+13
Routine Call	DIC Line Location: CHECK+10 CHECK+23 HLLP+3 HLLP+9
Routine Call	DIE Line Location: CHECK+16 CHECK+26 HLLP+5 HLLP+11
Routine Call	DIR Line Location: CHECK+6 PROTO+3 HLLP+13

Name	Line Occurrences (* Changed, ! Killed)
^XMB(1 - [#4.3]	CHECK+12

Name	Line Occurrences
END	CHECK+6, CHECK+10, CHECK+23, PROTO+3, HLLP+3
HLLP	HLLP+13

Name	Field # of Occurrence
DA	CHECK+1~, CHECK+12, CHECK+13!, CHECK+14, CHECK+24, HLLP+4, HLLP+10*, HLLP+11!
DIC	CHECK+1~, CHECK+9, CHECK+10!, CHECK+12, CHECK+13!, CHECK+22, CHECK+23!, CHECK+26!, HLLP+2, HLLP+3! , HLLP+8*, HLLP+9!, HLLP+11!
DIC(0	CHECK+9, CHECK+22, HLLP+2, HLLP+8
DIE	CHECK+1~, CHECK+9, CHECK+16!, CHECK+22, CHECK+26!, HLLP+2, HLLP+8, HLLP+11!
DIQ	CHECK+12*, CHECK+13!
DIR	CHECK+1~, CHECK+6!, PROTO+3!, HLLP+13!
DIR("?"	CHECK+5, PROTO+3, HLLP+13*
DIR("A"	CHECK+3, CHECK+4, PROTO+2, HLLP+12
DIR("B"	CHECK+4, PROTO+2, HLLP+13*
DIR(0	CHECK+2, PROTO+1, HLLP+12*
DIRUT	CHECK+1~, PROTO+3
DLAYGO	CHECK+1~, CHECK+9, CHECK+22, CHECK+26!, HLLP+2, HLLP+8, HLLP+11!
DR	CHECK+1~, CHECK+12, CHECK+13!, CHECK+15, CHECK+16!, CHECK+26!, HLLP+5, HLLP+11*!
PSD	CHECK+1~, CHECK+13, CHECK+15, CHECK+26!, PROTO+5, HLLP, HLLP+2, HLLP+13*
PSD(1	CHECK+14, PROTO+5, HLLP+6, HLLP+8, HLLP+13*
PSD(3	HLLP+13*
PSD(4	CHECK+13
>> PSDC	CHECK+11*, CHECK+14
>> PSDL	HLLP+10*
>> PSDN	CHECK+24*
>> PSDX	HLLP+4*, HLLP+11
U	CHECK+10, CHECK+12, CHECK+23, HLLP+3, HLLP+9
X	CHECK+1~, CHECK+9, CHECK+22, HLLP+2, HLLP+8
Y	CHECK+1~, CHECK+6, CHECK+10, CHECK+11, CHECK+23, CHECK+24, PROTO+4, HLLP+3, HLLP+4, HLLP+9 , HLLP+10, HLLP+13