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

Package: Dietetics

Routine: FHSP


Information

FHSP ; HISC/REL/NCA - Standing Orders ;2/13/95 14:30

Source Information

Source file <FHSP.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Enter/Edit Standing Orders
EN2 ; List Standing Orders
SO ;OutPT SO
A0 ;Rec Meal entry.
R1
MS1
ALL
E0
E1
N0
N1
N1A
N2 ;
N2A
N3
ADD ; Add SO
AD1
SO2 ; SO Inquiry
SO3 ; Cancel SO
LIS ;list outpt SO
L1 ; Store SO
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,"** NO OUTPATIENT DATA ON FILE! Please enter outpatient meals from Recurring Meals Menu [FHOMRMGR]."
  • Line Location: SO+2
Function Call: WRITE
  • Prompt: @IOF,!,"Outpatient Recurring Meals... "
  • Line Location: SO+3
Function Call: WRITE
  • Prompt: !,?19
  • Line Location: A0+17
Function Call: WRITE
  • Prompt: ","
  • Line Location: A0+18
Function Call: WRITE
  • Prompt: !!,"NO OUTPATIENT DATA ON FILE for today's date and the future!!",!
  • Line Location: A0+27
Function Call: WRITE
  • Prompt: !!,"There is no outpatient data for this Meal!!"
  • Line Location: R1+14
Function Call: WRITE
  • Prompt: !!,"There is no outpatient data for this Meal!!"
  • Line Location: R1+15
Function Call: WRITE
  • Prompt: *7,!,"Select B for Breakfast, N for Noon, E for Evening or ALL for all meals",!,"Answer may be multiple meals, e.g., BN or NE"
  • Line Location: MS1+0
Function Call: WRITE
  • Prompt: !!,"There is no outpatient data for this Meal!!"
  • Line Location: MS1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Edit which Order #? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: N0+0
Function Call: WRITE
  • Prompt: *7," Enter # of Order to Edit"
  • Line Location: N0+0
Function Call: WRITE
  • Prompt: !!,"Standing Order ",$P($G(^FH(118.3,+SP,0)),"^",1)," added"
  • Line Location: N0+2
Function Call: WRITE
  • Prompt: !
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: !!,"Standing Order ",$P($G(^FH(118.3,+SP,0)),"^",1)," added"
  • Line Location: N1+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: N1A+0
Function Call: WRITE
  • Prompt: " .. Done"
  • Line Location: N1A+2
Function Call: WRITE
  • Prompt: *7,!,"Press Return to take Default or ""@"" to Delete"
  • Line Location: N1A+3
Function Call: READ
  • Variable: NUM
  • Timeout: DTIME
  • Line Location: N2A+0
Function Call: WRITE
  • Prompt: !,*7,"Enter a number from 1-9."
  • Line Location: N2A+2
Function Call: READ
  • Variable: YN
  • Timeout: DTIME
  • Line Location: N3+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: N3+0
Function Call: WRITE
  • Prompt: ?40,"Date: ",FHDTST
  • Condition for execution: $D(FHDTST)
  • Line Location: LIS+9
Function Call: WRITE
  • Prompt: !," Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: LIS+11
Function Call: WRITE
  • Prompt: !!,"No Active Outpatient Standing Orders."
  • Line Location: LIS+15
Function Call: WRITE
  • Prompt: !!,"Active Outpatient Standing Orders: ",!
  • Line Location: LIS+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LIS+19
Function Call: WRITE
  • Prompt: $J(LN,2)
  • Condition for execution: NO
  • Line Location: LIS+19
Function Call: WRITE
  • Prompt: " (** INACTIVE **)"
  • Line Location: LIS+21

FileMan Files Accessed Via FileMan Db Call

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