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

Package: Dietetics

Routine: FHSPED


Information

FHSPED ; HISC/REL/NCA - Enter/Cancel Standing Orders ;7/22/94 13:59

Source Information

Source file <FHSPED.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Enter Standing Orders for Patient
ASK
A0
CAD
E1
N0
N1
N1A
N2
N2A
N3
ADD ; Add Standing Order
EN2 ; Standing Order Inquiry
EN3 ; Cancel Standing Order
LIS ;list SO
L1 ; Store Standing Order By Meal
OUT ;ask for Recurring Meal Entry
CHK ;ENTER DATES.
F1 ;START DATE
F2 ;END DATE
CPRSO ;check previous SO
CPRS1
PPRSO ;PROCESS previous SO
SOEVNT
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** NO CURRENT ADMISSION ON FILE! If this is an Inpatient, please admit the patient first.",!
  • Line Location: ASK+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !!,"Return for OUTPATIENT or 'C' for CURRENT Admission: "
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !!,"** NO OUTPATIENT DATA ON FILE! Please enter outpatient meals from Recurring Meals Menu [FHOMRMGR]!!"
  • Line Location: A0+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+1
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+1
Function Call: WRITE
  • Prompt: *7,!,"Press Return to take Default or ""@"" to Delete"
  • Line Location: N1A+2
Function Call: READ
  • Variable: MEAL
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !,"Select Meal (B,N,E or ALL): ",$S($P(P(LN,SP),"^",3)'="":$P(P(LN,SP),"^",3)_" // ",1:"") R MEAL:DTIME G:'$T!(MEAL="^")
  • Line Location: N2+0
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: N2+4
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: " .. done"
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !," Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: LIS+5
Function Call: WRITE
  • Prompt: !!,"No Active Inpatient Standing Orders."
  • Line Location: LIS+9
Function Call: WRITE
  • Prompt: !!,"Active Inpatient Standing Orders: ",!
  • Line Location: LIS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LIS+13
Function Call: WRITE
  • Prompt: $J(LN,2)
  • Condition for execution: NO
  • Line Location: LIS+13
Function Call: WRITE
  • Prompt: " (** INACTIVE **)"
  • Line Location: LIS+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: "Outpatient Recurring Meals..."
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !,?19
  • Line Location: OUT+20
Function Call: WRITE
  • Prompt: ","
  • Line Location: OUT+21
Function Call: WRITE
  • Prompt: !!,"NO OUTPATIENT DATA ON FILE for today's date and the future!!",!
  • Line Location: OUT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: F2+2
Function Call: WRITE
  • Prompt: !!,"***End Date must be on or after Start Date!!!"
  • Line Location: F2+9

FileMan Files Accessed Via FileMan Db Call

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