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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHPRW

Package: Dietetics

Routine: FHPRW


Information

FHPRW ;Hines OIFO/REL,RTK - List Dietetic Locations ;5/13/94 14:57

Source Information

Source file <FHPRW.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 2 NOW^%DTC  ^DIC  
Dietetics 1 (DTP,EN2,TR)^FH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHPRO6  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Print Dietetic Ward Profile
F1
Q2
VER ; Verify completeness of data base
HDR
KIL
B1
B2
B3
BLD ; Build temp files

External References

Name Field # of Occurrence
NOW^%DTC Q1+1
^%ZIS F1+3
^%ZISC F1+5
^DIC F1+1
DTP^FH HDR
EN2^FH F1+4
TR^FH F1
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select LOCATION (or ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: !!,"Verifying completeness of room-bed & ward assignments ..."
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+4
Function Call: WRITE
  • Prompt: !!,"Print Order:",?22,$P(X,"^",4)
  • Line Location: Q2+1
Function Call: WRITE
  • Prompt: !,"Type of Location:",?22,$S($P(X,U,3)="O":"OUTPATIENT",1:"INPATIENT")
  • Line Location: Q2+2
Function Call: WRITE
  • Prompt: !,"Assigned Clinician(s):",?22,$P($G(^VA(200,Z,0)),"^",1)
  • Line Location: Q2+7
Function Call: WRITE
  • Prompt: !,"Tray Assembly:",?22
  • Line Location: Q2+9
Function Call: WRITE
  • Prompt: $P($G(^FH(119.72,Z,0)),"^",1)
  • Line Location: Q2+9
Function Call: WRITE
  • Prompt: $P($G(^FH(119.72,Z,0)),"^",1)
  • Line Location: Q2+9
Function Call: WRITE
  • Prompt: !,"Cafeteria:",?22
  • Line Location: Q2+10
Function Call: WRITE
  • Prompt: $P($G(^FH(119.72,Z,0)),"^",1)
  • Line Location: Q2+10
Function Call: WRITE
  • Prompt: $P($G(^FH(119.72,Z,0)),"^",1)
  • Line Location: Q2+10
Function Call: WRITE
  • Prompt: !,"Dining Room:",?22
  • Line Location: Q2+11
Function Call: WRITE
  • Prompt: "Yes"
  • Line Location: Q2+11
Function Call: WRITE
  • Prompt: "Yes"
  • Line Location: Q2+11
Function Call: WRITE
  • Prompt: !,"Supplemental Fdgs.:",?22
  • Line Location: Q2+12
Function Call: WRITE
  • Prompt: $P($G(^FH(119.74,Z,0)),"^",1)
  • Line Location: Q2+12
Function Call: WRITE
  • Prompt: !,"Diet Communication:",?22
  • Line Location: Q2+13
Function Call: WRITE
  • Prompt: $P($G(^FH(119.73,Z,0)),"^",1)
  • Line Location: Q2+13
Function Call: WRITE
  • Prompt: !!,"Admission Diet:",?22
  • Line Location: Q2+14
Function Call: WRITE
  • Prompt: $P($G(^FH(111,Z,0)),"^",1)
  • Line Location: Q2+14
Function Call: WRITE
  • Prompt: "NO ORDER"
  • Line Location: Q2+15
Function Call: WRITE
  • Prompt: !!,"Review Frequencies:"
  • Line Location: Q2+16
Function Call: WRITE
  • Prompt: !!?5,"NPO's:"
  • Line Location: Q2+17
Function Call: WRITE
  • Prompt: ?19,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+17
Function Call: WRITE
  • Prompt: ?45,"Admit Status:"
  • Line Location: Q2+18
Function Call: WRITE
  • Prompt: ?59,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+18
Function Call: WRITE
  • Prompt: !?5,"Tubefeedings:"
  • Line Location: Q2+19
Function Call: WRITE
  • Prompt: ?19,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+19
Function Call: WRITE
  • Prompt: ?45,"Supp. Fdgs.:"
  • Line Location: Q2+20
Function Call: WRITE
  • Prompt: ?59,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+20
Function Call: WRITE
  • Prompt: !!?5,"Status I:"
  • Line Location: Q2+21
Function Call: WRITE
  • Prompt: ?19,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+21
Function Call: WRITE
  • Prompt: ?45,"Status III:"
  • Line Location: Q2+22
Function Call: WRITE
  • Prompt: ?59,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+22
Function Call: WRITE
  • Prompt: !?5,"Status II:"
  • Line Location: Q2+23
Function Call: WRITE
  • Prompt: ?19,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+23
Function Call: WRITE
  • Prompt: ?45,"Status IV:"
  • Line Location: Q2+24
Function Call: WRITE
  • Prompt: ?59,$J(Z,3,0)," days"
  • Condition for execution: Z
  • Line Location: Q2+24
Function Call: WRITE
  • Prompt: !!,"Bulk Nourishment Orders:",!
  • Line Location: Q2+25
Function Call: WRITE
  • Prompt: !?5,P(LL)
  • Line Location: Q2+27
Function Call: WRITE
  • Prompt: ?45,P(K)
  • Line Location: Q2+27
Function Call: WRITE
  • Prompt: !!,"Room-Beds Assigned:",!
  • Line Location: Q2+28
Function Call: WRITE
  • Prompt: !?5,P(LL)
  • Line Location: Q2+30
Function Call: WRITE
  • Prompt: ?MM,P(K(MM))
  • Line Location: Q2+30
Function Call: WRITE
  • Prompt: !!,"Default MAS Wards:",!
  • Line Location: Q2+31
Function Call: WRITE
  • Prompt: !?5,P(LL)
  • Line Location: Q2+33
Function Call: WRITE
  • Prompt: ?45,P(K)
  • Line Location: Q2+33
Function Call: WRITE
  • Prompt: !!,"Print Cafeteria on Tray Tickets: ",$S(FHY="Y":"YES",1:"NO")
  • Line Location: Q2+34
Function Call: WRITE
  • Prompt: !,"Maximum # of Days to Schedule Recurring Meal: ",$P(NODE1,U,2)
  • Line Location: Q2+41
Function Call: WRITE
  • Prompt: !,"Number of Days for Review of Recurring Meal: ",$P(NODE1,U,3)
  • Line Location: Q2+42
Function Call: WRITE
  • Prompt: !!,"Non-VA Facility? ",$S($P(NODE1,U,4)="Y":"YES",1:"NO")
  • Line Location: Q2+43
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+44
Function Call: WRITE
  • Prompt: !,$E(DTP,1,9),?19,"D I E T E T I C L O C A T I O N P R O F I L E",?73,"Page ",PG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?(78-$L(Y)\2),Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Room ",$P(^DG(405.4,LL,0),"^",1)," not assigned to any Dietetic Ward"
  • Line Location: VER+1
Function Call: WRITE
  • Prompt: !,"MAS Ward ",$P(^DIC(42,LL,0),"^",1)," not assigned to any Dietetics Ward"
  • Line Location: VER+2
Routine Call
  • DIC
  • Line Location:
    • F1+1
Routine Call
  • %ZIS
  • Line Location:
    • F1+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.6 - [#119.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] B3, VER+1
^DIC(42 - [#42] Q2+38, B2, VER+2
^FH(111 - [#111] Q2+14
^FH(118 - [#118] B1
^FH(119.6 - [#119.6] Q1+2, Q2, Q2+6, Q2+7, BLD+2, BLD+3, BLD+4, VER+1, VER+2
^FH(119.72 - [#119.72] Q2+9, Q2+10
^FH(119.73 - [#119.73] Q2+13
^FH(119.74 - [#119.74] Q2+12
^SC - [#44] Q2+39
^TMP($J Q1+1!, Q1+2*, Q1+3, Q2+26, Q2+29, Q2+32, BLD+1!, B1*, B2*, B3*
, KIL!
^VA(200 - [#200] Q2+7

Label References

Name Line Occurrences
B1 BLD+2
B2 BLD+3
B3 BLD+4
BLD Q2
F1 F1+1
HDR Q2
KIL F1, F1+3, F1+4, F1+5
Q1 F1+5
Q2 Q1+1, Q1+3
VER F1+2

Naked Globals

Name Field # of Occurrence
^( Q1+2, Q1+3, Q2+26, BLD+2, BLD+3, BLD+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q1+1
%ZIS F1+3!*, F1+5!
%ZIS("A" F1+3*
C1 Q2+5~*, Q2+6*, Q2+7
DIC F1+1!*
DIC(0 F1+1*
DTIME F1
>> DTP HDR*
>> FHLST F1+4*
>> FHOL Q2+35*, Q2+37
>> FHOLFIL Q2+35*, Q2+36, Q2+38, Q2+39
>> FHOLIEN Q2+37*, Q2+38, Q2+39
>> FHOLNM Q2+36*, Q2+38*, Q2+39*, Q2+40
>> FHPGM F1+4*
>> FHY Q2+25*, Q2+34
IO F1+5
IO("Q" F1+4
IOF HDR
IOP F1+3!, F1+5!
IOST HDR
>> K Q2+27*, Q2+33*
>> K( Q2+30*
>> K(22 Q2+30*
>> K(39 Q2+30*
>> K(54 Q2+30*
>> K1 Q1+1*, Q1+3*, Q2, Q2+6, Q2+7, BLD+2, BLD+3, BLD+4
>> LL Q2+27*, Q2+30*, Q2+33*, BLD+2*, BLD+3*, BLD+4*, VER+1*, VER+2*
>> MM Q2+30*
>> N Q2+26*, Q2+27, Q2+29*, Q2+30, Q2+32*, Q2+33, B1*, B2*, B3*
>> NM Q2+26*, Q2+29*, Q2+32*
>> NODE1 Q2*, Q2+35, Q2+41, Q2+42, Q2+43
>> NOW Q1+1*, HDR
>> NX Q1+2*, Q1+3*
P Q2+26!, Q2+29!, Q2+32!
P( Q2+26*, Q2+27, Q2+29*, Q2+30, Q2+32*, Q2+33
>> P0 Q1+2*
>> PG Q1+1*, HDR*
>> POP F1+3
>> Q B1*
U Q2+2, Q2+35, Q2+38, Q2+39, Q2+41, Q2+42, Q2+43
>> WRD F1*, F1+1*, F1+2, Q1+1
>> WRDN Q1+2*
>> X F1*, Q1+2*, Q2*, Q2+1, Q2+2, Q2+9, Q2+10, Q2+11, Q2+12, Q2+13
, Q2+14, Q2+15, Q2+17, Q2+18, Q2+19, Q2+20, Q2+21, Q2+22, Q2+23, Q2+24
, Q2+25, HDR+1
>> Y F1+1, BLD+2*, BLD+3*, BLD+4*, B1, B2, B3, HDR+1*
>> Z Q2+7*, Q2+9*, Q2+10*, Q2+11*, Q2+12*, Q2+13*, Q2+14*, Q2+17*, Q2+18*, Q2+19*
, Q2+20*, Q2+21*, Q2+22*, Q2+23*, Q2+24*, Q2+27*, Q2+30*, Q2+33*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All