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

Package: Dietetics

Routine: FHMMNPRT


Information

FHMMNPRT ;Hines OIFO/RTK,AAC - Mult Monitor Report Print ;02/08/06 10:29

Source Information

Source file <FHMMNPRT.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
THEND ;
D1END
DISP ;
DISP2
MESSAGE ;
END
PG ;
HDR ;Header
LINE
MNAME ;
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"NO PATIENTS WITH MONITORS IN GIVEN DATE RANGE"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,"** TOTAL COMMUNICATIONS OFFICE - Admissions.....: ",NAME
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !!?16,"Totals for ALL ",$S(FHSORT="C":"Clinicians.......: ",1:"Wards............: "),$J(ALLMON1,3)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !?16,"Monitor: Albumin < 2.8..........: ",$J(MM1,3)," ",$J(((MM1/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !?16,"Monitor: BMI < 18.5...............: ",$J(MM2,3)," ",$J(((MM2/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !?16,"Monitor: NPO+Clr Liq > 3 days...: ",$J(MM3,3)," ",$J(((MM3/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Hyperals............: ",$J(MM4,3)," ",$J(((MM4/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Tubefeeding.........: ",$J(MM5,3)," ",$J(((MM5/ALLMON)*100),1,2),"%"
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !!,"*** TOTAL PATIENTS WITH MONITORS ALL COMMUNICATION OFFICES....: ",CTCOMM
  • Line Location: THEND+2
Function Call: WRITE
  • Prompt: !!?16,"Totals for ALL ",$S(FHSORT="C":"Clinicians.......: ",1:"Wards............: "),$J(ALLMON,3)
  • Line Location: THEND+4
Function Call: WRITE
  • Prompt: !?16,"Monitor: Albumin < 2.8..........: ",$J(M1,3)," ",$J(((M1/ALLMON)*100),1,2),"%"
  • Line Location: THEND+5
Function Call: WRITE
  • Prompt: !?16,"Monitor: BMI < 18.5...............: ",$J(M2,3)," ",$J(((M2/ALLMON)*100),1,2),"%"
  • Line Location: THEND+6
Function Call: WRITE
  • Prompt: !?16,"Monitor: NPO+Clr Liq > 3 days...: ",$J(M3,3)," ",$J(((M3/ALLMON)*100),1,2),"%"
  • Line Location: THEND+7
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Hyperals............: ",$J(M4,3)," ",$J(((M4/ALLMON)*100),1,2),"%"
  • Line Location: THEND+8
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Tubefeeding.........: ",$J(M5,3)," ",$J(((M5/ALLMON)*100),1,2),"%"
  • Line Location: THEND+9
Function Call: WRITE
  • Prompt: !,"PERCENTAGE..........:",?23,$J(((ALLMON/FHTADM)*100),1,2),"%"
  • Line Location: THEND+13
Function Call: WRITE
  • Prompt: !
  • Line Location: D1END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+1
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: DISP2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+10
Function Call: WRITE
  • Prompt: !!,"* CLINICIAN: ",ZZ
  • Line Location: DISP2+22
Function Call: WRITE
  • Prompt: !!,"* WARD: ",ZZ
  • Line Location: DISP2+23
Function Call: WRITE
  • Prompt: !?16,"Total Number of Monitors........: ",$J(MON,3)
  • Line Location: DISP2+24
Function Call: WRITE
  • Prompt: !?16,"Monitor: Albumin < 2.8..........: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP2+25
Function Call: WRITE
  • Prompt: !?16,"Monitor: BMI < 18.5...............: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP2+26
Function Call: WRITE
  • Prompt: !?16,"Monitor: NPO+Clr Liq > 3 days...: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP2+27
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Hyperals............: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP2+28
Function Call: WRITE
  • Prompt: !?16,"Monitor: On Tubefeeding.........: ",$J(PCE,3)," ",$J(((PCE/MON)*100),1,2),"%"
  • Line Location: DISP2+29
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+30
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: !,?25,"Nutrition Monitor Statistic Report"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,NAME,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Admission",?13,"Patient",?39,"SSN",?45,"Status",?56,"Monitor(s)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+1
Info |  Source |  Entry Points |  Interaction Calls