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

Package: Dietetics

Routine: FHMNPRT


Information

FHMNPRT ;Hines OIFO/RTK - Dietetics Monitor Report Print ;02/08/06 10:29

Source Information

Source file <FHMNPRT.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
D1END
DISP ;
MESSAGE ;
END
PG ;
HDR ;Header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"NO PATIENTS WITH MONITORS IN GIVEN DATE RANGE"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!?16,"Totals for ALL ",$S(FHSORT="C":"Clinicians.......: ",1:"Wards............: "),$J(ALLMON,3)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?16,"Monitor: Albumin ...............: ",$J(M1,3)," ",$J(((M1/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !?16,"Monitor: BMI .....................: ",$J(M2,3)," ",$J(((M2/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !?16,"Monitor: NPO+Clr Liq > 3 days...: ",$J(M3,3)," ",$J(((M3/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Hyperals............: ",$J(M4,3)," ",$J(((M4/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Tubefeeding.........: ",$J(M5,3)," ",$J(((M5/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !!!,"TOTAL ADMISSIONS....:",?23,FHTADM
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,"TOTAL MONITORS......:",?23,ALLMON
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,"PERCENTAGE..........:",?23,$J(((ALLMON/FHTADM)*100),1,2),"%"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: D1END+0
Function Call: WRITE
  • Prompt: !!?25,"CLINICIAN: ",ZZ
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!?25,"WARD: ",ZZ
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !!?16,"Total Number of Monitors........: ",$J(MON,3)
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !?16,"Monitor: Albumin ...............: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP+27
Function Call: WRITE
  • Prompt: !?16,"Monitor: BMI .....................: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP+28
Function Call: WRITE
  • Prompt: !?16,"Monitor: NPO+Clr Liq > 3 days...: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP+29
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Hyperals............: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Tubefeeding.........: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+32
Function Call: WRITE
  • Prompt: !!?5,"NO PATIENTS WITH MONITORS IN GIVEN DATE RANGE"
  • Line Location: MESSAGE+1
Function Call: WRITE
  • Prompt: !?10,"FOR THIS ",$S(FHSORT="C":"CLINICIAN",1:"WARD"),": ",FHNXIEN
  • Line Location: MESSAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,FHNDT,?60,"Page: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: PG,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Admission",?13,"Patient",?39,"SSN",?45,"Status",?56,"Monitor(s)"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+3
Info |  Source |  Entry Points |  Interaction Calls