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

Package: Dietetics

Routine: FHMNADM


Information

FHMNADM ;Hines OIFO/JT,RTK - Dietetics Adm/Disc Monitor Report ;06/12/02 10:34

Source Information

Source file <FHMNADM.m>

Entry Points

Name Comments DBIA/ICR reference
DATE ;sets date
EN ;get admission/monitor information
WRT ;write info
;
EN1 ;discharges
END ;end/kill/quit
;
KL
DEV ;get device and set up queue
PG ;
HDR ;Header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,Y,?13,$E($P(^DPT(DFN,0),U,1),U,23)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?39,$E($P(^(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: !,"Task #",ZTSK
  • Line Location: DEV+6
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: "Admission",?13,"Patient",?39,"SSN",?45,"Monitor?",?56,"Discharge"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+7
Info |  Source |  Entry Points |  Interaction Calls