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

Package: Health Summary

Routine: GMTSFH


Information

GMTSFH ; SLC/JER,MKB,KER - Dietetics Component ; 02/27/2002

Source Information

Source file <GMTSFH.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Controls branching and execution
DI ; Diet Orders
DIWRT ; Writes Diet Orders
DICOM ; Writes comments for DI
NS ; Nutritional status
NSWRT ; Writes Nutritional Status
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.
EN ; Dietetic Encounters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "DIETS:",!
  • Line Location: DI+2
Function Call: WRITE
  • Prompt: "No diet orders available.",!
  • Line Location: DI+3
Function Call: WRITE
  • Prompt: STRT_" - "_STP,?25
  • Line Location: DIWRT+6
Function Call: WRITE
  • Prompt: STR
  • Line Location: DIWRT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DIWRT+10
Function Call: WRITE
  • Prompt: " Comments: "
  • Line Location: DICOM+1
Function Call: WRITE
  • Prompt: $P(GMZ,U,4),!
  • Line Location: DICOM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DICOM+3
Function Call: WRITE
  • Prompt: !,"NUTRITIONAL STATUS:",!
  • Line Location: NS+3
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
Function Call: WRITE
  • Prompt: !,"DIETETIC ENCOUNTERS:",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: STRT,?12,$P(GMZ,U,2),!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: ?6,$P(GMZ,U,3),!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: ?6,$P(GMZ,U,4),!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: ?6,$G(^UTILITY($J,"NA",GMIDT,1)),!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: ?6,"Comments:",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: ?6,$G(^UTILITY($J,"NA",GMIDT,I)),!
  • Line Location: EN+13
Info |  Source |  Entry Points |  Interaction Calls