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

Package: Dietetics

Routine: FHMMNADM


Information

FHMMNADM ;Hines OIFO/JT,RTK,AAC - Multidiv Adm/Disc Monitor Report ;10/10/03 10:34

Source Information

Source file <FHMMNADM.m>

Entry Points

Name Comments DBIA/ICR reference
COM ;Get Communication Offices
DATE ;sets date
EN ;get admission/monitor information
COFF ;get communication offices
COFF2 ;
WRT ;write info
;
EN1 ;discharges
END ;end/kill/quit
THEND ;end/kill/quit
DEV ;get device and set up queue
KL ;
N2 ;Find Communications Office
PG ;
HDR ;Header

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Print report for all Communications Offices Y or N: "
  • Variable: ZCO
  • Timeout: DTIME
  • Line Location: COM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+5
Function Call: WRITE
  • Prompt: !,Y,?13,$E($P($G(^DPT(DFN,0)),U,1),U,23)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?39,$E($P($G(^DPT(DFN,0)),U,9),6,9)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?48,"Yes"
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?56,Y
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !!,"TOTAL "_$S(TYP="A":"ADMISSIONS",TYP="D":"DISCHARGES")_": ",?22,MVTOT
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"TOTAL WITH MONITORS:",?22,MONTOT
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !,"Percentage of "
  • Line Location: END+7
Function Call: WRITE
  • Prompt: $S(TYP="A":"Admissions",TYP="D":"Discharges")
  • Line Location: END+8
Function Call: WRITE
  • Prompt: " with Monitors: ",FHPER,"%"
  • Line Location: END+9
Function Call: WRITE
  • Prompt: !
  • Line Location: END+10
Function Call: WRITE
  • Prompt: !!,"ALL TOTAL "_$S(TYP="A":"ADMISSIONS",TYP="D":"DISCHARGES")_": ",?22,ALLMV
  • Line Location: THEND+5
Function Call: WRITE
  • Prompt: !,"TOTAL WITH MONITORS:",?22,ALLMON
  • Line Location: THEND+6
Function Call: WRITE
  • Prompt: !,"Percentage of "
  • Line Location: THEND+9
Function Call: WRITE
  • Prompt: $S(TYP="A":"Admissions",TYP="D":"Discharges")
  • Line Location: THEND+10
Function Call: WRITE
  • Prompt: " with Monitors: ",ALLFHPER,"%"
  • Line Location: THEND+11
Function Call: WRITE
  • Prompt: !,"Task #",ZTSK
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !,"DIETETIC MONITOR REPORT (Monitoring "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $S(TYP="A":"Admissions",TYP="D":"Discharges")_")"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,FHNDT,?60,"Page: "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: PG,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?5,"Communication Offices: ",CNAME,!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "Admission",?13,"Patient",?39,"SSN",?45,"Monitor?",?56,"Discharge"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls