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

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHMNREP  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT PRINT+1
NOW^%DTC PRINT+1
^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+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
Routine Call
  • DIR
  • Line Location:
    • D1END
    • PG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DISP+8

Label References

Name Line Occurrences
D1END PRINT+4
DISP PRINT+4, PRINT+6
END PRINT+10, PRINT+11, D1END+1
HDR PRINT+1, PG+2
MESSAGE PRINT+3
PG PRINT+18, DISP+6, DISP+19, DISP+26, DISP+27, DISP+28, DISP+29, DISP+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ALLMON PRINT+2*, PRINT+7*, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+20
, PRINT+21
>> DFN DISP+7*, DISP+13, DISP+15
DIR D1END!, PG+1!
DIR(0 D1END*, PG+1*
>> EX PRINT+1*, PRINT+5, PRINT+10, PRINT+18, D1END, DISP+5, DISP+6, DISP+13, DISP+19, DISP+25
, DISP+26, DISP+27, DISP+28, DISP+29, DISP+30, PG+1*
>> FHDATA( PRINT+3, PRINT+5, DISP+4, DISP+5, DISP+7, DISP+9, DISP+10, DISP+11, DISP+12
FHMNTT PRINT+1!, END!
FHMNTT( DISP+17*, DISP+18*, DISP+27, DISP+28, DISP+29, DISP+30, DISP+31
>> FHMON( DISP+13, DISP+15
>> FHNDT PRINT+1*, HDR+1
>> FHNXIEN PRINT+3, PRINT+4, PRINT+5, PRINT+10, MESSAGE+2
>> FHSORT PRINT+12, DISP+1, DISP+2, MESSAGE+2
>> FHTADM PRINT+19, PRINT+21
HH DISP+5*, DISP+7, DISP+9, DISP+10, DISP+11, DISP+12, DISP+13, DISP+15, END!
IOF HDR+1
IOSL PRINT+18, DISP+6, DISP+19, DISP+26, DISP+27, DISP+28, DISP+29, DISP+30
IOST D1END, PG+1
M1 PRINT+2*, PRINT+8*, PRINT+13, END!
M2 PRINT+2*, PRINT+8*, PRINT+14, END!
M3 PRINT+2*, PRINT+8*, PRINT+15, END!
M4 PRINT+2*, PRINT+8*, PRINT+16, END!
M5 PRINT+2*, PRINT+8*, PRINT+17, END!
MON PRINT+7, DISP+3*, DISP+15*, DISP+26, DISP+27, DISP+28, DISP+29, DISP+30, DISP+31, END!
MON1 PRINT+8, DISP+3*, DISP+27*, END!
MON2 PRINT+8, DISP+3*, DISP+28*, END!
MON3 PRINT+8, DISP+3*, DISP+29*, END!
MON4 PRINT+8, DISP+3*, DISP+30*, END!
MON5 PRINT+8, DISP+3*, DISP+31*, END!
MONTYP DISP+15*, DISP+16, DISP+19, END!
NUM DISP+13*, DISP+14, DISP+15, END+1!
PC DISP+16*, DISP+18, END+1!
PCE DISP+27*, DISP+28*, DISP+29*, DISP+30*, DISP+31*, END+1!
PER END+1!
PG PRINT+1*, END+1!, HDR+1*
TOT DISP+3*, DISP+22*, END+1!
U PRINT+5, PRINT+10, PRINT+18, D1END, DISP+5, DISP+6, DISP+7, DISP+9, DISP+10, DISP+11
, DISP+12, DISP+13, DISP+15, DISP+18, DISP+19, DISP+25, DISP+26, DISP+27, DISP+28, DISP+29
, DISP+30, DISP+31, PG+1
>> X PRINT+1
>> Y PRINT+1*, DISP+8*, PG+1
YY DISP+4*, DISP+5, DISP+7, DISP+8, DISP+9, DISP+10, DISP+11, DISP+12, END+1!
>> Z HDR+3*
>> ZZ PRINT+4*, PRINT+5*, DISP+1, DISP+2, DISP+4, DISP+5, DISP+7, DISP+9, DISP+10, DISP+11
, DISP+12, DISP+17, DISP+18, DISP+27, DISP+28, DISP+29, DISP+30, DISP+31
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All