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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Dietetics 2 ^FHMMNADM  CHECK^FHOMDPA  
VA Fileman 2 ^%DT  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHMNADM  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE+4, DATE+5
^%ZIS DEV+2
^%ZISC DEV+3, DEV+7
^%ZTLOAD DEV+5
^DIR DATE+8, PG+1
^FHMMNADM DATE+3
CHECK^FHOMDPA WRT+3

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
Routine Call
  • DIR
  • Line Location:
    • DATE+8
    • PG+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+1, WRT+4, WRT+7, EN1+1
^DGPM - [#405] WRT+2, EN1+5, EN1+6
^DGPM("ATT1" EN+3, EN+4
^DGPM("ATT3" EN1+3, EN1+4
^DPT - [#2] WRT+4
^FH(119.9 - [#119.9] DATE+3
^FHPT - [#115] WRT+6, WRT+7

Label References

Name Line Occurrences
@( DEV+3
DEV DATE+10
END EN+7
HDR EN+1, EN1+1, PG+2
KL END+2
PG WRT+2
WRT EN+5, EN1+6

Naked Globals

Name Field # of Occurrence
^(0 WRT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+4*, KL+1!
%DT("A" DATE+4*, DATE+5*
%DT(0 DATE+4!, DATE+5*
%ZIS DEV+2!*, DEV+7!
ADDT KL+1!
ADM EN+5*, WRT+6, WRT+7, EN1+5*, EN1+6, KL!
>> ADMD EN+5*, WRT+4, EN1+6*
DFN WRT+2*, WRT+3, WRT+4, KL!
DIR KL+1!, PG+1!
DIR("A" DATE+8*
DIR(0 DATE+7*, PG+1*
DT EN+1, EN1+1
>> EX EN+1*, EN+3, EN+4, WRT+2, EN1+1*, EN1+3, EN1+4, END+2, PG+1*
FHDFN WRT+3, WRT+6, WRT+7, KL!
FHEDT DATE+6*, EN+3, EN1+3, KL!, DEV+7!
FHNDT EN+1*, EN1+1*, KL!, HDR+5
FHPER END+5*, END+6*, END+9, KL!
FHSDT DATE+5*, EN+3, EN1+3, KL!, DEV+7!
>> FHZ115 WRT+3*
I EN+3*, EN+4, EN+5, EN1+3*, EN1+4, KL!
IO DEV+3
IO("Q" DEV+3
IOF HDR+2
IOP DEV+2!, DEV+7!
IOSL WRT+2
IOST PG+1
J EN+4*, EN+5, WRT+2, EN1+4*, EN1+5, KL!
MONTOT EN+2*, WRT+6*, EN1+2*, END+4, END+5, KL!
MVTOT EN+2*, WRT+5*, EN1+2*, END+3, END+5, KL!
PG EN+1*, EN1+1*, KL!, HDR+5*
>> POP DEV+2
SSN KL!
TAG KL+1!, DEV+1*, DEV+3, DEV+4
TYP DATE+9*, END+3, END+8, KL+1!, DEV+1, HDR+4
U DATE+3, EN+3, EN+4, WRT+2, WRT+4, WRT+5, WRT+7, EN1+3, EN1+4, EN1+5
, EN1+6, END+2, PG+1
X KL!
Y DATE+4, DATE+5, DATE+6, DATE+9, EN+1*, WRT+4*, WRT+7*, EN1+1*, KL!, PG+1
>> Z HDR+7*
>> ZTDESC DEV+5*
>> ZTRTN DEV+4*
>> ZTSAVE("FHEDT" DEV+4*
>> ZTSAVE("FHSDT" DEV+4*
>> ZTSAVE("TYP" DEV+5*
>> ZTSK DEV+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All