Routine: YSCLHLFN

Information

YSCLHLFN ;DSS-PO/HEC-hrubovcak - Testing support - CLOZAPINE DATA TRANSMISSION ;19 May 2020 14:13:48

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