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: MMRSCRE4

Package: Methicillin Resistant Staph Aurerus Initiative Reports

Routine: MMRSCRE4


Information

MMRSCRE4 ;TCK/LEIDOS - Print CRE Report Cont. (Contains functions to print report) ; 3/31/17 9:48am

Source Information

Source file <MMRSCRE4.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Prints report data
PRINTADM(LOC) ; Print cont.
PRTHDRD ;
PRTSUMA(LOC) ;
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"END OF REPORT"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDRD+2
Function Call: WRITE
  • Prompt: ?13,"CRE ACUTE CARE IPEC REPORT - "_RPTYP
  • Line Location: PRTHDRD+4
Function Call: WRITE
  • Prompt: !,?13,"Division: ",LOC
  • Line Location: PRTHDRD+5
Function Call: WRITE
  • Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT)
  • Line Location: PRTHDRD+6
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?70,"PAGE: ",PG
  • Line Location: PRTHDRD+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRTHDRD+8
Function Call: WRITE
  • Prompt: ?77,"DATE",?97,"SPECIMEN COLLECTION",?131,"SURVEILLANCE",?145,"CLINICAL",?157,"CULTURE"
  • Line Location: PRTHDRD+10
Function Call: WRITE
  • Prompt: !,"WARD",?21,"SERVICE",?46,"PATIENT",?70,"LAST4",?77,"ENTERED WARD",?97,"DATE/TIME",?122,"SOURCE",?131,"CULTURE",?145,"CULTURE",?157,"RESULT"
  • Line Location: PRTHDRD+11
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PRTHDRD+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTSUMA+2
Function Call: WRITE
  • Prompt: ?13,"CRE ACUTE CARE IPEC REPORT - "_RPTYP
  • Line Location: PRTSUMA+4
Function Call: WRITE
  • Prompt: !,?13,"Division: ",LOC
  • Line Location: PRTSUMA+5
Function Call: WRITE
  • Prompt: !,?13,"Divisions: "
  • Line Location: PRTSUMA+6
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: II>1&($X>37)
  • Line Location: PRTSUMA+7
Function Call: WRITE
  • Prompt: L_","
  • Line Location: PRTSUMA+7
Function Call: WRITE
  • Prompt: !,?37
  • Line Location: PRTSUMA+7
Function Call: WRITE
  • Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT)
  • Line Location: PRTSUMA+8
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?70,"PAGE: ",PG
  • Line Location: PRTSUMA+9
Function Call: WRITE
  • Prompt: !!,"Basic Measures and Device Days of Care"
  • Line Location: PRTSUMA+14
Function Call: WRITE
  • Prompt: !,?3,"01 Total # of admissions to the acute care inpatient facility for the period: ",$P(DATA,"^")
  • Line Location: PRTSUMA+15
Function Call: WRITE
  • Prompt: !,?3,"02 Total # of bed days of care for acute care for the period: ",DATA1
  • Line Location: PRTSUMA+16
Function Call: WRITE
  • Prompt: !!,"Admission Prevalence Measures (Facility/Division Wide)"
  • Line Location: PRTSUMA+17
Function Call: WRITE
  • Prompt: !,?3,"07 # of (01) with surveillance screens for CRE/CPE collected upon admission: ",$P(DATA,U,2)
  • Line Location: PRTSUMA+18
Function Call: WRITE
  • Prompt: !,?3,"08 # of (07) that were positive for CRE/CPE based on surveillance screen: ",$P(DATA,U,3)
  • Line Location: PRTSUMA+19
Function Call: WRITE
  • Prompt: !,?3,"09 # of (01) that were positive for CRE/CPE based on clinical cultures: ",$P(DATA,"^",4)
  • Line Location: PRTSUMA+20
Function Call: WRITE
  • Prompt: !,?3,"10 % of (01) that were positive for CRE/CPE based on surveillance screening: ",$G(SCPCT)_"%"
  • Line Location: PRTSUMA+42
Function Call: WRITE
  • Prompt: !,?3,"11 % of (01) that were positive for CRE/CPE based on clinical cultures: ",$G(CCPCT)_"%"
  • Line Location: PRTSUMA+43
Function Call: WRITE
  • Prompt: !!,"Incidence Measures: Healthcare-Associated Colonized Cases"
  • Line Location: PRTSUMA+44
Function Call: WRITE
  • Prompt: !,?3,"12 # of patients with screens for CRE/CPE collected 3 or more days after admission: ",$P(DATA,U,5)
  • Line Location: PRTSUMA+45
Function Call: WRITE
  • Prompt: !,?3,"13 # of (12) that were positive for CRE/CPE based on surveillance screen collected 3 or more days after admission: ",$P(DATA,U,6)
  • Line Location: PRTSUMA+46
Function Call: WRITE
  • Prompt: !,?3,"14 # of patients with clinical cultures positive for CRE/CPE 3 or more days after admission: ",$P(DATA,U,7)
  • Line Location: PRTSUMA+47
Function Call: WRITE
  • Prompt: !,?3,"15 Rate of healthcare-associated colonized cases: ",$G(RATE)
  • Line Location: PRTSUMA+56
Function Call: WRITE
  • Prompt: !!,"Infection Prevention and Control Measures"
  • Line Location: PRTSUMA+57
Function Call: WRITE
  • Prompt: !,?3,"33 # of cases with CRE/CPE for the period: ",$P(DATA,U,8)
  • Line Location: PRTSUMA+58
Function Call: WRITE
  • Prompt: !!!,"END OF REPORT."
  • Line Location: PRTSUMA+59
Function Call: WRITE
  • Prompt: !!!,"END OF REPORT"
  • Line Location: PRTSUMA+61

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] GET1^DIQ
^LAB(61 - [#61] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call