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

Call Graph

Call Graph Total: 11

Package Total Call Graph
Dietetics 7 (DTP,TR)^FH  ALG^FHCLN  ^FHOMDPA  CUR^FHORD7  ^FHORX  (AD1,LIS,SO)^FHSP  EVNT^FHSP1  
VA Fileman 3 NOW^%DTC  ^DIC  ^DIR  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Dietetics 7 FHMTK4  FHNO5  FHOMRO1  FHORD72  FHSP  FHSP3  FHSP4  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC EN1+1, PPRSO+3
^DIC A0+4, N1+1, OUT+32, F1+7, F2+7
^DIR E1+1, OUT+13
DTP^FH SOEVNT+2, SOEVNT+3
TR^FH A0, N2+3, N3
ALG^FHCLN LIS+5
^FHOMDPA ASK, EN2+1
CUR^FHORD7 LIS+2
^FHORX N3+2, ADD+6, EN3+4
AD1^FHSP PPRSO+4
LIS^FHSP OUT+34
SO^FHSP ASK+3, A0+2
EVNT^FHSP1 SOEVNT+6
KILL^XUSCLEAN 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Edit which Order #? "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: MEAL
  • 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
  • Timeout: DTIME
  • Variable: NUM
  • Line Location: N2A+0
Function Call: WRITE
  • Prompt: !,*7,"Enter a number from 1-9."
  • Line Location: N2A+2
Function Call: READ
  • Timeout: DTIME
  • Variable: YN
  • 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
Routine Call
  • DIC
  • Line Location:
    • A0+4
    • N1+1
    • OUT+32
    • F1+7
    • F2+7
Routine Call
  • DIR
  • Line Location:
    • E1+1
    • OUT+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls
^FH(118.3 - [#118.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OUT+11
^DPT - [#2] ASK+2, EN2+3, LIS+2
^DPT("CN" A0+3
^FH(118.3 - [#118.3] N0+2, N1+2, N1A, LIS+15, OUT+19
^FH(119.6 - [#119.6] OUT+10, SOEVNT+1
^FHPT - [#115] A0+1, CAD, N0+1, N3+2*, ADD+1, ADD+2*, ADD+3, ADD+4, ADD+5*, EN3+2*
, EN3+3, LIS+7, OUT+6, OUT+7, OUT+16, OUT+17, F1+8, F2+8, CPRS1+3, CPRS1+6
, CPRS1+7
^FHPT("ASP" N3+2!, ADD+5*, EN3+4!, LIS+7
^FHPT("ASPO" EN2+5, CPRS1, CPRS1+1
^FHPT("RM" OUT+6

Label References

Name Line Occurrences
A0 A0+4
ADD ADD+4
ASK ASK+3, A0+1, A0+2
CAD A0+3
CPRS1 CPRS1+4
E1 CAD, N1A+1, N2A+4, N3+1, ADD+6
EN1 E1+1, N0, N1+1
EN2 EN2+6
EN3 N1A+1
F2 F2+9
FHSPED N1A
KIL ASK+1, A0, N1A, N2, N2+1, N2A, N3, EN2+4
L1 LIS+13
LIS E1, EN2+4
N0 N0
N1 E1, E1+1, N1+1
N1A N0+1, N0+2, N1A+2
N2 N2+2, N2+4
N2A N2+1, N2A+1, N2A+2
N3 N3
OUT EN2+5

Naked Globals

Name Field # of Occurrence
^(0 ADD+3*, SOEVNT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+1, PPRSO+3
ADM ASK*, ASK+4!, A0+3*, A0+4*, CAD, N0+1, N3+2, ADD+1, ADD+2, ADD+3
, ADD+4, ADD+5, EN2+1*, EN3+2, EN3+3, EN3+4, LIS+7, OUT+33*
>> ALG LIS+5
>> C1 N2A+4*, N3+2
>> C2 N2A+4*
>> CTR LIS+6*
DFN ASK!, ASK+2, A0+3, EN2+1!, EN2+3, EN2+4, LIS+2
DIC ASK!, A0+4*, N1!*, N1+1!, EN2+1!, OUT+27!, OUT+30*, OUT+32!, F1+1!, F1+5*
, F1+7!, F2+1!, F2+5*, F2+7!
DIC("?" OUT+31*, F1+6*, F2+6*
DIC("A" N1*, OUT+32*, F1+7*, F2+7*
DIC("S" OUT+29*, F1+4*, F2+4*
DIC("W" OUT+28*, F1+3*, F2+3*
DIC(0 A0+4*, N1*, OUT+27*, F1+1*, F2+1*
>> DILOCKTM ADD+1
DIR E1+1!, OUT+13!
DIR("A" E1+1*, OUT+13*
DIR("B" E1+1*
DIR(0 E1+1*, OUT+13*
>> DIROUT E1+1
>> DIRUT E1+1
DLAYGO N1+1!
DT CAD, OUT+6
DTIME A0, N0, N1A, N2, N2A, N3
>> DTOUT N1+1, OUT+32, F1+7, F2+7
>> DTP OUT+11*, OUT+14, OUT+15, SOEVNT+2*, SOEVNT+3*, SOEVNT+4
DUZ N3+2, ADD+5, EN3+2
>> ENDT CAD*, SOEVNT+3
>> EVT N3+2*, ADD+6*, EN3+4*
>> FH11 OUT+10*, OUT+14, OUT+15
>> FHALL ASK*, EN2+1*
>> FHALML SOEVNT+5*
FHCK CPRSO+1!
FHCK( CPRS1+5*
>> FHCOFLG OUT+12*, OUT+21
>> FHDA15 OUT+7*, OUT+8, OUT+10, OUT+11
>> FHDA15SF OUT+17*, OUT+18, OUT+19
>> FHDASFNM OUT+19*, OUT+20, OUT+22, OUT+23
>> FHDASFQT OUT+19*, OUT+20, OUT+22, OUT+23
>> FHDAT CPRSO+2*, CPRS1+3*
>> FHDATL OUT+12*, OUT+15*, OUT+20*, OUT+21, OUT+22*
FHDFN ASK!, ASK+1, A0+1, CAD, N0+1, N3+2, ADD+1, ADD+2, ADD+3, ADD+4
, ADD+5, EN2+1!, EN2+4, EN2+5, EN3+2, EN3+3, EN3+4, LIS+7, OUT+6, OUT+7
, OUT+16, OUT+17, F1+8, F2+8, CPRS1, CPRS1+1, CPRS1+3, CPRS1+6, CPRS1+7
FHDM14 OUT+3!, OUT+24
FHDM14( OUT+8*
FHDT1 CHK+1!, F1+8*, F2+9
FHDT2 CHK+1!, F2+8*, F2+9
>> FHDTC SOEVNT*, SOEVNT+2*
>> FHDTP SOEVNT+2*, SOEVNT+4*
FHEDI OUT+3!
FHEDIF OUT+3!
FHFLG OUT+3!, CHK+2*, F2+10*
>> FHI OUT+6*, OUT+8, CPRS1+6*, CPRS1+7, CPRS1+10, PPRSO+4*, SOEVNT+6*
FHIEN OUT+3!
>> FHJ OUT+6*, OUT+7, OUT+8, OUT+16, OUT+17, PPRSO+4*, SOEVNT+6*
>> FHLOC OUT+10*, SOEVNT+1
>> FHLOCN OUT+10*, SOEVNT+1*
>> FHMEAL OUT+10*, CPRS1+4, SOEVNT+5
FHMIEN OUT+3!
>> FHOSTDT SOEVNT+2
>> FHPRCN CPRS1+3*, CPRS1+4
>> FHPRML CPRS1+3*, CPRS1+4, CPRS1+5
FHPTNM ASK!, EN2+1!
>> FHQ OUT+4*, OUT+6, OUT+13*
>> FHSF OUT+16*, OUT+17
>> FHSO CPRSO+2*, CPRS1*, CPRS1+1*, CPRS1+2, CPRS1+3, CPRS1+6, CPRS1+7
>> FHSOCN CPRS1+7*, CPRS1+9
>> FHSODAT CPRS1+7*, CPRS1+8
>> FHSOFG EN2+3*, LIS+8*
>> FHSOI CPRS1+7*, CPRS1+9, CPRS1+10
FHSOO CPRSO+1!, PPRSO+1
FHSOO( CPRS1+10*, PPRSO+4, SOEVNT+6
>> FHSOQ CPRS1+7*, CPRS1+10
>> FHTOTML("A" OUT+5*
>> FHTOTML("B" OUT+5*
>> FHTOTML("E" OUT+5*
>> FHTOTML("N" OUT+5*
IOF OUT+1, OUT+13
IOSL OUT+13
>> K LIS+7*, LIS+12*, LIS+13, LIS+14, LIS+15, LIS+16, L1+1
>> L L1+2*, L1+3*
>> LN E1, N0, N0+1*, N0+2*, N1+3*, N1A+3, N2, N2+1, N2+2, N2+5
, N2A, N2A+1, N2A+3, N2A+4, N3+2, N3+3, ADD+6, EN3+1, EN3+4, LIS+9*
, LIS+13*, LIS+16, PPRSO+2*
>> LS N0+1, ADD+5*, LIS+9*, LIS+13*, PPRSO+2*
>> M LIS+7*, LIS+11*, LIS+12, LIS+14, LIS+15, LIS+16, L1+1
>> M1 L1+1*, L1+2, L1+3
>> M2 LIS+15, L1+1*, L1+2*, L1+3*
>> MEAL N2*, N2+1*, N2+2, N2+3*, N2+4, N2+5, ADD+5, EN3+3*
N LIS+6!
N( LIS+7*, LIS+12, LIS+14, LIS+15, LIS+16, L1+1
N("" LIS+9
>> NAM LIS+2*, LIS+3
>> NO E1*, ADD+3*, ADD+4, ADD+5, ADD+6, EN2+4*, EN3+1*, EN3+2, EN3+3, EN3+4
, LIS+13
>> NOW EN1+1*, N3+2, ADD+5, EN3+2, PPRSO+3*
>> NUM N2A*, N2A+1, N2A+2, N2A+3, ADD+5, EN3+3*, LIS+14*, LIS+15, PPRSO+4*, SOEVNT+6*
>> OLD N3+2*
P LIS+6!
P( N0+1, N0+2*, N1+3*, N1A+3*, N2, N2+1*, N2+2*, N2+5*, N2A, N2A+1*
, N2A+3*, N2A+4, N3+2, N3+3*, ADD+6*, EN3+1, EN3+4!, LIS+16*
P(1 CPRS1+10*
>> SDT CAD*
>> SP N0+1*, N0+2, N1+1*, N1+2, N1+3, N1A, N1A+3, N2, N2+1, N2+2
, N2+5, N2A, N2A+1, N2A+3, N2A+4, N3+2, N3+3, ADD+5, ADD+6, EN3+1
, EN3+3*, EN3+4, PPRSO+4*, SOEVNT+6*
>> STDT CAD*
U CAD, OUT+6, OUT+8, OUT+10, OUT+11, OUT+18, OUT+19, F1+8, F2+8, CPRS1+3
, CPRS1+7, CPRS1+8, SOEVNT+1
>> WARD ASK+2*, ASK+3, A0+3, EN2+3*, LIS+1, LIS+3
X ASK!, A0*, A0+1, A0+2, A0+3, N0*, N0+1, N1+1, N1A*, N1A+1
, N1A+2, N2+3*, N2+4, N3*, ADD+3*, EN2+1!, EN3+3*, LIS+7*
Y ASK!, A0+4, E1+1, N1+1, LIS+4, OUT+11*, OUT+13, OUT+32, OUT+33, F1+7
, F1+8, F2+7, F2+8
>> YN N3*, N3+1
>> Z LIS+12*, LIS+15, LIS+16
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