Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHMMNREP  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT FHMMNPRT+4
NOW^%DTC FHMMNPRT+4
^DIR D1END, PG+1

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
Routine Call
  • DIR
  • Line Location:
    • D1END
    • PG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DISP2+4
^FH(119.73 - [#119.73] MNAME+2, MNAME+3
^TMP($J PRINT+4, PRINT+6, DISP+2, DISP2, DISP2+3, DISP2+5, DISP2+6, DISP2+7, DISP2+8

Label References

Name Line Occurrences
D1END PRINT+5
DISP PRINT+5, PRINT+8
END PRINT+14, PRINT+15, D1END+1
HDR DISP2+1, PG+2
LINE THEND+14
MESSAGE PRINT+4
MNAME PRINT+2, MNAME+3
PG PRINT+7, PRINT+17, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, THEND+1, THEND+5
, THEND+6, THEND+7, THEND+8, THEND+9, DISP2+15, DISP2+24, DISP2+25, DISP2+26, DISP2+27, DISP2+28
PRINT PRINT+29
THEND MNAME+1, MNAME+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ALLMON FHMMNPRT+3*, PRINT+9*, PRINT+15, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, THEND+4, THEND+5
, THEND+6, THEND+7, THEND+8, THEND+9
>> ALLMON1 FHMMNPRT+3*, PRINT+10*, PRINT+19, PRINT+28*
>> CO MNAME+1
>> COMM FHMMNPRT+3*, PRINT+4, PRINT+6, DISP+2, DISP2, DISP2+3, DISP2+5, DISP2+6, DISP2+7, DISP2+8
, DISP2+13, DISP2+14, DISP2+25, DISP2+26, DISP2+27, DISP2+28, DISP2+29, MNAME+1*, MNAME+2*
>> CONAME MNAME+1
>> CONUMX MNAME+1*
>> COUNT FHMMNPRT+3*, MNAME+2*, MNAME+3
>> COXX MNAME+1*
>> CTCOMM FHMMNPRT+3*, THEND+2, DISP2+2*
>> DFN DISP2+3*, DISP2+9, DISP2+11
DIR D1END!, PG+1!
DIR(0 D1END*, PG+1*
>> EX FHMMNPRT+4*, PRINT+6, PRINT+14, PRINT+17, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25
, THEND+1, THEND+5, THEND+6, THEND+7, THEND+8, THEND+9, D1END, DISP2, DISP2+1, DISP2+9
, DISP2+15, DISP2+21, DISP2+24, DISP2+25, DISP2+26, DISP2+27, DISP2+28, PG+1*
FHMNTT FHMMNPRT+5!, END!
FHMNTT( DISP2+13*, DISP2+14*, DISP2+25, DISP2+26, DISP2+27, DISP2+28, DISP2+29
>> FHMON( DISP2+9, DISP2+11
>> FHNDT FHMMNPRT+4*, HDR+1
>> FHNXIEN PRINT+4, PRINT+5, PRINT+6, PRINT+14, MESSAGE+2
>> FHSORT PRINT+19, THEND+4, DISP2+22, DISP2+23, MESSAGE+2
HH DISP2*, DISP2+3, DISP2+5, DISP2+6, DISP2+7, DISP2+8, DISP2+9, DISP2+11, END!
IOF HDR+1
IOSL PRINT+17, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, THEND+5, THEND+6, THEND+7
, THEND+8, THEND+9, DISP2+1, DISP2+15, DISP2+24, DISP2+25, DISP2+26, DISP2+27, DISP2+28
IOST PG+1
M1 FHMMNPRT+3*, PRINT+11*, THEND+5, END!
M2 FHMMNPRT+3*, PRINT+11*, THEND+6, END!
M3 FHMMNPRT+3*, PRINT+11*, THEND+7, END!
M4 FHMMNPRT+3*, PRINT+11*, THEND+8, END!
M5 FHMMNPRT+3*, PRINT+11*, THEND+9, END!
>> MM1 PRINT+1*, PRINT+12*, PRINT+21, PRINT+28*
>> MM2 PRINT+1*, PRINT+12*, PRINT+22, PRINT+28*
>> MM3 PRINT+1*, PRINT+12*, PRINT+23, PRINT+28*
>> MM4 PRINT+1*, PRINT+12*, PRINT+24, PRINT+28*
>> MM5 PRINT+1*, PRINT+12*, PRINT+25, PRINT+28*
MON FHMMNPRT+3*, PRINT+9, PRINT+10, DISP+1*, DISP2+11*, DISP2+21, DISP2+24, DISP2+25, DISP2+26, DISP2+27
, DISP2+28, DISP2+29, END!
MON1 PRINT+11, PRINT+12, DISP+1*, DISP2+25*, END!
MON2 PRINT+11, PRINT+12, DISP+1*, DISP2+26*, END!
MON3 PRINT+11, PRINT+12, DISP+1*, DISP2+27*, END!
MON4 PRINT+11, PRINT+12, DISP+1*, DISP2+28*, END!
MON5 PRINT+11, PRINT+12, DISP+1*, DISP2+29*, END!
MONTYP DISP2+11*, DISP2+12, DISP2+15, END!
>> NAME PRINT+17, THEND+1*, HDR+3, MNAME+1*, MNAME+2*
NUM DISP2+9*, DISP2+10, DISP2+11, END+1!
PC DISP2+12*, DISP2+14, END+1!
PCE DISP2+25*, DISP2+26*, DISP2+27*, DISP2+28*, DISP2+29*, END+1!
PER END+1!
PG FHMMNPRT+4*, END+1!, HDR+1*
TOT DISP+1*, DISP2+18*, END+1!
U PRINT+6, PRINT+14, PRINT+17, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, THEND+1
, THEND+5, THEND+6, THEND+7, THEND+8, THEND+9, D1END, DISP2, DISP2+1, DISP2+3, DISP2+5
, DISP2+6, DISP2+7, DISP2+8, DISP2+9, DISP2+11, DISP2+14, DISP2+15, DISP2+21, DISP2+24, DISP2+25
, DISP2+26, DISP2+27, DISP2+28, DISP2+29, PG+1
>> X FHMMNPRT+4
>> XX FHMMNPRT+4*, PRINT+3, THEND+15*
>> Y FHMMNPRT+4*, DISP2+4*, PG+1
YY DISP+2*, DISP2, DISP2+3, DISP2+4, DISP2+5, DISP2+6, DISP2+7, DISP2+8, END+1!
>> Z LINE*
>> ZCO MNAME+1, MNAME+2
>> ZOUT MNAME+2
>> ZZ PRINT+5*, PRINT+6*, DISP+2, DISP2, DISP2+3, DISP2+5, DISP2+6, DISP2+7, DISP2+8, DISP2+13
, DISP2+14, DISP2+22, DISP2+23, DISP2+25, DISP2+26, DISP2+27, DISP2+28, DISP2+29
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All