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

Package: Methicillin Resistant Staph Aurerus Initiative Reports

Routine: MMRSCDI


Information

MMRSCDI ;LEIDOS/TCK - Print CDI report ; 4/10/17 2:08pm

Source Information

Source file <MMRSCDI.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
PROMPT ;Prompt for division
DATE ;
DATE1 ;
CHKPAR(ORG,Y,CHK) ;
CHECK ; Check if lab tests and etiologies are setup
ERROR ;
MAIN2 ;
CLEAN ;
GETPARAM ; Loads lab search/extract parameters from file 104.1
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 ;
PRINTCDI ;
PRTHDRS ; Helper Function for PRT - Prints report headers
ASKDVC ;Prompts user for device of output (allows queuing)
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !!,"The start date of the range cannot be greater than one year from today."
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !!,"The end date of the range must be later than the starting date."
  • Line Location: DATE1+5
Function Call: WRITE
  • Prompt: !!,"END OF REPORT."
  • Line Location: PRT+50
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINTCDI+1
Function Call: WRITE
  • Prompt: !!!,"No CDI cases found during specified date range"
  • Line Location: PRINTCDI+2
Function Call: WRITE
  • Prompt: !!,"Delimited Report will now be printed to the screen..."
  • Line Location: PRINTCDI+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINTCDI+13
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: ",DVS
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MMRS(104 - [#104] Classic Fileman Calls,  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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call