Routine: YSCLHLOP

Information

YSCLHLOP ; HEC/hrubovcak clozapine HL7 option support ;19 May 2020 14:13:48

Name	Comments	DBIA/ICR reference
RETRANS	; entry point from TaskMan to retransmit HL7 messages
DLYHL7	; Clozapine HL7 Message Transmission [YSCL HL7 CLOZ TRANSMISSION] TaskMan entry point
GETCLZRX(RXRSLT,DFN)	; RXRSLT passed by ref., get clozapine prescriptions ; YSRXIEN is IEN in PRESCRIPTION file (#52)
UPDT4RX(YSHLRST,YSDFN,HLO)	; update file #603.05 for prescriptions, save MailMan text ; YSHRSLT, HLO both passed by ref.
UPDT4OR(YSHRLST,YSDFN,YSGORD)	; update file #603.05 for orders, save MailMan text ; YSHRSLT passed by ref.
HLOCNTR	; count of HLO messages sent
ASK2QUE	;
RETRHL7	; Retransmit Clozapine HL7 Messages [YSCL HL7 CLOZ RETRANSMIT]
BLDPTLST
UPDTFL(YSDFN,YSFMUPDT)	; update file & sub-file ; YSFMUPDT - data for ^DIE, passed by ref.
SNDMSG	; send MailMan message
ADD2TXT(TXLN)	; add TXLN to MailMan message text
RUNCHK(YSRSLT)	; Boolean function, zero if transmission NOT running ; there is user interaction if ZTSK not true
XTMPZRO	;set zero node in ^XTMP("YSCLHL7") ; update ^XTMP("YSCLHL7",0) with purge date and $$NOW