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
Print Page as PDF
Routine: GMTSFH1

Package: Health Summary

Routine: GMTSFH1


Information

GMTSFH1 ; SLC/JER,MKB - Dietetics Component con't ;1/29/91 11:44

Source Information

Source file <GMTSFH1.m>

Entry Points

Name Comments DBIA/ICR reference
SF ; Supplemental feeding
SFWRT ; Writes Supplemental Feedings
TF ; Tubefeeding
TFWRT ; Writes tubefeeding
TFCOM ; Writes comments for TF
WRAP ; Controls wrap-around feature for comments, etc.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"SUPPLEMENTAL FEEDINGS:",!
  • Line Location: SF+3
Function Call: WRITE
  • Prompt: STRT_" - "_STP,!
  • Line Location: SFWRT+6
Function Call: WRITE
  • Prompt: STR,!
  • Line Location: SFWRT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SFWRT+9
Function Call: WRITE
  • Prompt: STR,!
  • Line Location: SFWRT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SFWRT+12
Function Call: WRITE
  • Prompt: STR,!
  • Line Location: SFWRT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: SFWRT+15
Function Call: WRITE
  • Prompt: !,"TUBE FEEDINGS:",!
  • Line Location: TF+3
Function Call: WRITE
  • Prompt: STRT_" - "_STP,!
  • Line Location: TFWRT+6
Function Call: WRITE
  • Prompt: ?12,"Product: ",$P(GMZ,U,3),!
  • Line Location: TFWRT+7
Function Call: WRITE
  • Prompt: ?11,"Strength: ",$P(GMZ,U,4),?51,"Quantity: ",$P(GMZ,U,5),!
  • Line Location: TFWRT+8
Function Call: WRITE
  • Prompt: ?9,"Daily CC's: ",$P(GMZ,U,6),?47,"Daily KCal's: ",$P(GMZ,U,7),!
  • Line Location: TFWRT+9
Function Call: WRITE
  • Prompt: ?11,"Comments: "
  • Line Location: TFCOM+1
Function Call: WRITE
  • Prompt: $P(GMZ,U,8),!
  • Line Location: TFCOM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TFCOM+3
Function Call: WRITE
  • Prompt: $E(STR,1,TX-1),!
  • Line Location: WRAP+1
Function Call: WRITE
  • Prompt: ?21,$E(STR,TX,$L(STR))
  • Line Location: WRAP+2
Info |  Source |  Entry Points |  Interaction Calls