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

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

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
Info |  Source |  Entry Points |  Interaction Calls