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  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Methicillin Resistant Staph Aurerus Initiative Reports 1 PATDAYS^MMRSCRE  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Methicillin Resistant Staph Aurerus Initiative Reports 1 MMRSCRE  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ PRINTADM+12, PRINTADM+20
PATDAYS^MMRSCRE PRINT+12
$$FMTE^XLFDT PRINTADM+16, PRINTADM+18, PRTHDRD+6, PRTHDRD+7, PRTSUMA+8, PRTSUMA+9
$$NOW^XLFDT PRINT+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] PRINTADM+19
^TMP($J PRINT+5, PRINT+8, PRINTADM+6, PRINTADM+8, PRINTADM+9, PRTSUMA+7, PRTSUMA+10, PRTSUMA+11, PRTSUMA+12, PRTSUMA+13

Label References

Name Line Occurrences
END PRINT+23
PRINTADM PRTSUMA+60
PRTHDRD PRINT+19, PRINTADM+2, PRINTADM+23
PRTSUMA PRINT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADT PRINTADM+3~
CC PRINTADM+3~, PRINTADM+13*, PRINTADM+22, PRTSUMA+21*, PRTSUMA+25*, PRTSUMA+35, PRTSUMA+36, PRTSUMA+37, PRTSUMA+38
CCDEC PRTSUMA+40*, PRTSUMA+41, END+1!
CCPCT PRTSUMA+21*, PRTSUMA+35*, PRTSUMA+37*, PRTSUMA+38*, PRTSUMA+39, PRTSUMA+40, PRTSUMA+41*, PRTSUMA+43, END+1!
CLDT PRINTADM+11*, PRINTADM+17, PRINTADM+18*, PRINTADM+22, END+1!
DATA PRINT+1~, PRTSUMA+10*, PRTSUMA+11*, PRTSUMA+15, PRTSUMA+18, PRTSUMA+19, PRTSUMA+20, PRTSUMA+22, PRTSUMA+23, PRTSUMA+24
, PRTSUMA+25, PRTSUMA+45, PRTSUMA+46, PRTSUMA+47, PRTSUMA+50, PRTSUMA+58
DATA1 PRTSUMA+12*, PRTSUMA+13*, PRTSUMA+16, PRTSUMA+49, PRTSUMA+51, END+1!
DFN PRINT+1~
DIVARY PRINT+15, PRTSUMA+61, END+1!
DIVARY( PRINT+9!, PRINT+10!, PRINT+16
DTTE PRINTADM+15*, PRINTADM+16, PRINTADM+17*, PRINTADM+18, END+1!
DVSN PRINT+16*, PRINT+17, PRINT+18, END+1!
ENDDT PRTHDRD+6, PRTSUMA+8, END+1!
II PRTSUMA+1~, PRTSUMA+7*
IN PRINTADM+3~, PRINTADM+4*, PRINTADM+8*, PRINTADM+9
INC PRINTADM+3~
IND PRINTADM+3~, PRINTADM+11*, PRINTADM+15, PRINTADM+16*, PRINTADM+22
INDATE PRINT+1~
IOF PRTHDRD+2, PRTSUMA+2
IOSL PRINTADM+23
L PRTSUMA+1~, PRTSUMA+7*
L4 PRINTADM+3~, PRINTADM+10*, PRINTADM+22
LN PRINT+1~, PRINT+14*, PRINTADM+1*, PRTHDRD+3*, PRTHDRD+12
LOC PRINT+18*, PRINTADM~, PRINTADM+5, PRINTADM+6, PRINTADM+8, PRINTADM+9, PRINTADM+23, PRTHDRD+5, PRTSUMA~, PRTSUMA+5
, PRTSUMA+6, PRTSUMA+10, PRTSUMA+11, PRTSUMA+12, PRTSUMA+13
LOCNAME PRINT+1~, PRINT+5*, PRINT+8*, PRINT+9, PRINT+10, PRINT+11, PRINT+13, PRTSUMA+60
MMRSNOW PRINT+1~, PRINT+3*, PRTHDRD+7, PRTSUMA+9
MMV PRINTADM+3~
NODE PRINTADM+3~, PRINTADM+9*, PRINTADM+10, PRINTADM+11, PRINTADM+12, PRINTADM+13, PRINTADM+14
NUMLOCS PRINT+1~, PRINT+4*, PRINT+5*
OUTDATE PRINT+1~
PCT PRTSUMA+40*, PRTSUMA+41, END+1!
PG PRINT+1~, PRINT+2*, PRTHDRD+1*, PRTHDRD+7, PRTSUMA+3*, PRTSUMA+9
POS PRTSUMA+21*, END+1!
PREVLOC PRINT+1~
PRTSUM PRINT+6, PRINT+7, PRTHDRD+9, PRTSUMA+60, END+1!
PTN PRINTADM+3~, PRINTADM+10*, PRINTADM+22
RATE PRTSUMA+48*, PRTSUMA+51*, PRTSUMA+52, PRTSUMA+53, PRTSUMA+54*, PRTSUMA+56, END+2!
RPTYP PRINT+6*, PRINT+7*, PRTHDRD+4, PRTSUMA+4, END+2!
RTDEC PRTSUMA+53*, PRTSUMA+54, END+2!
RTE PRTSUMA+53*, PRTSUMA+54, END+2!
SC PRINTADM+3~, PRINTADM+13*, PRINTADM+22, PRTSUMA+21*
SCDEC PRTSUMA+32*, PRTSUMA+33, END+2!
SCPCT PRTSUMA+21*, PRTSUMA+26*, PRTSUMA+28*, PRTSUMA+29*, PRTSUMA+30, PRTSUMA+31, PRTSUMA+32, PRTSUMA+33*, PRTSUMA+42, END+2!
SCPOS PRTSUMA+24*, PRTSUMA+26, PRTSUMA+27, PRTSUMA+28, PRTSUMA+29, END+2!
SPCT PRTSUMA+32*, PRTSUMA+33, END+2!
SPCTY PRINTADM+20*, PRINTADM+22, END+2!
SRC PRINTADM+3~, PRINTADM+12*, PRINTADM+22
STRTDT PRTHDRD+6, PRTSUMA+8, END+2!
T PRTSUMA+50*, PRTSUMA+51, END+2!
TIM PRINTADM+15*, PRINTADM+16, PRINTADM+17*, PRINTADM+18, END+3!
TOTAL PRTSUMA+22*, PRTSUMA+29, PRTSUMA+37, PRTSUMA+38, END+3!
TSC PRTSUMA+23*, PRTSUMA+28, PRTSUMA+29, END+3!
U PRTSUMA+18, PRTSUMA+19, PRTSUMA+45, PRTSUMA+46, PRTSUMA+47, PRTSUMA+50, PRTSUMA+58
VAL PRINTADM+3~, PRINTADM+14*, PRINTADM+21, PRINTADM+22
WD PRINTADM+19*, PRINTADM+20, END+3!
WRD PRINTADM+3~, PRINTADM+10*, PRINTADM+19, PRINTADM+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  | All