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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: FHORT10

Package: Dietetics

Routine: FHORT10


Information

FHORT10 ; HISC/REL/NCA - Tubefeeding (cont) ;8/6/96 12:00

Source Information

Source file <FHORT10.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Dietetics 4 TR^FH  WAIT^FHORD71  CAN^FHORT2  ($$SRCH,DISP,HELP)^FHORTR  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Dietetics 6 FHOMRT1  FHORD82  FHORT1  FHORT5A  FHORX3  FHWOR5  

Entry Points

Name Comments DBIA/ICR reference
E1
E1A
E10
E11
E2
F0
E3
F3
ML
C1
MORE
FIX ; Reset Quantity to parsable string
F1
GRAM ; Get the Grams for powder form
AB
F5
F6 ;;per Day;per Hour;Twice a Day;Three times a Day;Every 2 Hours;Every 3 Hours;Every 4 Hours;Every 6 Hours

External References

Name Field # of Occurrence
^DIC E1+1
TR^FH E3, MORE
WAIT^FHORD71 AB
CAN^FHORT2 MORE+3
$$SRCH^FHORTR E10+5
DISP^FHORTR MORE+2
HELP^FHORTR E10+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !?5,"Product ",$P($G(^FH(118.2,+Y,0)),"^",1)," added"
  • Line Location: E1A+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E10+0
Function Call: WRITE
  • Prompt: " Product including Strength and Quantity DELETED."
  • Line Location: E10+2
Function Call: WRITE
  • Prompt: !!,$P($G(^FH(118.2,+OLDT,0)),"^",1)," Replaced With ",$P($G(^FH(118.2,+Y,0)),"^",1)
  • Line Location: E10+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter 1 to 4 to indicate strength."
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: !,"Enter quantity as 2000 K, 100 ML/HOUR, 8 OZ/TID, 500 ML/HR X 16, 20 GRAMS/DAY etc."
  • Line Location: F0+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E3+0
Function Call: WRITE
  • Prompt: *7,!!,"Cannot enter ""GRAMS"" if AMT/UNIT is specified in ML's."
  • Line Location: E3+7
Function Call: WRITE
  • Prompt: *7,!!,"Enter quantity in powder form when AMT/UNIT is in Grams (e.g., # GMS, 1 PKG, or 1 U/Frequency)."
  • Line Location: E3+9
Function Call: WRITE
  • Prompt: !!,"Quantity: ",QUA," -- Total: ",TC," ml"
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: *7,!!,"WARNING: Total Amount should be between 0 to 5000 ml",!,"Please Edit Tubefeeding and Modify."
  • Line Location: C1+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter/Edit another Tubefeeding product ? N// "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: *7,!,"Answer YES to Enter More Products or Edit Existing Product.",!,"Answer NO to End Entering and Editing and Process the Products.",!,"Enter ""^"" will Terminate process."
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: *7,!!,"Tubefeeding Order TERMINATED - No order entered!"
  • Line Location: AB+0
Function Call: WRITE
  • Prompt: *7,!!,"Units may be K for Kcals, M for ml's, O for oz. or U for units (e.g., cans)"
  • Line Location: F5+0
Function Call: WRITE
  • Prompt: !,"Frequency may be DAY, HOUR, QD, QH, BID, TID, QID, Q2H, Q3H, Q4H or Q6H"
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: !,"May also input 100ML/HR X 16 for 16 hours or 100ML/Q3H X 6F for 6 feedings."
  • Line Location: F5+2
Function Call: WRITE
  • Prompt: !,"When feeding is specified, it is taken into account other than the predetermined frequency interval.",!,"If Frequency is ordered per day, the Total ml is always the Units ordered."
  • Line Location: F5+3
Function Call: WRITE
  • Prompt: !,"Valid quantity for powder form product can be ""# GRAMS"" as 20 G, GRAMS",!,"or GMS or as 1 PKG or 1 U and the frequency (e.g.,20 GRAMS/DAY, 1 PKG/TID).",!
  • Line Location: F5+4
Routine Call
  • DIC
  • Line Location:
    • E1+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(118.2 - [#118.2] E1A+1, E10, E10+7, E11
^FHPT - [#115] MORE+3

Label References

Name Line Occurrences
AB E1+1, E1A+1, E10, E2, E3, MORE
C1 F3+7, ML
E1 E1+1, C1+5, MORE+2
E10 E10+3, E10+5
E11 E10+1
E1A E10+6
E2 E2+1
F0 E11+1, E2, E3+7, E3+9, F5+4
F1 FIX+3
F3 E3+10
F5 E3, E3+11, F3+1, F3+2, F3+5, F3+6
F6 F3+3, FIX+3
FIX E1A
GRAM E3+10
MORE E10+2, E3+1, MORE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A1 E3+4*, E3+5, E3+6*, F3+3, F3+5, F3+6, F3+7, GRAM+2*
>> A2 E3+6*, E3+7, E3+8*, E3+9, E3+10, F3*, F3+1, F3+2, GRAM+1, GRAM+2*
>> A3 E3+8*, F3*, F3+4, F3+7*, ML*, ML+1*, ML+2*, C1
>> ADM MORE+3
>> ANS MORE*, MORE+1, MORE+2
>> DFN AB*
DIC E1!*, E1+1!
DIC("A" E1+1*
DIC(0 E1*
DTIME E10, E2, E3, MORE
>> DTOUT E1+1
>> DX F3+5*, F3+6*, C1+4*
>> FHDFN MORE+3, AB*
>> FHWF AB
>> FLG E11*, E11+1*, E3+7, E3+9, E3+10
>> FLG1 E1*, E10+2*, E11*, MORE+3
>> K E3+4*, E3+5*, E3+6, E3+10*, F3, FIX+1*, FIX+2*, FIX+3*, F1
>> NO E1A+1*, E10+2*, MORE+3
>> OLDT E10+4*, E10+5, E10+6, E10+7
>> QUA E1*, E1A*, E3, E3+1, F3+3*, F3+4*, C1+1, C1+5
>> S1 E3+10*, F3*, F3+3, F3+5, F3+6, F3+7, C1+4
>> S2 E11*, F3+2*, F3+3, ML, ML+1, ML+2
>> STR E1*, E1A*, E2, E2+2*, E3+1, F3+5, F3+6, C1+3, C1+5
>> T(0 E11*, E11+1, F3+5, F3+6, C1+4, GRAM+2
>> TC E3+2*, F3+5*, F3+6*, F3+7*, C1*, C1+1, C1+2, C1+3, C1+5
>> TF MORE+3*
>> TK E3+2*, F3+5*, C1+4*, C1+5
>> TP E3+2*, C1+3*, C1+4, C1+5
>> TT E11*, E3+1, C1+5
TUN AB!
TUN( E1A, E1A+1*, E10+2!, E10+4, E10+7!, E3+1, C1+5*
>> TW E3+2*, C1+3*, C1+5
U E10, E2
>> X E1+1, E1A*, E10*, E10+1, E10+2, E10+3, E10+5, E2*, E2+1, E2+2
, E3*, E3+1, E3+3*, E3+4, MORE*, FIX+1*, FIX+2*, FIX+3, F1*
>> XX E3+9*
>> Y E1+1, E1A, E1A+1, E10, E10+2, E10+4, E10+5*, E10+6, E10+7, E11
>> Z E3+4*, FIX+3*, F1

Marked Items

Name Field # of Occurrence
$T(F6 F3+3, FIX+3
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 |  Local Variables |  Marked Items  | All