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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Health Summary 2 (REGDT4,REGDTM4)^GMTSU  CKP^GMTSUP  
Dietetics 1 ^FHWHEA  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Controls branching and execution
DI ; Diet Orders
DICOM ; Writes comments for DI
TFCOM ; Writes comments for TF
WRAP ; Controls wrap-around feature for comments, etc.
NSWRT ; Writes Nutritional Status
SFWRT ; Writes Supplemental Feedings
EN ; Dietetic Encounters
TF ; Tubefeeding
TFWRT ; Writes tubefeeding
NS ; Nutritional status
SF ; Supplemental feeding
DIWRT ; Writes Diet Orders

External References

Name Field # of Occurrence
^FHWHEA MAIN+2
REGDT4^GMTSU DIWRT+3, DIWRT+5, SFWRT+3, SFWRT+5, TFWRT+3, TFWRT+5, EN+6
REGDTM4^GMTSU NSWRT+3
CKP^GMTSUP DI+2, DI+3, DIWRT+6, DICOM+1, NS+3, NSWRT+4, SF+3, SFWRT+6, SFWRT+7, SFWRT+10
, SFWRT+13, TF+3, TFWRT+6, TFWRT+7, TFWRT+8, TFWRT+9, TFCOM+1, WRAP+2, EN+2, EN+7
, EN+8, EN+9, EN+13

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J MAIN+2, MAIN+3!, DI+3, DI+4, DIWRT+2, NS+1, NS+5, NSWRT+2, SF+1, SF+5
, SFWRT+2, TF+1, TF+5, TFWRT+2, EN+1, EN+3, EN+5, EN+10, EN+13

Label References

Name Line Occurrences
@( MAIN+2
DICOM DIWRT+11
DIWRT DI+4
NSWRT NS+5
SFWRT SF+5
TFCOM TFWRT+10
TFWRT TF+5
WRAP DIWRT+9, DICOM+3, SFWRT+9, SFWRT+12, SFWRT+15, TFCOM+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNTR MAIN+3!, DI+1*, DIWRT+1*, NS+2*, NSWRT+1*, SF+2*, SFWRT+1*, TF+2*, TFWRT+1*, EN+1*
, EN+4*
COL MAIN+3!, DIWRT+9*, DICOM+3*, SFWRT+9*, SFWRT+12*, SFWRT+15*, TFCOM+3*, WRAP+1
GMI MAIN+1~, MAIN+2*
GMIDT DI+4~*, DIWRT+2, NS+4~, NS+5*, NSWRT+2, SF+4~, SF+5*, SFWRT+2, TF+4~, TF+5*
, TFWRT+2, EN+2~*, EN+3*, EN+5, EN+10, EN+13
>> GMTS1 DI+4, NS+5, SF+5, TF+5, EN+2
>> GMTS2 DI+4, NS+5, SF+5, TF+5, EN+3
>> GMTSNDM MAIN+1, DI+1, NS+2, SF+2, TF+2, EN+1
>> GMTSQIT DI+2, DI+3, DIWRT+6, DICOM+1, NS+3, NSWRT+4, SF+3, SFWRT+6, SFWRT+7, SFWRT+10
, SFWRT+13, TF+3, TFWRT+6, TFWRT+7, TFWRT+8, TFWRT+9, TFCOM+1, WRAP+2, EN+2, EN+7
, EN+8, EN+9, EN+13
GMW DI+4~, NS+4~, SF+4~, TF+4~, EN+2~
GMZ DIWRT+2~*, DIWRT+3, DIWRT+4, DIWRT+5, DIWRT+7, DIWRT+10, DIWRT+11, DICOM+2, DICOM+3, NSWRT+2~*
, NSWRT+3, NSWRT+5, SFWRT+2~*, SFWRT+3, SFWRT+4, SFWRT+5, SFWRT+7, SFWRT+10, SFWRT+13, TFWRT+2~*
, TFWRT+3, TFWRT+4, TFWRT+5, TFWRT+7, TFWRT+8, TFWRT+9, TFWRT+10, TFCOM+2, TFCOM+3, EN+5~*
, EN+6, EN+7, EN+8, EN+9
I EN+13~*
MAX MAIN+1~*
STP MAIN+3!, DIWRT+4*, DIWRT+5*, DIWRT+6, SFWRT+4*, SFWRT+5*, SFWRT+6, TFWRT+4*, TFWRT+5*, TFWRT+6
STR MAIN+3!, DIWRT+7*, DIWRT+8, DICOM+3*, SFWRT+7*, SFWRT+8, SFWRT+10*, SFWRT+11, SFWRT+13*, SFWRT+14
, TFCOM+3*, WRAP+1, WRAP+2
STRT MAIN+3!, DIWRT+3*, DIWRT+6, NSWRT+3*, NSWRT+5, SFWRT+3*, SFWRT+6, TFWRT+3*, TFWRT+6, EN+6*
, EN+7
TX MAIN+3!, WRAP+1*, WRAP+2
U DIWRT+3, DIWRT+4, DIWRT+5, DIWRT+7, DIWRT+10, DIWRT+11, DICOM+2, DICOM+3, NSWRT+3, NSWRT+5
, SFWRT+3, SFWRT+4, SFWRT+5, SFWRT+7, SFWRT+10, SFWRT+13, TFWRT+3, TFWRT+4, TFWRT+5, TFWRT+7
, TFWRT+8, TFWRT+9, TFWRT+10, TFCOM+2, TFCOM+3, EN+6, EN+7, EN+8, EN+9
>> X DIWRT+3*, DIWRT+5*, NSWRT+3*, SFWRT+3*, SFWRT+5*, TFWRT+3*, TFWRT+5*, EN+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All