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

Package: Dietetics

Routine: FHMMNADM


Information

FHMMNADM ;Hines OIFO/JT,RTK,AAC - Multidiv Adm/Disc Monitor Report ;10/10/03 10:34

Source Information

Source file <FHMMNADM.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Dietetics 1 CHECK^FHOMDPA  
Registration 1 WARD^DGPMUTL  

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
THEND ;end/kill/quit
KL ;
EN1 ;discharges
WRT ;write info
;
DEV ;get device and set up queue
DATE ;sets date
COFF2 ;
N2 ;Find Communications Office
COM ;Get Communication Offices
COFF ;get communication offices
PG ;

External References

Name Field # of Occurrence
^%DT DATE+2, DATE+3
^%ZIS DEV+2
^%ZISC DEV+3, DEV+10
^%ZTLOAD DEV+8
WARD^DGPMUTL EN1+4
^DIC N2+2
^DIR DATE+6, END+10, PG+1
CHECK^FHOMDPA WRT+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Print report for all Communications Offices Y or N: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: ZCO
  • Line Location: COM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+5
Function Call: WRITE
  • Prompt: !,Y,?13,$E($P($G(^DPT(DFN,0)),U,1),U,23)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?39,$E($P($G(^DPT(DFN,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: !
  • Line Location: END+10
Function Call: WRITE
  • Prompt: !!,"ALL TOTAL "_$S(TYP="A":"ADMISSIONS",TYP="D":"DISCHARGES")_": ",?22,ALLMV
  • Line Location: THEND+5
Function Call: WRITE
  • Prompt: !,"TOTAL WITH MONITORS:",?22,ALLMON
  • Line Location: THEND+6
Function Call: WRITE
  • Prompt: !,"Percentage of "
  • Line Location: THEND+9
Function Call: WRITE
  • Prompt: $S(TYP="A":"Admissions",TYP="D":"Discharges")
  • Line Location: THEND+10
Function Call: WRITE
  • Prompt: " with Monitors: ",ALLFHPER,"%"
  • Line Location: THEND+11
Function Call: WRITE
  • Prompt: !,"Task #",ZTSK
  • Line Location: DEV+9
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: !,?5,"Communication Offices: ",CNAME,!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "Admission",?13,"Patient",?39,"SSN",?45,"Monitor?",?56,"Discharge"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+8
Routine Call
  • DIC
  • Line Location:
    • N2+2
Routine Call
  • DIR
  • Line Location:
    • DATE+6
    • END+10
    • PG+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+7, WRT+4, WRT+7, EN1+1
^DGPM - [#405] EN+10, WRT+2, EN1+5, EN1+6
^DGPM("ATT1" EN+9, EN+10
^DGPM("ATT3" EN1+3, EN1+4
^DIC(42 - [#42] COFF+1, COFF+2
^DPT - [#2] WRT+4, WRT+5
^FH(119.6 - [#119.6] COFF+3, COFF+4, COFF+5, COFF2+1, COFF2+2, COFF2+3
^FH(119.73 - [#119.73] COM+4, EN+3, EN+4, EN+10, EN1+4
^FHPT - [#115] WRT+6, WRT+7

Label References

Name Line Occurrences
@( DEV+3
COFF EN1+4
COFF2 EN+10
DEV DATE+8
EN EN+4, EN+15, EN1+9
EN1 EN+6
END EN+14, EN1+8
HDR EN+7, EN1+1, THEND+4, PG+2
N2 COM+6, N2+4
PG WRT+2, WRT+8
THEND EN+2, EN+3
WRT EN+11, EN1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+2*, KL+2!
%DT("A" DATE+2*, DATE+3*
%DT(0 DATE+2!, DATE+3*
%ZIS DEV+2!*, DEV+10!
ADDT KL+2!
ADM EN+11*, WRT+6, WRT+7, EN1+5*, EN1+6, KL+1!
>> ADMD EN+11*, WRT+4, EN1+6*
>> ALLFHPER THEND+7*, THEND+8*, THEND+11
ALLMON COM+2*, END+4*, THEND+6, THEND+7, KL+1!
ALLMV COM+2*, END+3*, THEND+5, THEND+7, KL+1!
>> CNAME COM+2*, EN+2*, EN+3*, THEND+3*, HDR+6
CO COM+2*, COM+6, EN+2, KL+1!, N2+2, N2+4*
>> CON N2+4*
CONAM COM+2*, KL+1!, N2+4*
CONAME COM+2*, EN+2, KL+1!, N2+4*
>> CONUMX EN+2*, N2+4*
>> COXX COM+2*, EN+2*, EN+3*, EN+4, EN+10, EN1+4
>> D0 EN1+4*
DFN WRT+2*, WRT+3, WRT+4, WRT+5, KL+1!
DIC N2+1*, N2+5!
DIC("A" N2+1*
DIC(0 N2+1*
DIR END+10!, KL+2!, PG+1!
DIR("A" DATE+6*
DIR(0 DATE+5*, END+10*, PG+1*
DT EN+7, EN1+1
DTIME COM+5
>> EX EN+7*, EN+9, EN+10, WRT+2, WRT+8, EN1+1*, EN1+3, EN1+4, END+2, THEND+2
, PG+1*
FHCOMM COM+2*, EN+10, COFF+5*, COFF2+3*, EN1+4, KL+1!
FHDFN WRT+3, WRT+6, WRT+7, KL+1!
>> FHEDT DATE+4*, EN+9, EN1+3
FHNDT EN+7*, EN1+1*, KL+1!, HDR+5
FHPER END+5*, END+6*, END+9, KL+1!
>> FHSDT DATE+3*, EN+9, EN1+3
>> FHWARD COFF+4*, COFF+5, COFF2+2*, COFF2+3
>> FHZ115 WRT+3*
I EN+9*, EN+10, EN+11, EN1+3*, EN1+4, KL+1!
IO DEV+3
IO("Q" DEV+3
IOF HDR+2
IOP DEV+2!, DEV+10!
IOSL WRT+2, WRT+8
IOST END+10, PG+1
J EN+10*, EN+11, WRT+2, EN1+4*, EN1+5, KL+1!
MONTOT EN+8*, WRT+6*, EN1+2*, END+4, END+5, KL+1!
MVTOT EN+8*, WRT+5*, EN1+2*, END+3, END+5, KL+1!
PG EN+7*, EN1+1*, KL+1!, HDR+5*
>> POP DEV+2
>> REC EN+10*
SSN KL+1!
TAG DEV+1*, DEV+3, DEV+4, KL+2!
>> TYP DATE+7*, EN+6, END+3, END+8, THEND+5, THEND+10, DEV+1, HDR+4
U EN+9, EN+10, WRT+2, WRT+4, WRT+5, WRT+7, WRT+8, EN1+1, EN1+3, EN1+4
, EN1+5, EN1+6, END+2, THEND+2, PG+1
WARD COM+2*, EN+10*, COFF+1, COFF+2, COFF2+1, COFF2+2, EN1+4*, KL+1!
>> WARDIEN COFF+2*, COFF+3, COFF+4
X EN1+4, KL+1!
>> XX COM+2*, EN+1, EN+13, WRT+2*, WRT+8*, EN1+1*
Y COM+6, DATE+2, DATE+3, DATE+4, DATE+7, EN+7*, WRT+4*, WRT+7*, EN1+1*, KL+1!
, N2+2, N2+3, N2+4, N2+5, PG+1
>> Z HDR+8*
>> ZCO COM+2*, COM+5*, COM+6, EN+2, EN+3
>> ZOUT COM+4*, EN+3
>> ZTDESC DEV+8*
>> ZTRTN DEV+4*
>> ZTSAVE("ALLFHPER" DEV+7*
>> ZTSAVE("ALLMON" DEV+7*
>> ZTSAVE("ALLMV" DEV+7*
>> ZTSAVE("CNAME" DEV+6*
>> ZTSAVE("CO" DEV+6*
>> ZTSAVE("CONAME" DEV+6*
>> ZTSAVE("CONUMX" DEV+5*
>> ZTSAVE("COXX" DEV+5*
>> ZTSAVE("FHCOMM" DEV+6*
>> ZTSAVE("FHEDT" DEV+4*
>> ZTSAVE("FHSDT" DEV+4*
>> ZTSAVE("TYP" DEV+8*
>> ZTSAVE("XX" DEV+5*
>> ZTSAVE("ZCO" DEV+5*
>> ZTSAVE("ZOUT" DEV+5*
>> ZTSK DEV+9
>> ZZCOUNT COM+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All