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

Package: Methicillin Resistant Staph Aurerus Initiative Reports

Routine: MMRSCDI2


Information

MMRSCDI2 ;LEIDOS/TCK - Print CDI report ; 4/12/17 11:57am

Source Information

Source file <MMRSCDI2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Methicillin Resistant Staph Aurerus Initiative Reports 3 CHKPAR^MMRSCDI  GETLAB^MMRSCDI1  CHECK^MMRSIPC  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
Registration 2 $$UPPER^DGUTL  (DEM,KVA)^VADPT  
VA FileMan 2 FIND^DIC  $$GET1^DIQ  
Order Entry Results Reporting 1 EN^ORX8  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
CHECK ; Check if lab tests and etiologies are setup
ERROR ;
MAIN2 ; Entry for queuing
GTDIV(MMRSDIV) ;
CLEAN ;
GETPARAM ; Loads lab search/extract parameters from file 104.1
GETDIV(MMRSDIV) ;
SETDATA ;
SETDATA2(DFN) ;
GTDATE(DFN,CDIVT,IND,DCDT) ;
GORDITM(LABTEST,LABORDER,TESTS) ;MIA/LMT - Added with patch MMRS*1*1 - Include panels in search
GETORD(DFN,ORDITM,INDATE) ;
PRT ;
PRTHDRS ; Helper Function for PRT - Prints report headers
ASKDVC ;Prompts user for device of output (allows queuing)
QUIT ;

External References

Name Field # of Occurrence
$$UPPER^DGUTL CHECK+9
FIND^DIC GETPARAM+48
$$GET1^DIQ CHECK+8, CHECK+17, CHECK+26, GTDIV+6, GTDIV+9, GTDIV+11, GTDIV+12, GTDIV+13, GETPARAM+10, GETPARAM+11
GETPARAM+23, SETDATA2+12, SETDATA2+14, SETDATA2+20, SETDATA2+21, SETDATA2+22, SETDATA2+30, GTDATE+12, GTDATE+13, GTDATE+14
, GTDATE+21, GTDATE+23, PRT+52
CHKPAR^MMRSCDI GETPARAM+24
GETLAB^MMRSCDI1 SETDATA2+5
CHECK^MMRSIPC MAIN+8
EN^ORX8 GETORD+7
DEM^VADPT PRT+47
KVA^VADPT PRT+46, PRT+49
$$FMADD^XLFDT MAIN+13, GETORD+3
$$FMTE^XLFDT PRT+35, PRT+38, PRT+41, PRT+44, PRT+51, PRTHDRS+5, PRTHDRS+6
$$NOW^XLFDT MAIN+11, MAIN+17, MAIN2+1
EN^XUTMDEVQ ASKDVC+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !!,"END OF REPORT"
  • Line Location: PRT+58
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDRS+1
Function Call: WRITE
  • Prompt: ?13,"FACILITY CDI CASES REPORT"
  • Line Location: PRTHDRS+2
Function Call: WRITE
  • Prompt: !,?13,"Division: ",DIVSN
  • Line Location: PRTHDRS+3
Function Call: WRITE
  • Prompt: !,?13,"Geographical Location: ",WARDNAME
  • Line Location: PRTHDRS+4
Function Call: WRITE
  • Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT)
  • Line Location: PRTHDRS+5
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?75,"PAGE: ",PG
  • Line Location: PRTHDRS+6
Function Call: WRITE
  • Prompt: !,"PATIENT",?25,"SSN",?30,"DOB",?42,"CDI Event D/T",?70,"ADM D/T",?90,"LOCATION",?105,"DC D/T",?130,"PREV CDI Event D/T"
  • Line Location: PRTHDRS+7
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PRTHDRS+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKDVC+1
Function Call: WRITE
  • Prompt: !!!,"This report is designed for a 132 column format (compressed).",!
  • Line Location: ASKDVC+3
Routine Call
  • DIC
  • Line Location:
    • GETPARAM+48

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MMRS(104 - [#104] GET1^DIQ
^MMRS(104.1 - [#104.1] GET1^DIQ
104.109 GET1^DIQ
104.15 GET1^DIQ
^MMRS(104.2 - [#104.2] GET1^DIQ
^DPT - [#2] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^SC - [#44] GET1^DIQ
^LAB(61.2 - [#61.2] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APTT" GTDATE+6, GTDATE+9, GTDATE+16, GTDATE+20
^DGPM("APTT1" GTDATE+4
^DPT - [#2] SETDATA+2
^LAB(60 - [#60] GORDITM+7
^MMRS(104 - [#104] GETDIV+3
^MMRS(104.1 - [#104.1] CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+12, CHECK+14, CHECK+21, CHECK+22, GTDIV+3, GTDIV+4
, GTDIV+7, GETPARAM+21, GETPARAM+28, GETPARAM+29, GETPARAM+32, GETPARAM+34, GETPARAM+35, GETPARAM+37, GETPARAM+38, GETPARAM+40
GETPARAM+41, GETPARAM+44, GETPARAM+45, GETPARAM+46
^MMRS(104.2 - [#104.2] GETPARAM+6
^ORD(101.43 - [#101.43] GORDITM+4
^PXRMINDX(100 GETORD+4, GETORD+5, GETORD+6
^PXRMINDX(63 SETDATA+3
^TMP($J CLEAN+1!, CLEAN+2!, CLEAN+3!, GETPARAM+17!, GETPARAM+32*, GETPARAM+36*, GETPARAM+39*, GETPARAM+42!, GETPARAM+43*, GETPARAM+46*
GETPARAM+53!, GETPARAM+54*, SETDATA2+25, SETDATA2+26, SETDATA2+28, SETDATA2+31, SETDATA2+32, SETDATA2+34, SETDATA2+38*, PRT+12!
PRT+13!, PRT+18, PRT+22, PRT+24, PRT+26, PRT+27!, PRT+28, PRT+29, PRT+30, QUIT+3!

Label References

Name Line Occurrences
$$GETORD GORDITM+5
CHECK MAIN+9
CLEAN MAIN+7
GETDIV GETPARAM+7
GETPARAM MAIN2+3
GORDITM SETDATA2+29, GORDITM+8
GTDATE SETDATA2+23
MAIN2 MAIN+18
PRT MAIN2+2, MAIN2+4
PRTHDRS PRT+20, PRT+25, PRT+57
QUIT MAIN+19
SETDATA GETPARAM+55
SETDATA2 SETDATA+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADT PRT+11~
ANTI GETPARAM+2~, GETPARAM+44*, GETPARAM+45, GETPARAM+46
ANTIM GETPARAM+2~, GETPARAM+45*, GETPARAM+46
BACT GETPARAM+1~, GETPARAM+35*, GETPARAM+36, GETPARAM+38*, GETPARAM+39
CD SETDATA2+35*, SETDATA2+36, PRT+29*, PRT+30, QUIT+3!
CDI QUIT+1!
CDIVT SETDATA2+3*, SETDATA2+9*, SETDATA2+17, SETDATA2+23, SETDATA2+31, SETDATA2+35, SETDATA2+36, SETDATA2+37, SETDATA2+38, GTDATE~
, GTDATE+3, GTDATE+8, GTDATE+24, PRT+34*, PRT+35*, PRT+36*, PRT+53
CHK GETPARAM+5*, GETPARAM+24, GETPARAM+25, QUIT+4!
CNT QUIT+3!
COUNT PRT+11~, PRT+54*
DAS GETORD+1~, GETORD+6*, GETORD+7
DATE GTDATE+1~, GTDATE+5*, GTDATE+6*, GTDATE+7, GTDATE+8, GTDATE+9, GTDATE+16, GTDATE+18*, GTDATE+19, GTDATE+20
DCDATE SETDATA2+1~, SETDATA2+23, SETDATA2+24*, SETDATA2+38
DCDT GTDATE~, GTDATE+2*, GTDATE+23*, GTDATE+24*, GTDATE+25, PRT+40*, PRT+41*, PRT+42*, PRT+53
DFLTDT MAIN+14*, MAIN+15*, QUIT+4!
DFN SETDATA+1~, SETDATA+2*, SETDATA+3, SETDATA+4, SETDATA+5, SETDATA2~, SETDATA2+5, SETDATA2+23, SETDATA2+30, SETDATA2+31
, SETDATA2+32, SETDATA2+34, SETDATA2+38, GTDATE~, GTDATE+4, GTDATE+6, GTDATE+9, GTDATE+16, GTDATE+20, GORDITM+5
, GETORD~, GETORD+4, GETORD+5, GETORD+6, PRT+11~, PRT+28*, PRT+29, PRT+30, PRT+52
DIV GTDIV+1~, GTDIV+12*, GTDIV+13, GTDIV+14, GTDIV+15*, GETDIV+1~
DIVN GETPARAM+5*, GETPARAM+8*, GETPARAM+9, GETPARAM+10, GETPARAM+13, GETPARAM+14, GETPARAM+19*, GETPARAM+20, GETPARAM+21, GETPARAM+24
QUIT+4!
DIVSN GETPARAM+11*, GETPARAM+12, GETPARAM+14, GETPARAM+15*, GETPARAM+16*, GETPARAM+19, GETPARAM+20*, SETDATA2+13, SETDATA2+38, PRT+17*
PRT+18, PRT+22, PRT+24, PRT+26, PRT+27, PRT+28, PRT+29, PRT+30, PRTHDRS+3, QUIT+4!
DL PRT+55*, QUIT+4!
DOB PRT+11~, PRT+52*, PRT+53
DPTR GTDIV+1~, GTDIV+11*, GTDIV+12, GTDIV+15*, GETDIV+1~
DVS PRT+15*, PRT+16*, PRT+17, QUIT+5!
DVSN SETDATA2+12*, SETDATA2+13, QUIT+5!
EBACT GETPARAM+1~, GETPARAM+37*, GETPARAM+38, GETPARAM+39
ENDDT MAIN+13*, MAIN+14, PRTHDRS+5, QUIT+1!
ETI GTDIV+1~, GTDIV+9*, GTDIV+10, GETDIV+1~
ETIO CHECK+8*, CHECK+9*, CHECK+10, QUIT+3!
ETIOL GETPARAM+2~, GETPARAM+40*, GETPARAM+41, GETPARAM+44, GETPARAM+45, GETPARAM+46
ETIOLOGY GETPARAM+2~, GETPARAM+41*, GETPARAM+42, GETPARAM+43, GETPARAM+46, GETPARAM+47
ETIONAME CHECK+1~, CHECK+28*, GETPARAM+2~, GETPARAM+50*, GETPARAM+52
ETOP GETPARAM+1~
EXTFLG MAIN+1~, MAIN+10, MAIN+16!, ERROR+2*
FIRST MAIN+12*, MAIN+13, QUIT+5!
FND GETPARAM+26*, GTDATE+2*, GTDATE+6, GTDATE+15*, GTDATE+17*, GTDATE+24*, GTDATE+25*, QUIT+1!
I GTDIV+1~, GTDIV+2*, GTDIV+3*, GTDIV+4, GTDIV+5, GTDIV+7, GTDIV+8, GTDIV+11, GETDIV+1~, GETDIV+2*
, GETDIV+3*, GETDIV+4, SETDATA2+7*, SETDATA2+8, SETDATA2+9, SETDATA2+10, SETDATA2+11, SETDATA2+18, QUIT+3!
IBACT GETPARAM+1~, GETPARAM+34*, GETPARAM+35, GETPARAM+36
IEN GETPARAM+1~, GETPARAM+21*, GETPARAM+22, GETPARAM+23, GETPARAM+28, GETPARAM+29, GETPARAM+32, GETPARAM+40, GETPARAM+41, GETPARAM+46
, SETDATA2+1~, GTDATE+1~, GTDATE+9*, GTDATE+10, GTDATE+11, GTDATE+12, GTDATE+13, GTDATE+20*, GTDATE+21
II CHECK+1~, CHECK+4*, CHECK+5, CHECK+6, CHECK+12, CHECK+14, CHECK+15, CHECK+21, CHECK+22, CHECK+25
CHECK+28
III CHECK+15*, CHECK+16, CHECK+17, CHECK+25*, CHECK+26, QUIT+3!
INC GETPARAM+2~, GETPARAM+26*, GETPARAM+31*
IND GTDATE~, GTDATE+2*, GTDATE+12*
INDATE SETDATA2+1~, SETDATA2+23, SETDATA2+24*, SETDATA2+38, GORDITM+5, GETORD~, GETORD+3, PRT+37*, PRT+38*, PRT+39*
PRT+53
INIFN SETDATA2+1~
INTT SETDATA2+1~, PRT+11~
IOF PRTHDRS+1
IOSL PRT+57
ITOP GETPARAM+1~
IX CHECK+11*, CHECK+12*, CHECK+13, CHECK+14, CHECK+15, QUIT+3!
IXI CHECK+22*, CHECK+23, CHECK+24, CHECK+25, QUIT+5!
LABORDER SETDATA2+1~, SETDATA2+16*, SETDATA2+29, GORDITM~, GORDITM+6*, GORDITM+8
LABPANEL GORDITM+1~, GORDITM+7*, GORDITM+8
LABREC GETORD+1~, GETORD+10*, GETORD+11*, GETORD+12
LABTEST SETDATA2+1~, GORDITM~, GORDITM+2, GORDITM+3, GORDITM+4, GORDITM+7
LAST4 PRT+11~, PRT+48*, PRT+53
LCPTR QUIT+1!
LIEN GTDIV+5*, GTDIV+6, GTDIV+8*, GTDIV+9, GTDIV+10!
LN PRT+11~, PRT+14*, PRTHDRS+8
LOC SETDATA2+2*, SETDATA2+11*, SETDATA2+12, SETDATA2+14, SETDATA2+20, SETDATA2+21, SETDATA2+22, GTDATE+14, QUIT+4!
LOCATION SETDATA+1~
LOCNAME SETDATA+1~, PRT+11~
LOCNME GTDATE+14*, GTDATE+15, QUIT+5!
LOCTYPE SETDATA+1~
LRFILE SETDATA2+19*, SETDATA2+20, SETDATA2+21, SETDATA2+22, QUIT+1!
MDRO GETPARAM+3~, GETPARAM+18*, GETPARAM+32, GETPARAM+36, GETPARAM+39, GETPARAM+43, GETPARAM+46, SETDATA2+26*, SETDATA2+27, SETDATA2+28
MDROETIO CHECK+2*, CHECK+4, CHECK+22, CHECK+28*, ERROR+1, GETPARAM+33, QUIT+3!
MMRSDIV MAIN2+2, GTDIV~, GETPARAM+4, GETPARAM+7, GETDIV~, PRT+1, QUIT+4!
MMRSDIV( GTDIV+14*, GETPARAM+8, GETPARAM+13!, GETPARAM+14*, GETPARAM+16, GETPARAM+19, GETDIV+4*, PRT+16
MMRSET CHECK+1~, GETPARAM+2~
MMRSET("DILIST" GETPARAM+49, GETPARAM+50, GETPARAM+51
MMRSI CHECK+1~, GETPARAM+2~, GETPARAM+49*, GETPARAM+50, GETPARAM+51, SETDATA+1~
MMRSLOC MAIN+1~
MMRSMDRO GETPARAM+6*, GETPARAM+18, GETPARAM+21, GETPARAM+34, GETPARAM+35, GETPARAM+37, GETPARAM+38, GETPARAM+44, GETPARAM+45, GETPARAM+53
GETPARAM+54, SETDATA2+5, QUIT+1!
MMRSNOW MAIN+11*, MAIN+17*, MAIN2+1*, SETDATA2+5, PRTHDRS+6, QUIT+4!
MMRSVAR ASKDVC+2~, ASKDVC+7
MMRSVAR("DFLTDT" ASKDVC+4*
MMRSVAR("ENDDT" ASKDVC+4*
MMRSVAR("MDROETIO" ASKDVC+5*
MMRSVAR("MMRSDIV" ASKDVC+6*
MMRSVAR("MMRSDIV(" ASKDVC+6*
MMRSVAR("MMRSNOW" ASKDVC+5*
MMRSVAR("STRTDT" ASKDVC+4*
MMRSVAR("TSTSTP" ASKDVC+5*
MRSA SETDATA2+1~, SETDATA2+5, SETDATA2+6, SETDATA2+10*, SETDATA2+18*, SETDATA2+38, SETDATA2+39!, QUIT+3!
MRSA( SETDATA2+7, SETDATA2+10, SETDATA2+11, SETDATA2+18, SETDATA2+35
MRSACULT SETDATA2+1~
MRSASTAP CHECK+1~, GETPARAM+2~
NOCONF MAIN+2*, GETPARAM+5*, GETPARAM+8, GETPARAM+12*, GETPARAM+16, GETPARAM+20*, GETPARAM+25*, PRT+6, QUIT+4!
NODE PRT+11~, PRT+30*, PRT+31, PRT+32, PRT+33, PRT+34, PRT+37, PRT+40, PRT+43, PRT+50
NOW MAIN+11*, MAIN+12, QUIT+5!
NXDT GTDATE+16*, GTDATE+17!, GTDATE+18*
ORDDATE PRT+11~, PRT+50*, PRT+51*
ORDITM SETDATA2+1~, GORDITM+1~, GORDITM+4*, GORDITM+5, GETORD~, GETORD+4, GETORD+5, GETORD+6
ORDTEMP SETDATA2+1~, GORDITM+1~, GORDITM+5*, GORDITM+6
ORG CHECK+1~, CHECK+28*, GETPARAM+2~, GETPARAM+51*, GETPARAM+53, GETPARAM+54
ORGP CHECK+6*, CHECK+7, CHECK+8, GETPARAM+23*, GETPARAM+24, QUIT+3!
ORUPCHUK GETORD+1~
ORUPCHUK("ORSTS" GETORD+8
PATNM SETDATA2+1~, SETDATA2+30*, SETDATA2+31, SETDATA2+32, SETDATA2+34, SETDATA2+38, PRT+11~, PRT+26*, PRT+27, PRT+28
PRT+29, PRT+30, PRT+53
PCD SETDATA2+3*, SETDATA2+30*, SETDATA2+33*, SETDATA2+34*, SETDATA2+36*, SETDATA2+38*, QUIT+3!
PCDIVT QUIT+1!
PG PRT+11~, PRT+15*, PRTHDRS+6, PRTHDRS+9*
PRINT QUIT+1!
PRVCDI PRT+11~, PRT+43*, PRT+44*, PRT+45*, PRT+53, PRT+56*
PTR GETPARAM+10*, GETPARAM+11, QUIT+4!
QUIT PRT+11~, PRT+15*, PRT+22, PRT+23*
RESULT GETORD+1~, GETORD+2*, GETORD+12*, GETORD+13
SDRESULT SETDATA+1~
SERV SETDATA2+22*, SETDATA2+38, PRT+32*, QUIT+1!
STAID GTDIV+1~, GTDIV+13*, GTDIV+14, GTDIV+15*, GETDIV+1~
START GETORD+1~, GETORD+3*, GETORD+4*, GETORD+5, GETORD+6, GETORD+12
STATUS GETORD+1~, GETORD+8*, GETORD+9, GETORD+11
STOP GETORD+1~, GETORD+5*, GETORD+6
STPCD SETDATA2+20*, SETDATA2+38, PRT+33*, QUIT+2!
STRTDT MAIN+14*, MAIN+15, SETDATA2+37, PRTHDRS+5, QUIT+2!
TEST GETPARAM+1~, GETPARAM+29*, GETPARAM+30, GETPARAM+32
TESTS SETDATA2+29~, GORDITM~, GORDITM+8
TESTS( GORDITM+2, GORDITM+3*
TIEN GETPARAM+1~, GETPARAM+28*, GETPARAM+29, GETPARAM+32, GTDATE+21*, GTDATE+22, GTDATE+23
TOP GETPARAM+1~
TST CHECK+1~, CHECK+17*, CHECK+18, CHECK+19, GTDIV+1~, GTDIV+6*, GTDIV+10, GETPARAM+1~, GETPARAM+26*, GETDIV+1~
, SETDATA2+28*, SETDATA2+29
TSTNM GETPARAM+1~, SETDATA2+1~
TSTSTP CHECK+2*, CHECK+4, CHECK+12, CHECK+18*, CHECK+20*, ERROR+1, GETPARAM+27, QUIT+4!
TT GTDATE+5*, GTDATE+6, GTDATE+9, GTDATE+16, GTDATE+20, QUIT+5!
TYPE SETDATA2+21*, SETDATA2+24, SETDATA2+38, PRT+31*, QUIT+2!
U GETPARAM+29, GETPARAM+32, GETPARAM+45, GETPARAM+50, GETPARAM+51, SETDATA2+38, GORDITM+6, GETORD+8, GETORD+12, PRT+40
PRT+43, PRT+48
VADM SETDATA2+1~, PRT+11~
VADM(2 PRT+48
VAIP SETDATA+1~
WARD SETDATA+1~
WARDNAME SETDATA+1~, SETDATA2+14*, SETDATA2+31, SETDATA2+32, SETDATA2+34, SETDATA2+38, PRT+19*, PRT+22*, PRT+23, PRT+24
PRT+26, PRT+27, PRT+28, PRT+29, PRT+30, PRT+53, PRTHDRS+4
WLOC SETDATA+1~
WPTR QUIT+2!
WRD GTDATE+13*, GTDATE+15, QUIT+5!
WRDNME SETDATA+1~
WRDPTR QUIT+2!
X1 QUIT+3!
X10 QUIT+2!
X11 QUIT+3!
X12 QUIT+2!
X2 QUIT+2!
X3 QUIT+2!
X4 QUIT+2!
X5 QUIT+2!
X6 QUIT+2!
X7 QUIT+2!
X8 QUIT+2!
X9 QUIT+2!
XX CHECK+1~, CHECK+26*, CHECK+27, CHECK+28
Y SETDATA+1~
ZTQUEUED MAIN+4, QUIT+5!
ZTSK ASKDVC+2~, ASKDVC+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All