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

Package: Dietetics

Routine: FHORT10


Information

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

Source Information

Source file <FHORT10.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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