Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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()

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call