Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select LOCATION (or ALL): "
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.6 - [#119.6] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call