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

Package: Dietetics

Routine: FHSP


Information

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

Source Information

Source file <FHSP.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Dietetics 8 (DTP,TR)^FH  ALG^FHCLN  ^FHOMDPA  DIETPAT^FHOMRR1  PATNAME^FHOMUTL  OPFILE^FHORX  EVNT^FHSP1  CHK^FHSPED  
VA FileMan 4 ^DIC  ^DIE  EN1^DIP  ^DIR  
Kernel 2 ^%ZIS  KILL^XUSCLEAN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Dietetics 3 FHSP1  FHSP2  FHSPED  

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

External References

Name Field # of Occurrence
^%ZIS EN2+3
^DIC EN1+1, N1+1
^DIE EN1+2
EN1^DIP EN2+2
^DIR A0+10, E1+4
DTP^FH N3+3, AD1+9, SO3+14, SO3+16, SO3+17, LIS+4
TR^FH R1+4, N3
ALG^FHCLN LIS+11
^FHOMDPA SO2+2
DIETPAT^FHOMRR1 LIS+8
PATNAME^FHOMUTL LIS+2
OPFILE^FHORX N3+4, SO3+18
EVNT^FHSP1 ADD+2
CHK^FHSPED MS1+6
KILL^XUSCLEAN 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
Routine Call
  • %ZIS
  • Line Location:
    • EN2+3
Routine Call
  • DIC
  • Line Location:
    • EN1+1
    • N1+1
Routine Call
  • DIE
  • Line Location:
    • EN1+2
Routine Call
  • DIR
  • Line Location:
    • A0+10
    • E1+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" A0+8
^FH(111 - [#111] LIS+7
^FH(118.3 - [#118.3] A0+16, N0+2, N1+2, N1A, N3+4, SO3+18, LIS+21
^FH(119.6 - [#119.6] A0+7, E1+2, AD1+3, SO3+5, LIS+6
^FHPT - [#115] SO+1, SO+2, A0+4, A0+5, A0+13, A0+14, E1, N0+1, N3+2*, N3+3
, AD1, AD1+2, AD1+4*, AD1+5, AD1+6, AD1+7*, AD1+9, SO3+3, SO3+5, SO3+6
, SO3+7, SO3+9, SO3+11*, SO3+12, SO3+14, LIS+3, LIS+13
^FHPT("ASPO" N3+2!, AD1+7*, SO3+13!, LIS+13
^FHPT("RM" A0+4
^XUSEC("FHMGR" EN1+2

Label References

Name Line Occurrences
AD1 ADD+1, AD1+6
ALL MS1+5
E0 MS1+4, MS1+8, N1A+1, N1A+2, ADD+3
E1 E1+1
EN1 EN1+1, EN1+2
KIL EN1+1, EN2+3, N1A, N2A, N3, SO2+2
L1 LIS+19
LIS E1+3, SO2+2
MS1 R1+3, R1+5, R1+13
N0 N0
N1 E1+3, E1+4
N1A N0+1, N0+2, N1A+3
N2A N2A+1, N2A+2
N3 N3
R1 R1+14, R1+15, MS1, MS1+3
SO N1+1
SO2 SO2+2
SO3 N1A+2

Naked Globals

Name Field # of Occurrence
^(0 E1, AD1+3, AD1+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN2+3!
>> ADM E0*, E1*, N0+1, N3+2, N3+3, ADD+1*, AD1, AD1+2, AD1+4, AD1+5
, AD1+6, AD1+7, AD1+9, SO2+1, SO3+2*, SO3+3, SO3+5, SO3+6, SO3+7, SO3+9
, SO3+11, SO3+12, SO3+13, SO3+14, LIS+1, LIS+3, LIS+8, LIS+13
>> ALG LIS+11
>> ALL SO2+2*
>> BY EN2+1*
>> C1 N2A+4*, N2A+5, N3+2
>> C2 N2A+4*, N2A+5
>> CTR LIS+12*
DA EN1+2*!
>> DHD EN2+2*
DIC EN1+1!*, EN2+1*, N1!*, N1+1!
DIC("A" N1*
DIC("DR" EN1+1*
DIC(0 EN1+1*, N1*
DIDEL EN1+2*!
DIE EN1+1*, EN1+2!
DIR A0+10!, E1+4!
DIR("A" A0+10*, E1+4*
DIR("B" E1+4*
DIR(0 A0+10*, E1+4*
>> DIROUT E1+4
>> DIRUT E1+4
DLAYGO EN1+1*!, N1+1!
DR EN1+2*!
DT SO+1, A0+4, ALL, SO3+15
DTIME R1, N0, N1A, N2A, N3
>> DTOUT EN1+1, N1+1
>> DTP A0+8*, A0+11, A0+12, N3+3*, N3+4, AD1+9*, SO3+14*, SO3+16*, SO3+17*, LIS+4*
DUZ EN1+2, N3+2, AD1+7, SO3+11
>> FH1 R1*, R1+14*, R1+15*
>> FH11 A0+7*, A0+11, A0+12
>> FHACT N3+4*, SO3+18*
>> FHALML R1*, R1+6*, R1+7*, SO3+18
FHCK A0+1!
FHCK( R1+8*, R1+9*, R1+10*, AD1+2, SO3+3
FHCK("B" R1+11*
FHCK("E" R1+11*
FHCK("N" R1+11*
>> FHCNSOF R1*, AD1+1*, AD1+9*, SO3+1*
>> FHCOFLG A0+9*, A0+18, A0+21*
>> FHCT ALL*
>> FHDA15 A0+5*, A0+6, A0+7, A0+8
>> FHDA15SF A0+14*, A0+15, A0+16
>> FHDASFNM A0+16*, A0+17, A0+19, A0+20
>> FHDASFQT A0+16*, A0+17, A0+19, A0+20
>> FHDATA0 LIS+3*, LIS+4, LIS+6
>> FHDATL A0+9*, A0+12*, A0+17*, A0+18, A0+19*
>> FHDFN SO+1, SO+2, A0+4, A0+5, A0+13, A0+14, E1, N0+1, N3+2, N3+3
, AD1, AD1+2, AD1+4, AD1+5, AD1+6, AD1+7, AD1+9, SO2+2, SO3+3, SO3+5
, SO3+6, SO3+7, SO3+9, SO3+11, SO3+12, SO3+13, SO3+14, LIS+3, LIS+13
>> FHDIET LIS+5*, LIS+6*, LIS+7, LIS+8
>> FHDIETP LIS+5*, LIS+8
FHDM14 A0+1!, A0+27
FHDM14( A0+6*, A0+22, A0+24, A0+25, A0+26, MS1+7, ALL
>> FHDT1 MS1+7, ALL*, SO3+16
>> FHDT2 MS1+7, ALL*, SO3+17
>> FHDTML R1*, R1+1, R1+2*, R1+3, R1+4*, R1+5, R1+7*, R1+8, R1+9, R1+10
, R1+11, R1+12, R1+14, R1+15, MS1+1*, MS1+3, MS1+4, MS1+5, MS1+6, MS1+7
>> FHDTP AD1+9*, SO3+1*, SO3+14*, SO3+15*, SO3+16*, SO3+17*, SO3+18
>> FHDTST LIS+4*, LIS+9
>> FHDTSV ALL*
FHEDI A0+1!
FHEDI( MS1+4*, MS1+7*, ALL*, E1, ADD+1, SO3+2
FHEDIF A0+1!
FHFLG A0+1!, MS1+6, MS1+7
>> FHI A0+4*, A0+6, A0+22*, A0+24, A0+25, A0+26, MS1+7*, ALL*, ADD+1*, SO3+2*
FHIEN A0+1!
FHIEN( A0+24*, A0+25*, A0+26*, MS1+4
>> FHJ A0+4*, A0+5, A0+6, A0+13, A0+14, A0+23*, A0+24, A0+25, A0+26, ALL*
, SO3+6*, SO3+7, SO3+9
>> FHLIS MS1+2*
>> FHLOC A0+7*, E1*, E1+2, AD1+3*, SO3+5*
>> FHLOCN A0+7*, E1*, E1+2*, N3+4, AD1+1*, AD1+3*, SO3+1*, SO3+4*, SO3+5*, SO3+18
>> FHMEAL A0+7*
FHMIEN A0+1!
>> FHPTNM LIS+5
>> FHQ A0+2*, A0+4, A0+10*, R1*, R1+3*, R1+5*, R1+8*, R1+9*, R1+10*, R1+12*
, R1+13, MS1
>> FHRNUM LIS+8*
>> FHSF A0+13*, A0+14
>> FHSOFG LIS+14*
>> FHSOOP SO+1*, SO+2
>> FHTOTML( R1+14, R1+15, MS1+3, MS1+4, MS1+6
>> FHTOTML("A" A0+3*
>> FHTOTML("B" A0+3*, A0+24*
>> FHTOTML("E" A0+3*, A0+26*
>> FHTOTML("N" A0+3*, A0+25*
>> FHTXT N3+4*, SO3+18*
>> FHX R1*, R1+4*, R1+6, E1+1
>> FLDS EN2+1*
>> FR EN2+2*
IOF SO+3, A0+10
>> IOP EN2+3*
IOSL A0+10
>> K LIS+13*, LIS+18*, LIS+19, LIS+20, LIS+21, LIS+22, L1+1
>> L EN2+1*, L1+2*, L1+3*
>> LN E1+3, N0, N0+1*, N0+2*, N1+3*, N1A+4, N2+1, N2A, N2A+1, N2A+3
, N2A+4, N3+2, N3+5, AD1+8, SO3+13, LIS+15*, LIS+19*, LIS+22
>> LS N0+1, AD1+7*, LIS+15*, LIS+19*
>> M LIS+13*, LIS+17*, LIS+18, LIS+20, LIS+21, LIS+22, L1+1
>> M1 L1+1*, L1+2, L1+3
>> M2 LIS+21, L1+1*, L1+2*, L1+3*
>> MEAL E1*, E1+1, N2+1, N3+4, AD1+2*, AD1+7, SO3+3*, SO3+12*
N LIS+12!
N( LIS+13*, LIS+18, LIS+20, LIS+21, LIS+22, L1+1
N("" LIS+15
>> NAM LIS+5*, LIS+9
>> NO E1*, AD1+5*, AD1+6, AD1+7, AD1+8, SO2+2*, SO3+8*, SO3+9*, SO3+10, SO3+11
, SO3+12, SO3+13, LIS+19
>> NOW N3+2, AD1+7, SO3+11
>> NUM N2A*, N2A+1, N2A+2, N2A+3, N3+4, AD1+7, SO3+12*, LIS+20*, LIS+21
>> OLD N3+2*
P LIS+12!
P( N0+1, N0+2*, N1+3*, N1A+4*, N2+1*, N2A, N2A+1*, N2A+3*, N2A+4, N3+2
, N3+5*, AD1+8*, SO3+13!, LIS+22*
>> SP N0+1*, N0+2, N1+1*, N1+2, N1+3, N1A, N1A+4, N2+1, N2A, N2A+1
, N2A+3, N2A+4, N3+2, N3+4, N3+5, AD1+7, AD1+8, SO3+9, SO3+12*, SO3+13
, SO3+18
>> SPD SO3+7*, SO3+9
>> TO EN2+2*
U EN1+1, A0+4, A0+6, A0+7, A0+8, A0+15, A0+16, MS1+4, MS1+7, ALL
, E1, E1+2, N3+3, N3+4, AD1+2, AD1+3, AD1+9, SO3+3, SO3+5, SO3+7
, SO3+9, SO3+14, SO3+18, LIS+4, LIS+6, LIS+7
>> WARD LIS+5*, LIS+6*, LIS+9
>> X EN1+1, R1+4*, N0*, N0+1, N1+1, N1A*, N1A+1, N1A+2, N1A+3, N3*
, AD1+5*, SO3+12*, LIS+13*
>> Y EN1+1, EN1+2, A0+8*, A0+10, E1+4, N1+1, LIS+5*, LIS+7*, LIS+8*, LIS+10
>> YN N3*, N3+1
>> Z LIS+18*, LIS+21, LIS+22
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