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

Package: Dietetics

Routine: FHMMBRPT


Information

FHMMBRPT ;Hines OIFO/JT,RTK,AAC - Multidiv Monitor Brief ;10/10/03 11:49

Source Information

Source file <FHMMBRPT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 (,DD)^%DT  NOW^%DTC  ^DIC  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Dietetics 1 CHECK^FHOMDPA  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHMNBRPT  

Entry Points

Name Comments DBIA/ICR reference
EN ;get admission/monitor information
END ;kill and quit
HDR ;Header
DEV ;get device and set up queue
THEND ;
DATE ;sets date
N2 ;find Communications Office
COM ;get Communication Offices
COFF ;get Communications Offices
PG ;

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2
DD^%DT EN+5
NOW^%DTC EN+5
^%ZIS DEV+1
^%ZISC DEV+2, DEV+10
^%ZTLOAD DEV+9
^DIC N2+2
^DIR EN+26, THEND+1, PG+1
CHECK^FHOMDPA EN+10

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Print report for all Communication Offices Y or N: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: ZCO
  • Line Location: COM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,Y,?13,$E($P($G(^DPT(DFN,0)),U,1),1,23)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: ?48,"Yes"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: ?56,Y
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!,"TOTAL ADMISSIONS: ",?22,ADMTOT
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"TOTAL WITH MONITORS:",?22,MONTOT
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"Percentage of Admissions with Monitors: "
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: "0.0%"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: FHPER,"%"
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: THEND+1
Function Call: WRITE
  • Prompt: !!,"ALL TOTAL ADMISSIONS: ",?22,ALLADM
  • Line Location: THEND+3
Function Call: WRITE
  • Prompt: !,"TOTAL WITH MONITORS:",?22,ALLMON
  • Line Location: THEND+4
Function Call: WRITE
  • Prompt: !,"Percentage of Admissions with Monitors: "
  • Line Location: THEND+5
Function Call: WRITE
  • Prompt: "0.0%"
  • Line Location: THEND+6
Function Call: WRITE
  • Prompt: ALLFHPER,"%"
  • Line Location: THEND+9
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,NAME,?30,"MONITOR BRIEF REPORT"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,FHNDT,?60,"Page: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,FHNDT,?60,"Page: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Admission",?13,"Patient",?39,"SSN",?45,"Monitor?",?56,"Discharge"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+3
Routine Call
  • DIC
  • Line Location:
    • N2+2
Routine Call
  • DIR
  • Line Location:
    • EN+26
    • THEND+1
    • PG+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+11, EN+14
^DGPM - [#405] EN+8, EN+9
^DGPM("ATT1" EN+7, EN+8
^DPT - [#2] EN+11, EN+12
^FH(119.6 - [#119.6] COFF+1, COFF+2, COFF+3
^FH(119.73 - [#119.73] COM+3, EN+2, EN+3, EN+8
^FHPT - [#115] EN+13, EN+14

Label References

Name Line Occurrences
COFF EN+8
DEV DATE+6
EN EN+3, EN+21, EN+25, DEV+2
END DATE+4, DEV+2, THEND+6, THEND+10
HDR THEND+2, PG+2
N2 COM+5, N2+4
PG EN+5, EN+9, EN+18, EN+19, EN+24, THEND+9
THEND EN+1, EN+2, EN+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE+1*
>> %DT("A" DATE+1*, DATE+2*
>> %DT(0 DATE+2*!
%ZIS DEV+1!*, DEV+10!
ADMTOT EN+6*, EN+12*, EN+18, EN+21, EN+22, END+1!
>> ALLADM COM+1*, EN+18*, THEND+3, THEND+6, THEND+7
>> ALLFHPER COM+1*, THEND+7*, THEND+8*, THEND+9
>> ALLMON COM+1*, EN+19*, THEND+4, THEND+6, THEND+7
>> CO COM+1*, COM+5, EN+1, N2+2, N2+4*
>> CON N2+4*
>> CONAM COM+1*, N2+4*
>> CONAME COM+1*, EN+1, N2+4*
>> CONUMX COM+1*, EN+1*, N2+4*
>> COXX COM+1*, EN+1*, EN+2*, EN+3, EN+8
DFN EN+9*, EN+10, EN+11, EN+12, END+1!
DIC N2+1*, N2+5!
DIC("A" N2+1*
DIC(0 N2+1*
DIR EN+26!, THEND+1!, PG+1!
DIR(0 EN+26*, THEND+1*, PG+1*
DTIME COM+4
>> EX DATE+3*, EN+8, EN+9, EN+17, EN+18, EN+19, EN+24, THEND+9, PG+1*
>> FHCOMM COM+1*, EN+8, COFF+3*
FHDFN EN+10, EN+13, EN+14, END+1!
FHEDT DATE+5*, EN+7, END+1!
FHNDT EN+5*, END+1!, HDR+1
FHPER EN+22*, EN+23*, EN+24, END+1!
FHSDT DATE+2*, EN+7, END+1!
>> FHWARD COFF+2*, COFF+3
>> FHZ115 EN+10*
I EN+7*, EN+8, EN+11, END+1!
IO DEV+2
IO("Q" DEV+2
IOF HDR+1
IOP DEV+1!, DEV+10!
IOSL EN+9, EN+18, EN+19, EN+24, THEND+9
IOST EN+26, THEND+1, PG+1
J EN+8*, EN+9, EN+13, EN+14, END+1!
MONTOT EN+6*, EN+13*, EN+19, EN+21, EN+22, END+1!
>> NAME EN+1*, EN+2*, THEND+2*, HDR+1
PG DATE+3*, END+1!, HDR+1*
>> POP DEV+1
>> REC EN+8*
SSN END+1!
U EN+8, EN+9, EN+11, EN+12, EN+14, EN+17, EN+18, EN+19, EN+24, THEND+9
, PG+1
>> WARD COM+1*, EN+8*, COFF+1, COFF+2
X EN+5, END+1!
Y COM+5, DATE+1, DATE+2, DATE+4, DATE+5, EN+5*, EN+11*, EN+14*, END+1!, N2+2
, N2+3, N2+4, N2+5, PG+1
>> Z HDR+3*
>> ZCO COM+1*, COM+4*, COM+5, EN+1, EN+2
>> ZOUT COM+1*, COM+3*, EN+2
>> ZTDESC DEV+9*
>> ZTRTN DEV+3*
>> ZTSAVE DEV+4*
>> ZTSAVE("ALLADM" DEV+6*
>> ZTSAVE("ALLFHPER" DEV+6*
>> ZTSAVE("ALLMON" DEV+5*
>> ZTSAVE("CO" DEV+5*
>> ZTSAVE("CONAME" DEV+8*
>> ZTSAVE("CONUMX" DEV+7*
>> ZTSAVE("COXX" DEV+7*
>> ZTSAVE("EX" DEV+5*
>> ZTSAVE("FHCOMM" DEV+7*
>> ZTSAVE("FHEDT" DEV+3*
>> ZTSAVE("FHSDT" DEV+3*
>> ZTSAVE("PG" DEV+5*
>> ZTSAVE("ZCO" DEV+4*
>> ZTSAVE("ZOUT" DEV+6*
>> ZZCOUNT COM+3*
>> ZZOUT COM+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All