Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: YSCLHLOP

Package: Mental Health

Routine: YSCLHLOP


Information

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

Source Information

Source file <YSCLHLOP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 DT^DICRW  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Mental Health 3 (GET,GETCLZOR)^YSCLHLGT  XMI1PT^YSCLHLMA  $$EOR^YSCLHLPR  
Kernel 2 ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE,$$HTFM,$$NOW)^XLFDT  
MailMan 1 SENDMSG^XMXAPI  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Mental Health 4 YSCL HL7 CLOZ RETRANSMIT  YSCL HL7 CLOZ TRANSMISSION  YSCL HL7 QUEUE TRANSMISSION  YSCLHLMA  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD ASK2QUE+17, RETRHL7+19
DT^DICRW DLYHL7+1, ASK2QUE+3, RETRHL7+2
FILE^DIE DLYHL7+9, DLYHL7+61
UPDATE^DIE UPDTFL+6, UPDTFL+11
$$GET1^DIQ GETCLZRX+7, BLDPTLST+7, BLDPTLST+9, SNDMSG+8, SNDMSG+22, SNDMSG+23, SNDMSG+25, SNDMSG+33, SNDMSG+34, SNDMSG+36
^DIR ASK2QUE+11, ASK2QUE+13, ASK2QUE+21, RETRHL7+13, RETRHL7+15, RETRHL7+23, RUNCHK+11
$$SITE^VASITE SNDMSG+3
$$DT^XLFDT XTMPZRO+3
$$FMADD^XLFDT XTMPZRO+3
$$FMTE^XLFDT SNDMSG+5, RUNCHK+10
$$HTFM^XLFDT DLYHL7+36
$$NOW^XLFDT DLYHL7+5, DLYHL7+8, DLYHL7+22, DLYHL7+60, RETRHL7+4, SNDMSG+5, XTMPZRO+3
SENDMSG^XMXAPI SNDMSG+47
GET^YSCLHLGT DLYHL7+29, DLYHL7+51
GETCLZOR^YSCLHLGT DLYHL7+46
XMI1PT^YSCLHLMA DLYHL7+32, DLYHL7+52
$$EOR^YSCLHLPR SNDMSG+45

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(55 - [#55] GET1^DIQ
^HLA - [#777] GET1^DIQ
^HLB - [#778] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] DLYHL7+39, DLYHL7+41, DLYHL7+43, GETCLZRX+4
^PSDRUG("ACLOZ" DLYHL7+13, GETCLZRX+6
^PSRX - [#52] GETCLZRX+4, GETCLZRX+5
^TMP("XMERR" SNDMSG+2!
^TMP($J DLYHL7+2!, DLYHL7+18, DLYHL7+23!*, DLYHL7+24, DLYHL7+41, DLYHL7+64!, UPDT4RX+7*, UPDT4OR+8*, HLOCNTR+1, BLDPTLST+10*
SNDMSG+2!, SNDMSG+3, SNDMSG+4, SNDMSG+20, SNDMSG+27, SNDMSG+31, SNDMSG+38, ADD2TXT+1, ADD2TXT+2*
^XTMP("YSCLHL7" DLYHL7+5, DLYHL7+6*, DLYHL7+11*!, DLYHL7+63!, RETRHL7+4*, RUNCHK+3, RUNCHK+9, RUNCHK+13, XTMPZRO+4*, XTMPZRO+5*
^YSCL(603.01 - [#603.01] BLDPTLST+5, BLDPTLST+6
^YSCL(603.05 - [#603.05] DLYHL7+28, DLYHL7+50, UPDTFL+4

Label References

Name Line Occurrences
$$RUNCHK ASK2QUE+4, RETRHL7+6
ADD2TXT SNDMSG+5, SNDMSG+6, SNDMSG+9, SNDMSG+10, SNDMSG+13, SNDMSG+14, SNDMSG+16, SNDMSG+19, SNDMSG+28, SNDMSG+30
SNDMSG+39, SNDMSG+42, SNDMSG+44, SNDMSG+45
BLDPTLST DLYHL7+17
GETCLZRX DLYHL7+25
HLOCNTR UPDT4RX+6, UPDT4OR+7
SNDMSG DLYHL7+16, DLYHL7+20, DLYHL7+58
UPDT4OR DLYHL7+56
UPDT4RX DLYHL7+34
UPDTFL UPDT4RX+13, UPDT4OR+14
XTMPZRO DLYHL7+11, DLYHL7+63

Naked Globals

Name Field # of Occurrence
^(0 HLOCNTR+1*, ADD2TXT+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C ADD2TXT+1~*, ADD2TXT+2, XTMPZRO+2~, XTMPZRO+3*, XTMPZRO+4
CNT SNDMSG+1~, SNDMSG+17*, SNDMSG+21*, SNDMSG+26, SNDMSG+32*, SNDMSG+37
DFN GETCLZRX~, GETCLZRX+4
DILOCKTM DLYHL7+5, RUNCHK+3
DIR ASK2QUE+6!, ASK2QUE+13!, ASK2QUE+19!, RETRHL7+2~, RETRHL7+8!, RETRHL7+15!, RETRHL7+21!, RUNCHK+6~
DIR("A" ASK2QUE+6*, ASK2QUE+7*, ASK2QUE+8*, ASK2QUE+9*, ASK2QUE+10*, ASK2QUE+13*, ASK2QUE+19*, ASK2QUE+20*, RETRHL7+8*, RETRHL7+9*
RETRHL7+10*, RETRHL7+11*, RETRHL7+12*, RETRHL7+15*, RETRHL7+21*, RETRHL7+22*, RUNCHK+7*, RUNCHK+8*, RUNCHK+9*, RUNCHK+10*
DIR("B" ASK2QUE+6*, RETRHL7+8*
DIR(0 ASK2QUE+6*, ASK2QUE+13*, ASK2QUE+19*, RETRHL7+8*, RETRHL7+15*, RETRHL7+21*, RUNCHK+7*
DRUGIEN GETCLZRX+2~, GETCLZRX+4!, GETCLZRX+5*, GETCLZRX+6
DTOUT ASK2QUE+1~, ASK2QUE+11, RETRHL7+2~, RETRHL7+13
DUOUT ASK2QUE+1~, ASK2QUE+11, RETRHL7+2~, RETRHL7+13
DUZ SNDMSG+8, SNDMSG+10, SNDMSG+41, SNDMSG+47
HLIEN SNDMSG+1~, SNDMSG+20*, SNDMSG+22, SNDMSG+23, SNDMSG+27, SNDMSG+31*, SNDMSG+33, SNDMSG+34, SNDMSG+38
HLO DLYHL7+26~, DLYHL7+34, DLYHL7+52~, UPDT4RX~, UPDT4OR+2~, SNDMSG+22~, SNDMSG+33~
HLO("Rx#" DLYHL7+27*, DLYHL7+28, DLYHL7+30, UPDT4RX+7, UPDT4RX+12
HLO("body" SNDMSG+23*, SNDMSG+25, SNDMSG+34*, SNDMSG+36
HLO("ien" UPDT4RX+5*, UPDT4RX+7, UPDT4RX+10, UPDT4OR+6*, UPDT4OR+8, UPDT4OR+11
HLO("msgId" SNDMSG+22*, SNDMSG+26, SNDMSG+33*, SNDMSG+37
HLO("type" UPDT4RX+4*, UPDT4RX+7, UPDT4RX+11, UPDT4OR+5*, UPDT4OR+8, UPDT4OR+12, SNDMSG+25*, SNDMSG+26, SNDMSG+36*, SNDMSG+37
J UPDTFL+2~, UPDTFL+10*, XTMPZRO+2~, XTMPZRO+4*
L SNDMSG+1~, SNDMSG+26*, SNDMSG+28, SNDMSG+37*, SNDMSG+39
N DLYHL7+3~, DLYHL7+5*, DLYHL7+6, DLYHL7+11, XTMPZRO+2~, XTMPZRO+3*, XTMPZRO+4, XTMPZRO+5
NHL7 HLOCNTR+1~*, SNDMSG+1~, SNDMSG+3*, SNDMSG+16, SNDMSG+18
PRFLIEN GETCLZRX+2~, GETCLZRX+4*
RXRSLT GETCLZRX~, GETCLZRX+2!*, GETCLZRX+8*
RXRSLT( GETCLZRX+8*
TXLN ADD2TXT~, ADD2TXT+2
U DLYHL7+6, DLYHL7+11, DLYHL7+27, GETCLZRX+5, UPDT4RX+4, UPDT4RX+5, UPDT4RX+7, UPDT4OR+5, UPDT4OR+6, UPDT4OR+8
RETRHL7+4, BLDPTLST+6, SNDMSG+6, SNDMSG+25, SNDMSG+28, SNDMSG+36, SNDMSG+39, SNDMSG+46, RUNCHK+10, XTMPZRO+4
XTMPZRO+5
V RETRHL7+2~, RUNCHK+6~, RUNCHK+9*, RUNCHK+10
X DLYHL7+3~, DLYHL7+13*, RETRHL7+2~, BLDPTLST+1~, BLDPTLST+6*, SNDMSG+1~, SNDMSG+8*, SNDMSG+10, SNDMSG+14*, SNDMSG+27*
SNDMSG+28, SNDMSG+38*, SNDMSG+39, SNDMSG+44*, RUNCHK+6~, RUNCHK+9*, RUNCHK+10
Y DLYHL7+3~, ASK2QUE+12, RETRHL7+2~, RETRHL7+14, SNDMSG+1~
YSCLABRT DLYHL7+3~, DLYHL7+12*, DLYHL7+14*, DLYHL7+18*, SNDMSG+12
YSCLABRT( SNDMSG+14
YSCLABRT(1 DLYHL7+15*, DLYHL7+19*
YSCLARR DLYHL7+26~, DLYHL7+29, DLYHL7+32, DLYHL7+44~, DLYHL7+46, DLYHL7+51, DLYHL7+52
YSCLARR("*RPT" DLYHL7+46
YSCLARR("MED_RX#/ORDER#" DLYHL7+30*, DLYHL7+31, DLYHL7+48, DLYHL7+50
YSCLZDRUG DLYHL7+3~
YSCLZDRUG( DLYHL7+13*
YSCLZDRUG(0 DLYHL7+14
YSDFN DLYHL7+3~, DLYHL7+22*, DLYHL7+24*, DLYHL7+25, DLYHL7+29, DLYHL7+34, DLYHL7+41*, DLYHL7+43, DLYHL7+46, DLYHL7+51
DLYHL7+56, UPDT4RX~, UPDT4RX+13, UPDT4OR~, UPDT4OR+14, BLDPTLST+1~, BLDPTLST+6*, BLDPTLST+7, BLDPTLST+9, BLDPTLST+10
, UPDTFL~, UPDTFL+4, UPDTFL+5, UPDTFL+9
YSFLD BLDPTLST+1~, BLDPTLST+9*
YSFMERR DLYHL7+3~, DLYHL7+60!, GETCLZRX+7!, UPDTFL+2~, UPDTFL+7!
YSFMFDA DLYHL7+3~, DLYHL7+60!
YSFMFDA( DLYHL7+8*, DLYHL7+60*
YSFMIEN UPDTFL+2~, UPDTFL+7!
YSFMIEN(1 UPDTFL+5*
YSFMROOT UPDTFL+2~, UPDTFL+7!
YSFMROOT( UPDTFL+5*, UPDTFL+10*
YSFMUPDT UPDT4RX+8~, UPDT4RX+13, UPDT4OR+9~, UPDT4OR+14, UPDTFL~
YSFMUPDT( UPDT4RX+9*, UPDT4RX+10*, UPDT4RX+11*, UPDT4RX+12*, UPDT4OR+10*, UPDT4OR+11*, UPDT4OR+12*, UPDT4OR+13*, UPDTFL+10
YSFMUPDT(0 UPDTFL+9
YSFROM SNDMSG+1~
YSGORD DLYHL7+44~, DLYHL7+49*, DLYHL7+51, DLYHL7+55*, DLYHL7+56, UPDT4OR~, UPDT4OR+8, UPDT4OR+13
YSHL7 RETRANS+3~
YSHL7("allowDups" RETRANS+4*, DLYHL7+28, DLYHL7+50, SNDMSG+7
YSHLRSLT DLYHL7+26~, DLYHL7+32, DLYHL7+34, DLYHL7+52~, DLYHL7+56
YSHLRSLT( UPDT4RX+2, UPDT4RX+4, UPDT4RX+5, UPDT4OR+3, UPDT4OR+5, UPDT4OR+6
YSHLRSLT(0 DLYHL7+33, DLYHL7+53
YSHLRST UPDT4RX~
YSHRLST UPDT4OR~
YSIEN BLDPTLST+1~, BLDPTLST+5*, BLDPTLST+6
YSIENS UPDTFL+2~, UPDTFL+9*, UPDTFL+10
YSILENT DLYHL7+3~
YSITE SNDMSG+1~, SNDMSG+3*, SNDMSG+6, SNDMSG+46
YSNOW DLYHL7+3~, DLYHL7+22*, DLYHL7+39, UPDT4RX+9, UPDT4OR+10
YSNWIEN DLYHL7+26~, UPDT4RX+2~*, UPDT4RX+4, UPDT4RX+5, UPDT4OR+2~, UPDT4OR+3*, UPDT4OR+5, UPDT4OR+6
YSORDT DLYHL7+36*, DLYHL7+39*, DLYHL7+40, DLYHL7+41, DLYHL7+43, DLYHL7+64!
YSORDT("LAST" DLYHL7+40*
YSORLST DLYHL7+3~
YSORNUM DLYHL7+48~*, DLYHL7+55
YSPSRX DLYHL7+3~
YSRSLT RUNCHK~, RUNCHK+2*, RUNCHK+4*, RUNCHK+14
YSRXIEN DLYHL7+3~, DLYHL7+25*, DLYHL7+27, DLYHL7+29, GETCLZRX+2~, GETCLZRX+4!*, GETCLZRX+5, GETCLZRX+7, GETCLZRX+8
YSRXIEN(0 GETCLZRX+5*, GETCLZRX+8
YSRXLST DLYHL7+3~, DLYHL7+25
YSRXLST( DLYHL7+25, DLYHL7+27
YSRXPT BLDPTLST+1~, BLDPTLST+7!, BLDPTLST+10
YSRXPT( BLDPTLST+9*
YSRXPT(54 BLDPTLST+7*, BLDPTLST+9
YSUBFL UPDTFL+2~, UPDTFL+9*, UPDTFL+10
YSUDSIEN DLYHL7+42~, DLYHL7+43*, DLYHL7+46, DLYHL7+49
YSUNSNT DLYHL7+37~*, DLYHL7+44~, DLYHL7+45*, DLYHL7+53*
YSXMBODY SNDMSG+1~, SNDMSG+4*, SNDMSG+47
YSXMSUBJ SNDMSG+1~, SNDMSG+46*, SNDMSG+47
YSXMTO SNDMSG+1~, SNDMSG+47
YSXMTO( SNDMSG+41*, SNDMSG+44
YSXMTO("G.YSC LHL7 LOGS" , SNDMSG+41*
YSXMZ SNDMSG+1~, SNDMSG+47
ZTDESC ASK2QUE+15~, ASK2QUE+16*, RETRHL7+17~, RETRHL7+18*
ZTDTH ASK2QUE+15~, ASK2QUE+16*, RETRHL7+17~, RETRHL7+18*
ZTIO ASK2QUE+15~, ASK2QUE+16*, RETRHL7+17~, RETRHL7+18*
ZTRTN ASK2QUE+15~, ASK2QUE+16*, RETRHL7+17~, RETRHL7+18*
ZTSK RETRANS+2, DLYHL7+6, DLYHL7+11, ASK2QUE+2, ASK2QUE+15~, ASK2QUE+20, RETRHL7+4, RETRHL7+17~, RETRHL7+22, RUNCHK+5
XTMPZRO+5

Marked Items

Name Field # of Occurrence
$T( ASK2QUE+16, RETRHL7+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All