Routine: YSCLHLFN

Package	Total	Call Graph
Mental Health	2	(GET,GETCLZOR)^YSCLHLGT XMI1PT^YSCLHLMA
Kernel	1	($$FMTE,$$NOW)^XLFDT
VA FileMan	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
TSEND	; SEND HL7 message - Entry point for development /testing
TGET	; Display YSCLARR values - Entry point for development /testing
TSAVE	; SAVE message data - Entry point for development / testing
SENDHL7(DFN,PSGORD,PSORXIEN,HLRSLT)	; Build and send registration and clinical/dispense messages ; input: DFN patient file IEN ; PSGORD parmacy patient file UnitDose ien e.g. 167 or 167U ; PSORXIEN prescription ien of prescription file
ASKUSER(DFN,PSGORD,PSORXIEN)	; ask user for input, all vars. passed by ref.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Send the HL7 message(s) to Healthshare for selected patient.",! Line Location: TSEND+2
Function Call: WRITE	Prompt: !,"No Patient defined" Line Location: TSEND+4
Function Call: WRITE	Prompt: !!,"Current Time: ",$$FMTE^XLFDT(X,"2S")," (",X,")" Line Location: TSEND+6
Function Call: WRITE	Prompt: !,"DFN = ",DFN," PSOGORD = ",PSGORD," PSORXIEN = ",PSORXIEN,! Line Location: TSEND+7
Function Call: WRITE	Prompt: !,"Nothing sent." Line Location: TSEND+9
Function Call: WRITE	Prompt: !,"HLO message info: "_HLRSLT(J) Line Location: TSEND+10
Function Call: WRITE	Prompt: !,"Get the YSCLARR values for a given patient. It is safe to run anytime." Line Location: TGET+2
Function Call: WRITE	Prompt: !,"No HL7 message will be sent.",! Line Location: TGET+3
Function Call: WRITE	Prompt: !,"No Patient defined" Line Location: TGET+5
Function Call: WRITE	Prompt: !,V_$C(61,34)_@V_$C(34) Line Location: TGET+8
Function Call: WRITE	Prompt: !,"Save the YSCLARR in "_$NA(^XTMP("YSCLHL7"))_" global for later HL7 Message transfer to HS",! Line Location: TSAVE+2
Function Call: WRITE	Prompt: !,"No Patient defined" Line Location: TSAVE+4
Function Call: WRITE	Prompt: !,"Aborted...." Line Location: ASKUSER+8
Function Call: WRITE	Prompt: !,"Aborted...." Line Location: ASKUSER+13
Function Call: WRITE	Prompt: !,"Aborted...." Line Location: ASKUSER+21
Routine Call	DIC Line Location: ASKUSER+7 ASKUSER+12 ASKUSER+20

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("YSCLHL7"	TSAVE+2

Name	Line Occurrences
ASKUSER	TSEND+3, TGET+4, TSAVE+3
SENDHL7	TSEND+8

Name	Field # of Occurrence
D	ASKUSER+3~
DFN	TSEND+1~, TSEND+3, TSEND+4, TSEND+7, TSEND+8, TGET+1~, TGET+4, TGET+5, TGET+7, TSAVE+1~ , TSAVE+3, TSAVE+4, SENDHL7~, SENDHL7+9, SENDHL7+10, SENDHL7+15, ASKUSER~, ASKUSER+5, ASKUSER+8, ASKUSER+9* , ASKUSER+10, ASKUSER+12, ASKUSER+13, ASKUSER+18, ASKUSER+21
DIC	ASKUSER+3~, ASKUSER+5, ASKUSER+12!, ASKUSER+18!*
DIC("W"	ASKUSER+6, ASKUSER+19
DIC(0	ASKUSER+5, ASKUSER+12, ASKUSER+18*
DUOUT	ASKUSER+3~, ASKUSER+8, ASKUSER+13, ASKUSER+21
HLRSLT	TSEND+1~, TSEND+8, SENDHL7~, SENDHL7+4!, SENDHL7+11, SENDHL7+16
HLRSLT(	TSEND+10
HLRSLT(0	TSEND+9
I	SENDHL7+6~
J	TSEND+1~, TSEND+10*
NODE	SENDHL7+6~
PSGORD	TSEND+1~, TSEND+3, TSEND+7, TSEND+8, TGET+1~, TGET+4, TGET+7, TSAVE+1~, TSAVE+3, SENDHL7~ , SENDHL7+7, SENDHL7+10, ASKUSER~, ASKUSER+5, ASKUSER+14, ASKUSER+15, ASKUSER+17
PSGORD("UNDSIEN"	SENDHL7+8, ASKUSER+15*
PSORXIEN	TSEND+1~, TSEND+3, TSEND+7, TSEND+8, TGET+1~, TGET+4, TGET+7, TSAVE+1~, TSAVE+3, SENDHL7~ , SENDHL7+14, SENDHL7+15, ASKUSER~, ASKUSER+5, ASKUSER+22
U	ASKUSER+9, ASKUSER+14
V	TGET+1~, TGET+8*
X	TSEND+6*, ASKUSER+3~
Y	ASKUSER+3~, ASKUSER+14, ASKUSER+15
Y(0	ASKUSER+9, ASKUSER+22
YSCLARR	TGET+1!, TGET+7, SENDHL7+5!, SENDHL7+9, SENDHL7+10, SENDHL7+11, SENDHL7+15, SENDHL7+16
YSCLP	ASKUSER+3~
YSCLR	ASKUSER+3~
YSUDSIEN	SENDHL7+6~, SENDHL7+8*, SENDHL7+9