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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: YSCLHLPR

Package: Mental Health

Routine: YSCLHLPR


Information

YSCLHLPR ;HEC/hrubovcak ;19 May 2020 14:13:48

Source Information

Source file <YSCLHLPR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$HTE,$$HTFM)^XLFDT  $$STA^XUAF4  
VA FileMan 3 DT^DICRW  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 1 CLOZ^PSS50  

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 LIST CLOZAPINE RXS  YSCL HL7 REPORT BY DATE  YSCL HL7 STATUS REPORT  YSCLHLOP  

Entry Points

Name Comments DBIA/ICR reference
HL7SMRY ; Clozapine HL7 Messages Summary [YSCL HL7 STATUS REPORT] option - 29 February 2020
HL7RPT ; text for YSCL HL7 STATUS REPORT
RPTBYDT ; report by date, 31 March 2020
DTRPRT ; text for YSCL HL7 REPORT BY DATE
RXBYDT ; Clozapine prescriptions for a date range, 27 April 2020
RXDTLST ; prescriptions for a date range, entry from TaskMan or direct call
; YSRXDT array required
HDR(HDRLNS) ; header, HDRLNS passed by ref.
ENTR ; prompt user, nothing returned
WPL(WPTXT,LN) ; add LN to WPTXT in W-P format, WPTXT passed by ref.
TMPLN(CNTR,TX) ; add TX to ^TMP($J,"YSTXT") in w-p format, CNTR passed by ref.
EOR()

External References

Name Field # of Occurrence
^%ZIS HL7SMRY+6, RPTBYDT+20, RXBYDT+19
HOME^%ZIS HL7SMRY+9, RPTBYDT+24, RXBYDT+23
^%ZISC HL7SMRY+12, RPTBYDT+27, DTRPRT+41, RXBYDT+27
^%ZTLOAD HL7SMRY+9, RPTBYDT+24, RXBYDT+23
DT^DICRW HL7SMRY+1, RXBYDT+1
$$GET1^DIQ DTRPRT+18, RXDTLST+21, RXDTLST+22, RXDTLST+25, RXDTLST+26
^DIR RPTBYDT+9, RPTBYDT+15, RXBYDT+8, RXBYDT+11, RXBYDT+14, RXDTLST+39, ENTR+1
CLOZ^PSS50 RXBYDT+3, RXDTLST+5
$$FMADD^XLFDT RXBYDT+3, RXDTLST+5
$$FMTE^XLFDT HL7RPT+22, HL7RPT+23, HL7RPT+26, HL7RPT+29, RPTBYDT+8, RPTBYDT+14, DTRPRT+6, DTRPRT+15, DTRPRT+27, RXDTLST+15
RXDTLST+28, RXDTLST+29
$$HTE^XLFDT HL7RPT+17, DTRPRT+5
$$HTFM^XLFDT HL7RPT+4
$$STA^XUAF4 HL7RPT+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Mental Health Clozapine HL7 Transmission Summary",!
  • Line Location: HL7SMRY+4
Function Call: WRITE
  • Prompt: !,"Queued as task #"_ZTSK
  • Line Location: HL7SMRY+10
Function Call: WRITE
  • Prompt: !,YSTXT(J,0)
  • Line Location: HL7RPT+36
Function Call: WRITE
  • Prompt: !,"Report by date from the CLOZAPINE HL7 TRANSMISSION file (#603.05).",!
  • Line Location: RPTBYDT+3
Function Call: WRITE
  • Prompt: !,"There are no entries in file #603.05",!
  • Line Location: RPTBYDT+6
Function Call: WRITE
  • Prompt: !!,"It is recommended that you queue this report."
  • Line Location: RPTBYDT+18
Function Call: WRITE
  • Prompt: !,"Queued as task #"_ZTSK
  • Line Location: RPTBYDT+25
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: DTRPRT+36
Function Call: WRITE
  • Prompt: !,"List all Clozapine prescriptions for a date range.",!
  • Line Location: RXBYDT+1
Function Call: WRITE
  • Prompt: !,"No Clozapine drugs have been identified in the DRUG file (#52).",!
  • Line Location: RXBYDT+7
Function Call: WRITE
  • Prompt: !,"Queued as task #"_ZTSK
  • Line Location: RXBYDT+24
Function Call: WRITE
  • Prompt: !,"Report not queued!"
  • Line Location: RXBYDT+25
Function Call: WRITE
  • Prompt: @IOF,YSHDR(1),!,YSHDR(2)
  • Line Location: RXDTLST+35
Function Call: WRITE
  • Prompt: @IOF,YSHDR(1),!,YSHDR(2)
  • Line Location: RXDTLST+43
Function Call: WRITE
  • Prompt: !,HDRLNS(1),!,HDRLNS(2)_HDRLNS("pgNum"),!,HDRLNS(3)
  • Line Location: HDR+2
Routine Call
  • %ZIS
  • Line Location:
    • HL7SMRY+6
    • RPTBYDT+20
    • RXBYDT+19
Routine Call
  • %ZIS
  • Line Location:
    • HL7SMRY+9
    • RPTBYDT+24
    • RXBYDT+23
Routine Call
  • DIR
  • Line Location:
    • RPTBYDT+9
    • RPTBYDT+15
    • RXBYDT+8
    • RXBYDT+11
    • RXBYDT+14
    • RXDTLST+39
    • ENTR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] RXDTLST+19
^PSRX("ADL" RXDTLST+11, RXDTLST+13
^TMP($J HL7RPT+39!, DTRPRT+3!, DTRPRT+18*, DTRPRT+19, DTRPRT+23*, DTRPRT+26, DTRPRT+28, DTRPRT+34, DTRPRT+42!, RXBYDT+4
RXDTLST+2!, RXDTLST+6, RXDTLST+13*, RXDTLST+18, RXDTLST+29, RXDTLST+36, RXDTLST+37, RXDTLST+47!, TMPLN+2*
^XMB("NETNAME" HL7RPT+19
^XTMP("YSCLHL7" HL7RPT+25
^YSCL(603.03 - [#603.03] HL7RPT+21
^YSCL(603.05 - [#603.05] HL7RPT+8, HL7RPT+10, RPTBYDT+5, DTRPRT+14, DTRPRT+16, DTRPRT+21

Label References

Name Line Occurrences
$$EOR HL7RPT+34, DTRPRT+31, RXDTLST+33
DTRPRT RPTBYDT+27
ENTR HL7RPT+37, RPTBYDT+6, DTRPRT+38, RXDTLST+45
HDR DTRPRT+33, DTRPRT+35
HL7RPT HL7SMRY+12
RXDTLST RXBYDT+27
TMPLN DTRPRT+28, DTRPRT+30, DTRPRT+31, RXDTLST+24, RXDTLST+30, RXDTLST+32, RXDTLST+33
WPL HL7RPT+17, HL7RPT+19, HL7RPT+20, HL7RPT+22, HL7RPT+23, HL7RPT+24, HL7RPT+26, HL7RPT+27, HL7RPT+28, HL7RPT+29
HL7RPT+30, HL7RPT+31, HL7RPT+32, HL7RPT+33, HL7RPT+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS HL7SMRY+3~, HL7SMRY+5*, RPTBYDT+2~, RPTBYDT+19*, RXBYDT+17~, RXBYDT+18*
%ZIS("A" HL7SMRY+5*, RPTBYDT+19*, RXBYDT+18*
%ZIS("B" HL7SMRY+5*, RPTBYDT+19*, RXBYDT+18*
C DTRPRT+2~, DTRPRT+33*, DTRPRT+35*, DTRPRT+36*
CLOZLST RXDTLST+3~
CLOZLST( RXBYDT+4*, RXDTLST+6*, RXDTLST+11
CLOZLST(0 RXBYDT+6
CNTR TMPLN~, TMPLN+2*
DFN RXDTLST+3~, RXDTLST+19*, RXDTLST+21, RXDTLST+22
DIR RPTBYDT+2~, RPTBYDT+12!, RXBYDT+2~, RXBYDT+7~, RXBYDT+10!, RXBYDT+13!, RXDTLST+39~, ENTR+1~
DIR("?" RPTBYDT+8*, RPTBYDT+13*, RPTBYDT+14*
DIR("A" RPTBYDT+8*, RPTBYDT+13*, RXBYDT+8*, RXBYDT+10*, RXBYDT+13*, RXDTLST+39*, ENTR+1*
DIR(0 RPTBYDT+8*, RPTBYDT+13*, RXBYDT+7*, RXBYDT+10*, RXBYDT+13*, RXDTLST+39*, ENTR+1*
DPTR RXDTLST+3~, RXDTLST+11*, RXDTLST+13
DT RPTBYDT+13, RXBYDT+3, RXBYDT+10, RXBYDT+13, RXDTLST+5
DTOUT RPTBYDT+2~, RPTBYDT+9, RPTBYDT+15, RXBYDT+2~, RXBYDT+11, RXBYDT+14, RXDTLST+40
DUOUT RPTBYDT+2~, RPTBYDT+9, RPTBYDT+15, RXBYDT+11, RXBYDT+14, RXDTLST+40
DUTOUT RXBYDT+2~
>> DUZ(2 HL7RPT+18
HDRLNS HDR~
HDRLNS("pgNum" HDR+1*, HDR+2
HDRLNS(1 HDR+2
HDRLNS(2 HDR+2
HDRLNS(3 HDR+2
IO HL7SMRY+12, RPTBYDT+27, RXDTLST+2
>> IO("Q" HL7SMRY+7, RPTBYDT+21, RXBYDT+20
>> IO(0 HL7SMRY+12, RPTBYDT+27, DTRPRT+41, RXBYDT+27, ENTR+1
IOF RXDTLST+35, RXDTLST+43
IOSL DTRPRT+35, RXDTLST+37
IOST HL7RPT+37, DTRPRT+38, RXDTLST+38, RXDTLST+45
J HL7RPT+2~, HL7RPT+10*, HL7RPT+36*
L DTRPRT+2~, DTRPRT+19*, DTRPRT+22, DTRPRT+34*
LN WPL~, WPL+1*, WPL+2
ND DTRPRT+12~*, DTRPRT+21
POP HL7SMRY+3~, HL7SMRY+6, RPTBYDT+20, RXBYDT+19
PTNMDFN DTRPRT+2~, DTRPRT+19*, DTRPRT+23, DTRPRT+25*, DTRPRT+26*, DTRPRT+28
TX TMPLN~, TMPLN+1*, TMPLN+2
TYP DTRPRT+12~*, DTRPRT+22
U HL7RPT+22, HL7RPT+23, HL7RPT+26, DTRPRT+19, DTRPRT+22, RXDTLST+19, RXDTLST+20, RXDTLST+28, RXDTLST+40
WPTXT WPL~
WPTXT( WPL+2*
WPTXT(0 WPL+2*
X HL7RPT+2~, HL7RPT+21*, HL7RPT+22, HL7RPT+23, HL7RPT+25*, HL7RPT+26, HL7RPT+27, RPTBYDT+2~, DTRPRT+2~, DTRPRT+21*
DTRPRT+22, DTRPRT+28*, RXBYDT+2~, RXBYDT+10!, RXBYDT+13!, RXDTLST+3~, RXDTLST+20*, RXDTLST+22*, RXDTLST+23, RXDTLST+26*
RXDTLST+28*, RXDTLST+29*
Y HL7RPT+2~, HL7RPT+7*, HL7RPT+8*, HL7RPT+10, HL7RPT+18*, HL7RPT+19, HL7RPT+22*, HL7RPT+23*, RPTBYDT+2~, RPTBYDT+5*
RPTBYDT+8, RPTBYDT+9, RPTBYDT+15, DTRPRT+2~, DTRPRT+6*, DTRPRT+7, DTRPRT+15*, DTRPRT+22*, DTRPRT+23, DTRPRT+26*
DTRPRT+27, DTRPRT+28, DTRPRT+34*, DTRPRT+36, RXBYDT+2~, RXBYDT+4*, RXBYDT+10!, RXBYDT+11, RXBYDT+12, RXBYDT+13!
RXBYDT+14, RXBYDT+15, RXDTLST+3~, RXDTLST+6*, RXDTLST+9*, RXDTLST+11*, RXDTLST+13, RXDTLST+36*, RXDTLST+37, RXDTLST+40
Y("time" DTRPRT+27*, DTRPRT+28
YSCLZRPT RXDTLST+3~
YSCLZRPT("rptExit" RXDTLST+35*, RXDTLST+36, RXDTLST+40*, RXDTLST+42, RXDTLST+45
YSCLZRPT("ttl" RXDTLST+18*, RXDTLST+24*, RXDTLST+32
YSCNTR DTRPRT+2~, DTRPRT+10*, DTRPRT+25*, DTRPRT+28, DTRPRT+30, DTRPRT+31, RXDTLST+3~, RXDTLST+24, RXDTLST+30, RXDTLST+32
RXDTLST+33
YSDFN HL7RPT+2~, HL7RPT+8*, HL7RPT+10, HL7RPT+11, HL7RPT+15*, DTRPRT+2~, DTRPRT+16*, DTRPRT+18, DTRPRT+19, DTRPRT+21
YSDTM DTRPRT+2~, DTRPRT+10*, DTRPRT+13*, DTRPRT+14*, DTRPRT+15, DTRPRT+16, DTRPRT+23
YSDTM("rprt" DTRPRT+15*
YSHDR DTRPRT+2~, DTRPRT+33, DTRPRT+35, RXDTLST+3~
YSHDR("pgNum" DTRPRT+7*
YSHDR(1 DTRPRT+5*, RXDTLST+15*, RXDTLST+35, RXDTLST+43
YSHDR(2 DTRPRT+7*, RXDTLST+16*, RXDTLST+35, RXDTLST+43
YSHDR(3 DTRPRT+8*
YSIEN DTRPRT+2~, DTRPRT+16*, DTRPRT+21, DTRPRT+23
YSIENRX RXDTLST+3~, RXDTLST+13*, RXDTLST+18*, RXDTLST+19, RXDTLST+25, RXDTLST+26, RXDTLST+29
YSINDX HL7RPT+2~, HL7RPT+5*, HL7RPT+6, HL7RPT+8, HL7RPT+10, HL7RPT+12, DTRPRT+2~, DTRPRT+11*, DTRPRT+12, DTRPRT+14
DTRPRT+16
YSLN RXDTLST+3~, RXDTLST+35*, RXDTLST+36*, RXDTLST+37
YSLN("ioCnt" RXDTLST+35*, RXDTLST+37*, RXDTLST+43*
YSRPTDT RPTBYDT+2~
YSRPTDT("1st" RPTBYDT+9*, RPTBYDT+11, RPTBYDT+13, RPTBYDT+14, DTRPRT+6, DTRPRT+10, DTRPRT+13
YSRPTDT("last" RPTBYDT+15*, RPTBYDT+17, DTRPRT+6, DTRPRT+14
YSRX RXDTLST+3~, RXDTLST+19!
YSRX(0 RXDTLST+19*, RXDTLST+20, RXDTLST+28
YSRXDT RXBYDT+2~
YSRXDT("BEG" RXBYDT+12*, RXBYDT+13, RXDTLST+9, RXDTLST+15
YSRXDT("END" RXBYDT+15*, RXDTLST+11, RXDTLST+15
YSTOP RPTBYDT+2~, RPTBYDT+7*, RPTBYDT+9*, RPTBYDT+11, RPTBYDT+12*, RPTBYDT+15*, RPTBYDT+17
YSTXLN RXDTLST+3~, RXDTLST+20*, RXDTLST+21*, RXDTLST+23*, RXDTLST+24, RXDTLST+25*, RXDTLST+26*, RXDTLST+27*, RXDTLST+28*, RXDTLST+29*
RXDTLST+30
YSTXT HL7RPT+2~, HL7RPT+17, HL7RPT+19, HL7RPT+20, HL7RPT+22, HL7RPT+23, HL7RPT+24, HL7RPT+26, HL7RPT+27, HL7RPT+28
HL7RPT+29, HL7RPT+30, HL7RPT+31, HL7RPT+32, HL7RPT+33, HL7RPT+34
YSTXT( HL7RPT+36
YSV HL7RPT+2~
YSV( HL7RPT+6*, HL7RPT+12*
YSV("30days" HL7RPT+4*, HL7RPT+7, HL7RPT+29
YSV("CDATE" HL7RPT+33
YSV("DDATE" HL7RPT+32
YSV("hl7Cnt" HL7RPT+11*, HL7RPT+14*, HL7RPT+15*, HL7RPT+31
YSV("ptCnt" HL7RPT+14*, HL7RPT+15*, HL7RPT+30
Z RXBYDT+2~, RXBYDT+4*, RXDTLST+3~, RXDTLST+6*
ZTDESC HL7SMRY+8~, HL7SMRY+9*, RPTBYDT+22~, RPTBYDT+24*, RXBYDT+21~, RXBYDT+22*
ZTQUEUED HL7RPT+2~, HL7RPT+37, HL7RPT+38, DTRPRT+2~, DTRPRT+38, DTRPRT+39, RXDTLST+3~, RXDTLST+45, RXDTLST+46
ZTREQ HL7RPT+38*, HL7RPT+39!, DTRPRT+39*, DTRPRT+42!, RXDTLST+46*, RXDTLST+47!
ZTRTN HL7SMRY+8~, HL7SMRY+9*, RPTBYDT+22~, RPTBYDT+24*, RXBYDT+21~, RXBYDT+22*
ZTSAVE RPTBYDT+22~, RXBYDT+21~
ZTSAVE("YSRPTDT(" RPTBYDT+23*
ZTSAVE("YSRXDT(" RXBYDT+21*
ZTSK HL7SMRY+8~, HL7SMRY+10, RPTBYDT+22~, RPTBYDT+25, RXBYDT+21~, RXBYDT+24, RXDTLST+38

Marked Items

Name Field # of Occurrence
$T( HL7SMRY+9, RPTBYDT+24, RXBYDT+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All