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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MMRSIPC4

Package: Methicillin Resistant Staph Aurerus Initiative Reports

Routine: MMRSIPC4


Information

MMRSIPC4 ;MIA/LMT - Print MRSA Report Cont. (Contains functions to print report) ;10-20-06

Source Information

Source file <MMRSIPC4.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Registration 1 (DEM,IN5,KVA)^VADPT  

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 MMRSIPC  

Entry Points

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

External References

Name Field # of Occurrence
DEM^VADPT PRINTADM+3, PRINTDIS+4
IN5^VADPT PRINTADM+10, PRINTDIS+11, PRINTDIS+24
KVA^VADPT PRINTADM+2, PRINTADM+6, PRINTADM+10, PRINTADM+13, PRINTDIS+3, PRINTDIS+7, PRINTDIS+11, PRINTDIS+14, PRINTDIS+24
$$FMTE^XLFDT PRINTADM+7, PRINTDIS+8, PRINTDIS+21, PRTHDRA+4, PRTHDRA+5, PRTHDRD+4, PRTHDRD+5, PRTSUMA+7, PRTSUMA+8, PRTSUMD+7
, PRTSUMD+8
$$NOW^XLFDT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,WARD,?15,$S(IND=1:"*",1:" ")_$E(PATIENT,1,20),?38,LAST4,?45,INDATEE,?61,ADT,?66,MOVTYPE,?81,NARES24,?90,NARES48,?99,CULT48,?108,MRSA365
  • Line Location: PRINTADM+21
Function Call: WRITE
  • Prompt: !,WARD,?8,$S(IND=1:"*",1:" ")_$E(PATIENT,1,20),?31,LAST4,?38,INDATEE,?54,ADTA,?59,MOVTYPEA,?74,NARES24A,?83,NARES48A,?92,MRSA365
  • Line Location: PRINTDIS+31
Function Call: WRITE
  • Prompt: ?101,OUTDATEE,?117,ADTD,?122,MOVTYPED,?137,NARES24D,?146,NARES48D,?155,MRSACPRD,?165,TRANS
  • Line Location: PRINTDIS+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDRA+1
Function Call: WRITE
  • Prompt: ?13,"MRSA IPEC ADMISSION REPORT"
  • Line Location: PRTHDRA+2
Function Call: WRITE
  • Prompt: !,?13,"Geographical Location: ",LOCNAME
  • Line Location: PRTHDRA+3
Function Call: WRITE
  • Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT)
  • Line Location: PRTHDRA+4
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?70,"PAGE: ",PG
  • Line Location: PRTHDRA+5
Function Call: WRITE
  • Prompt: !!,?81,"NARES",?90,"NARES",?99,"CULTURE"
  • Line Location: PRTHDRA+6
Function Call: WRITE
  • Prompt: !,"VISTA",?45,"DATE",?66,"MAS MOVE",?81,"SCREEN",?90,"RESULT",?99,"RESULT",?108,"MRSA IN"
  • Line Location: PRTHDRA+7
Function Call: WRITE
  • Prompt: !,"WARD",?15,"PATIENT",?38,"SSN",?45,"ENTERED WARD",?61,"ADT",?66,"TYPE",?81,"24H",?90,"48H",?99,"48H",?108,"PAST YEAR"
  • Line Location: PRTHDRA+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PRTHDRA+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDRD+1
Function Call: WRITE
  • Prompt: ?13,"MRSA IPEC DISCHARGE/TRANSMISSION REPORT"
  • Line Location: PRTHDRD+2
Function Call: WRITE
  • Prompt: !,?13,"Geographical Location: ",LOCNAME
  • Line Location: PRTHDRD+3
Function Call: WRITE
  • Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT)
  • Line Location: PRTHDRD+4
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?70,"PAGE: ",PG
  • Line Location: PRTHDRD+5
Function Call: WRITE
  • Prompt: !!,?59,"ADM",?74,"NARES",?83,"NARES",?122,"DIS",?137,"NARES",?146,"NARES",?155,"MRSA"
  • Line Location: PRTHDRD+6
Function Call: WRITE
  • Prompt: !,"VISTA",?38,"DATE",?54,"ADM",?59,"MAS MOVE",?74,"SCREEN",?83,"RESULT",?92,"MRSA IN"
  • Line Location: PRTHDRD+7
Function Call: WRITE
  • Prompt: ?101,"DATE",?117,"DIS",?122,"MAS MOVE",?137,"SCREEN",?146,"RESULT",?155,"IN CURR"
  • Line Location: PRTHDRD+8
Function Call: WRITE
  • Prompt: !,"WARD",?8,"PATIENT",?31,"SSN",?38,"ENTERED WARD",?54,"ADT",?59,"TYPE",?74,"24H",?83,"48H",?92,"PAST YR"
  • Line Location: PRTHDRD+9
Function Call: WRITE
  • Prompt: ?101,"LEFT WARD",?117,"ADT",?122,"TYPE",?137,"24H",?146,"48H",?155,"PRD",?165,"TRANS"
  • Line Location: PRTHDRD+10
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PRTHDRD+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTSUMA+2
Function Call: WRITE
  • Prompt: ?13,"MRSA IPEC ADMISSION SUMMARY REPORT"
  • Line Location: PRTSUMA+3
Function Call: WRITE
  • Prompt: !,?13,"Geographical Location: ",LOC
  • Line Location: PRTSUMA+4
Function Call: WRITE
  • Prompt: !,?13,"Geographical Locations: "
  • Line Location: PRTSUMA+5
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: II>1&($X>37)
  • Line Location: PRTSUMA+6
Function Call: WRITE
  • Prompt: L
  • Line Location: PRTSUMA+6
Function Call: WRITE
  • Prompt: !,?37
  • Line Location: PRTSUMA+6
Function Call: WRITE
  • Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT)
  • Line Location: PRTSUMA+7
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?70,"PAGE: ",PG
  • Line Location: PRTSUMA+8
Function Call: WRITE
  • Prompt: !!,"Prevalence Measures (Facility Wide)"
  • Line Location: PRTSUMA+11
Function Call: WRITE
  • Prompt: !,?3,"1. Number of admissions to the facility: ",$P(DATA,U,1)
  • Line Location: PRTSUMA+12
Function Call: WRITE
  • Prompt: !,?3,"2. Number of (1) who received MRSA nasal screening upon admission to facility: ",$P(DATA,U,2)
  • Line Location: PRTSUMA+13
Function Call: WRITE
  • Prompt: !,?3,"3. Number of (1) positive for MRSA based on nasal screening upon admission to facility: ",$P(DATA,U,3)
  • Line Location: PRTSUMA+14
Function Call: WRITE
  • Prompt: !,?3,"4. Number of those in (1) positive for MRSA based on clinical cultures upon admission to facility: ",$P(DATA,U,4)
  • Line Location: PRTSUMA+15
Function Call: WRITE
  • Prompt: !!,"Prevalence Measures (Unit Specific)"
  • Line Location: PRTSUMA+16
Function Call: WRITE
  • Prompt: !,?3,"1. Number of admissions (admissions + transfers in) to the unit for the month: ",$P(DATA,U,5)
  • Line Location: PRTSUMA+17
Function Call: WRITE
  • Prompt: !,?3,"2. Number of (1) for whom nasal screening was indicated: ",$P(DATA,U,6)
  • Line Location: PRTSUMA+18
Function Call: WRITE
  • Prompt: !,?3,"3. Number of (2) who received MRSA nasal screening upon admission to unit (within 24 hours): ",$P(DATA,U,7)
  • Line Location: PRTSUMA+19
Function Call: WRITE
  • Prompt: !,?3,"4. Number of (1) positive for MRSA based on nasal screening upon admission to unit: ",$P(DATA,U,8)
  • Line Location: PRTSUMA+20
Function Call: WRITE
  • Prompt: !,?3,"5. Number of (1) positive for MRSA based on clinical cultures upon admission to unit: ",$P(DATA,U,9)
  • Line Location: PRTSUMA+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTSUMD+2
Function Call: WRITE
  • Prompt: ?13,"MRSA IPEC DISCHARGE/TRANSMISSION SUMMARY REPORT"
  • Line Location: PRTSUMD+3
Function Call: WRITE
  • Prompt: !,?13,"Geographical Location: ",LOC
  • Line Location: PRTSUMD+4
Function Call: WRITE
  • Prompt: !,?13,"Geographical Locations: "
  • Line Location: PRTSUMD+5
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: II>1&($X>37)
  • Line Location: PRTSUMD+6
Function Call: WRITE
  • Prompt: L
  • Line Location: PRTSUMD+6
Function Call: WRITE
  • Prompt: !,?37
  • Line Location: PRTSUMD+6
Function Call: WRITE
  • Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT)
  • Line Location: PRTSUMD+7
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?70,"PAGE: ",PG
  • Line Location: PRTSUMD+8
Function Call: WRITE
  • Prompt: !!,"Transmission Measures (Unit Specific)"
  • Line Location: PRTSUMD+11
Function Call: WRITE
  • Prompt: !,?3,"10. Number of bed days of care for the unit: ",$P(DATA,U,1)
  • Line Location: PRTSUMD+12
Function Call: WRITE
  • Prompt: !,?3,"11. Number of exits (discharges + deaths + transfers out) from the unit: ",$P(DATA,U,2)
  • Line Location: PRTSUMD+13
Function Call: WRITE
  • Prompt: !,?3,"12. Number of (11) from whom a discharge/transfer swab was indicated: ",$P(DATA,U,3)
  • Line Location: PRTSUMD+14
Function Call: WRITE
  • Prompt: !,?3,"13. Number of (12) who received MRSA nasal screening upon exit from unit: ",$P(DATA,U,4)
  • Line Location: PRTSUMD+15
Function Call: WRITE
  • Prompt: !,?3,"14. Number of MRSA transmissions on unit based on MRSA nasal screenings or clinical cultures: ",$P(DATA,U,5)
  • Line Location: PRTSUMD+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J PRINT+5, PRINT+7, PRINT+13, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRTSUMA+6, PRTSUMA+9, PRTSUMA+10
, PRTSUMD+6, PRTSUMD+9, PRTSUMD+10

Label References

Name Line Occurrences
PRINTADM PRINT+22
PRINTDIS PRINT+23
PRTHDRA PRINT+16, PRINTADM+22
PRTHDRD PRINT+17, PRINTDIS+33
PRTSUMA PRINT+8, PRINT+9, PRINT+14, PRINT+24
PRTSUMD PRINT+8, PRINT+9, PRINT+14, PRINT+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADT PRINTADM+1~, PRINTADM+9*, PRINTADM+21
ADTA PRINTDIS+1~, PRINTDIS+10*, PRINTDIS+31
ADTD PRINTDIS+2~, PRINTDIS+18*, PRINTDIS+23*, PRINTDIS+32
>> BYADM PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+14, PRINT+16, PRINT+17, PRINT+22, PRINT+23, PRINT+24
, PRINT+25
CULT48 PRINTADM+1~, PRINTADM+16*, PRINTADM+21
DATA PRINT+1~, PRINT+21*, PRINT+22, PRINT+23, PRINTADM~, PRINTADM+8, PRINTADM+10, PRINTADM+14, PRINTADM+15, PRINTADM+16
, PRINTADM+17, PRINTADM+19, PRINTDIS~, PRINTDIS+9, PRINTDIS+11, PRINTDIS+15, PRINTDIS+16, PRINTDIS+17, PRINTDIS+19, PRINTDIS+22
, PRINTDIS+25, PRINTDIS+26, PRINTDIS+27, PRINTDIS+28, PRINTDIS+30, PRTSUMA+1~, PRTSUMA+9*, PRTSUMA+10*, PRTSUMA+12, PRTSUMA+13
, PRTSUMA+14, PRTSUMA+15, PRTSUMA+17, PRTSUMA+18, PRTSUMA+19, PRTSUMA+20, PRTSUMA+21, PRTSUMD+1~, PRTSUMD+9*, PRTSUMD+10*
, PRTSUMD+12, PRTSUMD+13, PRTSUMD+14, PRTSUMD+15, PRTSUMD+16
DFN PRINT+1~, PRINT+19*, PRINT+20, PRINT+21
>> ENDDT PRTHDRA+4, PRTHDRD+4, PRTSUMA+7, PRTSUMD+7
II PRTSUMA+1~, PRTSUMA+6*, PRTSUMD+1~, PRTSUMD+6*
IND PRINTADM+1~, PRINTADM+19*, PRINTADM+21, PRINTDIS+2~, PRINTDIS+30*, PRINTDIS+31
INDATE PRINT+1~, PRINT+18*, PRINT+19, PRINT+20, PRINT+21, PRINTADM+7, PRINTDIS+8
INDATEE PRINTADM+1~, PRINTADM+7*, PRINTADM+21, PRINTDIS+1~, PRINTDIS+8*, PRINTDIS+31
INTT PRINTADM+1~, PRINTADM+8*, PRINTADM+9, PRINTDIS+1~, PRINTDIS+9*, PRINTDIS+10
IOF PRTHDRA+1, PRTHDRD+1, PRTSUMA+2, PRTSUMD+2
IOSL PRINTADM+22, PRINTDIS+33
L PRTSUMA+1~, PRTSUMA+6*, PRTSUMD+1~, PRTSUMD+6*
LAST4 PRINTADM+1~, PRINTADM+5*, PRINTADM+21, PRINTDIS+1~, PRINTDIS+6*, PRINTDIS+31
LN PRINT+1~, PRINT+10*, PRINT+11*, PRTHDRA+9, PRTHDRD+11
LOC PRTSUMA~, PRTSUMA+4, PRTSUMA+5, PRTSUMA+9, PRTSUMA+10, PRTSUMD~, PRTSUMD+4, PRTSUMD+5, PRTSUMD+9, PRTSUMD+10
LOCNAME PRINT+1~, PRINT+5*, PRINT+7*, PRINT+8, PRINT+13*, PRINT+15, PRINT+18, PRINT+19, PRINT+20, PRINT+21
, PRTHDRA+3, PRTHDRD+3
MMRSNOW PRINT+1~, PRINT+3*, PRTHDRA+5, PRTHDRD+5, PRTSUMA+8, PRTSUMD+8
MOVTYPE PRINTADM+1~, PRINTADM+11*, PRINTADM+21
MOVTYPEA PRINTDIS+1~, PRINTDIS+12*, PRINTDIS+31
MOVTYPED PRINTDIS+2~, PRINTDIS+18*, PRINTDIS+24*, PRINTDIS+32
MRSA365 PRINTADM+1~, PRINTADM+17*, PRINTADM+21, PRINTDIS+1~, PRINTDIS+17*, PRINTDIS+31
MRSACPRD PRINTDIS+2~, PRINTDIS+27*, PRINTDIS+32
NARES24 PRINTADM+1~, PRINTADM+14*, PRINTADM+21
NARES24A PRINTDIS+1~, PRINTDIS+15*, PRINTDIS+31
NARES24D PRINTDIS+2~, PRINTDIS+18*, PRINTDIS+25*, PRINTDIS+32
NARES48 PRINTADM+1~, PRINTADM+15*, PRINTADM+21
NARES48A PRINTDIS+1~, PRINTDIS+16*, PRINTDIS+31
NARES48D PRINTDIS+2~, PRINTDIS+18*, PRINTDIS+26*, PRINTDIS+32
NUMLOCS PRINT+1~, PRINT+4*, PRINT+5*, PRINT+9, PRINT+24, PRINT+25
OUTDATE PRINT+1~, PRINT+20*, PRINT+21, PRINTDIS+21
OUTDATEE PRINTDIS+1~, PRINTDIS+18*, PRINTDIS+21*, PRINTDIS+32
OUTIFN PRINTDIS+1~, PRINTDIS+19*, PRINTDIS+20, PRINTDIS+24
OUTTT PRINTDIS+2~, PRINTDIS+18*, PRINTDIS+22*, PRINTDIS+23
PATIENT PRINTADM+1~, PRINTADM+4*, PRINTADM+21, PRINTDIS+1~, PRINTDIS+5*, PRINTDIS+31
PG PRINT+1~, PRINT+2*, PRTHDRA+5, PRTHDRA+10*, PRTHDRD+5, PRTHDRD+12*, PRTSUMA+8, PRTSUMA+22*, PRTSUMD+8, PRTSUMD+17*
PREVLOC PRINT+1~, PRINT+12*, PRINT+14, PRINT+15*, PRINT+24, PRINT+25
>> PRTSUM PRINT+6
>> STRTDT PRTHDRA+4, PRTHDRD+4, PRTSUMA+7, PRTSUMD+7
TRANS PRINTDIS+2~, PRINTDIS+28*, PRINTDIS+32
U PRINTADM+5, PRINTADM+8, PRINTADM+10, PRINTADM+11, PRINTADM+12, PRINTADM+14, PRINTADM+15, PRINTADM+16, PRINTADM+17, PRINTADM+19
, PRINTDIS+6, PRINTDIS+9, PRINTDIS+11, PRINTDIS+12, PRINTDIS+13, PRINTDIS+15, PRINTDIS+16, PRINTDIS+17, PRINTDIS+19, PRINTDIS+22
, PRINTDIS+24, PRINTDIS+25, PRINTDIS+26, PRINTDIS+27, PRINTDIS+28, PRINTDIS+30, PRTSUMA+12, PRTSUMA+13, PRTSUMA+14, PRTSUMA+15
, PRTSUMA+17, PRTSUMA+18, PRTSUMA+19, PRTSUMA+20, PRTSUMA+21, PRTSUMD+12, PRTSUMD+13, PRTSUMD+14, PRTSUMD+15, PRTSUMD+16
VADM PRINTADM+1~, PRINTDIS+2~
VADM(1 PRINTADM+4, PRINTDIS+5
VADM(2 PRINTADM+5, PRINTDIS+6
VAIP PRINTADM+1~, PRINTDIS+2~
VAIP("E" PRINTADM+10*, PRINTDIS+11*, PRINTDIS+24*
VAIP(4 PRINTADM+11, PRINTDIS+12, PRINTDIS+24
VAIP(5 PRINTADM+12, PRINTDIS+13
WARD PRINTADM+1~, PRINTADM+12*, PRINTADM+21, PRINTDIS+2~, PRINTDIS+13*, PRINTDIS+31
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All