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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHASM7

Package: Dietetics

Routine: FHASM7


Information

FHASM7 ; HISC/REL - KCAL Distribution ;8/18/93 11:05

Source Information

Source file <FHASM7.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Dietetics 7 (DTP,TR)^FH  FIL^FHASE3  (KIL,TR)^FHASM1  REC^FHASM3  ^FHASMR1  ^FHASMR2  DID^FHDPA  
VA Fileman 7 ^%DT  NOW^%DTC  ^DIC  FILE^DICN  ^DIE  (,IX)^DIK  EN^DIWE  
Kernel 1 KILL^XUSCLEAN  
Problem List 1 LIST^GMPLUTL2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASM1  FHASM6  

Entry Points

Name Comments DBIA/ICR reference
EDC ;food/drug comment.
E35
E34
E33
E32
E31
DP1
KIL
ANF ;problem through NFS.
E6
SDAT ;create or update nutrition assessment and file to Progress Notes.
DNF ;aditional problem through NFS.
E9 ;D P0^FHASMR
FDT ;enter follow-up date.
EC1
EDU ;
E5
E4 ;
E7
DPL ;get diagnosis from Problem List package.
E8

External References

Name Field # of Occurrence
^%DT FDT+24
NOW^%DTC SDAT+7
^DIC EC1, E5
FILE^DICN SDAT+6, SDAT+24, E8+3
^DIE SDAT+28
^DIK E6+3
IX^DIK SDAT+30
EN^DIWE E5+2, E5+3
DTP^FH DP1+4
TR^FH EDU+5, FDT+3
FIL^FHASE3 E8+1
KIL^FHASM1 E31+1, E32, E33, E34, EDU+2, EDC+2, DP1+7, ANF+2, DNF+2, E4+2
, EC1, E5, FDT+24
TR^FHASM1 E31+1, E6+1
REC^FHASM3 SDAT+5
^FHASMR1 E31
^FHASMR2 E6+7
DID^FHDPA E8+4
LIST^GMPLUTL2 DPL+1
KILL^XUSCLEAN SDAT+1, E6, E6+3, KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Do you want to do a NITROGEN BALANCE? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: E31+1
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: E31+1
Function Call: READ
  • Prompt: "Enter Protein Intake (gm/24hr): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X1
  • Line Location: E32+0
Function Call: WRITE
  • Prompt: !?5,"Enter 0-200 grams of protein intake"
  • Line Location: E32+1
Function Call: READ
  • Prompt: "Enter Urinary Nitrogen Output (gm/24hr): "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X2
  • Line Location: E33+0
Function Call: WRITE
  • Prompt: !?5,"Enter 0-30 gms of Urinary Nitrogen output (24 hr UUN)"
  • Line Location: E33+1
Function Call: READ
  • Prompt: "Enter Insensible Nitrogen Output (gm/24hr): 4// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X3
  • Line Location: E34+0
Function Call: WRITE
  • Prompt: !?5,"Insensible Nitrogen output should be between 0-10 grams"
  • Line Location: E34+1
Function Call: WRITE
  • Prompt: !,"Nitrogen Balance: ",NB
  • Line Location: E34+2
Function Call: WRITE
  • Prompt: "N//"
  • Condition for execution: FHEDU=""
  • Line Location: EDU+1
Function Call: WRITE
  • Prompt: *7,!,"Enter 'Y' for yes or 'N' for no."
  • Line Location: EDU+6
Function Call: READ
  • Timeout: DTIME
  • Variable: FHFDC
  • Line Location: EDC+2
Function Call: WRITE
  • Prompt: " deleted..."
  • Line Location: EDC+3
Function Call: WRITE
  • Prompt: *7,!,"Enter Food/Drug Comment or Hit Return to Accept or @ to Delete and cannot exceed 30 characters!!"
  • Line Location: EDC+5
Function Call: READ
  • Timeout: DTIME
  • Variable: FHDCH
  • Line Location: DP1+7
Function Call: WRITE
  • Prompt: !!,"Diagnosis: "
  • Line Location: DP1+7
Function Call: WRITE
  • Prompt: KIL^FHASM1
  • Condition for execution: FHDIPL'="" FHDIPL W "// " R FHDCH:DTIME S:FHDCH=U FHQUIT=1 G:'$T!(FHDCH["^")
  • Line Location: DP1+7
Function Call: WRITE
  • Prompt: !!,*7,"Choose a number from the list or Hit Return to accept default!!",!
  • Line Location: DP1+10
Function Call: READ
  • Timeout: DTIME
  • Variable: AFDIA
  • Line Location: ANF+2
Function Call: WRITE
  • Prompt: " deleted..."
  • Line Location: ANF+3
Function Call: WRITE
  • Prompt: *7,!,"Enter patient's Problem or Hit Return to Accept or @ to Delete and cannot exceed 30 characters!!"
  • Line Location: ANF+5
Function Call: READ
  • Timeout: DTIME
  • Variable: NFDIA
  • Line Location: DNF+2
Function Call: WRITE
  • Prompt: " deleted..."
  • Line Location: DNF+3
Function Call: WRITE
  • Prompt: *7,!,"Enter Additional Problem of a patient or Hit Return to Accept or @ to Delete and cannot exceed 30 characters!!"
  • Line Location: DNF+5
Function Call: READ
  • Timeout: DTIME
  • Variable: APP
  • Line Location: E4+2
Function Call: WRITE
  • Prompt: " deleted..."
  • Line Location: E4+3
Function Call: WRITE
  • Prompt: *7,!,"Enter Physical Appearance of patient or Hit Return to Accept or @ to Delete and cannot exceed 60 characters."
  • Line Location: E4+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EC1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E5+0
Function Call: WRITE
  • Prompt: !!,"Comments:"
  • Line Location: E5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FDT+24
Function Call: READ
  • Prompt: "Save as Work in Progress or Complete or Delete this assessment: W// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: E6+0
Function Call: WRITE
  • Prompt: *7,!," Answer 'W' to file as Work in progress or 'C' to Complete and send to TIU or 'D' to Delete"
  • Line Location: E6+2
Function Call: WRITE
  • Prompt: !!,"Deleted...",!
  • Line Location: E6+3
Function Call: WRITE
  • Prompt: !!,"This Assessment has been saved as Work in Progress...",!
  • Line Location: E6+4
Function Call: WRITE
  • Prompt: " and forwarded to TIU"
  • Line Location: E6+11
Function Call: WRITE
  • Prompt: "...",!
  • Line Location: E6+11
Routine Call
  • DIE
  • Line Location:
    • SDAT+28
Routine Call
  • DIC
  • Line Location:
    • EC1
    • E5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls
^FH(115.3 - [#115.3] Classic Fileman Calls
^FH(115.4 - [#115.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115.011 SDAT+23
^DPT - [#2] E6+7
^FH(115.4 - [#115.4] FDT+3, E8
^FH(119.6 - [#119.6] FDT+5, FDT+9, FDT+13, FDT+17
^FHPT - [#115] E5+2, SDAT+2, SDAT+3*, SDAT+10*, SDAT+13*, SDAT+14*, SDAT+15*, SDAT+16*, SDAT+17*, SDAT+18*
, SDAT+19*, SDAT+20, SDAT+32*, SDAT+33, E7+1*, E7+2*, E8+2, E8+4*, E6+4*, E6+9*
, E6+10*
^FHPT("E" SDAT+29!
^TMP("FH" E5+1!, E5+2*, E7, E7+1, E7+2
^TMP($J E6+7!

Label References

Name Line Occurrences
ANF DP1+6, DP1+8, DP1+9, ANF+5
DNF ANF+3, DNF+5
DP1 DP1+10
DPL EDC+3
E31 E31+1
E32 E32+1
E33 E33+1
E34 E34+1
E35 E32, E33
E4 DNF+3, E4+5
E6 E6+2
E7 SDAT+31
E8 E7
E9 E8+1
EC1 E4+3
EDC EDC+5
EDU E31+2, EDU+6
FDT E5+2, FDT+24
KIL E31+2, E35

Naked Globals

Name Field # of Occurrence
^(0 SDAT+2*, SDAT+33*, E8+2*, E8+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SDAT+7
%DT FDT+20!*, FDT+24!
%DT("A" FDT+20*
%DT("B" FDT+22*
%DT(0 FDT+23*
>> A2 SDAT+8*
>> ACIR SDAT+12
>> ACIRP SDAT+12
>> ADT SDAT+6, SDAT+9, E8, E8+3
>> AFDIA ANF+1*, ANF+2*, ANF+3, ANF+4*, ANF+5, ANF+6
>> AGE SDAT+9
>> AMP SDAT+9
>> APP E4+1*, E4+2*, E4+3, E4+4*, E4+5, E4+6
>> ASE E8+3*, E8+4
>> ASN FHASM7+2*, SDAT+5*, SDAT+6*, SDAT+10, SDAT+13, SDAT+14, SDAT+15, SDAT+16, SDAT+17, SDAT+18
, SDAT+19, SDAT+20, SDAT+21, SDAT+25, SDAT+29, SDAT+30, SDAT+32, SDAT+33, E7+1, E7+2
, E6+3, E6+4, E6+9, E6+10
>> BFAMA SDAT+12
>> BFAMAP SDAT+12
>> BMI SDAT+8*, SDAT+9
>> BMIP SDAT+9
>> CCIR SDAT+12
>> CCIRP SDAT+12
>> CENB SDAT+12
>> CERBO SDAT+12
>> CFRB SDAT+12
>> CFRBO SDAT+12
>> CIBW SDAT+12
>> CPRBO SDAT+12
>> DA SDAT+25*, SDAT+30*, E6+3*
>> DA(1 SDAT+4*, SDAT+21*, SDAT+22, SDAT+25*, SDAT+27, SDAT+30*, E8+3*, E6+3*
>> DA(2 SDAT+21*, SDAT+22, SDAT+25*, SDAT+27
DD SDAT+4!, E8+3!
>> DFN DPL+1, E8+1, E8+4, E6+7, E6+11
DIC EC1*!, E5*!, E5+1*, SDAT+4!*, SDAT+21!, SDAT+22*, E8+3!*
DIC("B" EC1*, E5*
DIC("P" SDAT+23*
DIC("S" E5*
DIC(0 EC1*, E5*, SDAT+4*, SDAT+23*, E8+3*
DIE SDAT+25!, SDAT+27*
>> DIK SDAT+30*, E6+3*
>> DIK(1 SDAT+30*
>> DINUM SDAT+6*, E8+3*
>> DLAYGO SDAT+4*, E8+3*
DO SDAT+4!, SDAT+21!, E8+3!
>> DR SDAT+28*
DT FDT+21, FDT+23, SDAT+11
>> DTE E8*
DTIME E31+1, E32, E33, E34, EDU+1, EDC+2, DP1+7, ANF+2, DNF+2, E4+2
, E6
>> DTOUT EC1, E5, FDT+24
>> DTP DP1+4*, DP1+5, FDT+1*, FDT+6*, FDT+7*, FDT+10*, FDT+11*, FDT+14*, FDT+15*, FDT+18*
, FDT+19*, FDT+21*, FDT+22
DUZ SDAT+9, E8+4
>> DWGT SDAT+9
>> DWPK E5+1*
>> EKKG SDAT+12
>> FH1 SDAT+26*
>> FH2 SDAT+26*
FH7FLG E31*!
>> FHAPP E4+1, E4+2, E4+3*, E4+4, E4+6*, SDAT+14
>> FHASK E5+2, SDAT+1, SDAT+5, SDAT+6
>> FHASN1 SDAT+12*, SDAT+13
>> FHCAS E5+2, SDAT+5
>> FHDCH DP1+1*, DP1+7*, DP1+8, DP1+9, DP1+10, DP1+11
>> FHDD FDT+1*, FDT+5*, FDT+6, FDT+7, FDT+9*, FDT+10, FDT+11, FDT+13*, FDT+14, FDT+15
, FDT+17*, FDT+18, FDT+19
>> FHDFN E31+2, E35, E5+2, SDAT+2, SDAT+3, SDAT+4, SDAT+10, SDAT+13, SDAT+14, SDAT+15
, SDAT+16, SDAT+17, SDAT+18, SDAT+19, SDAT+20, SDAT+21, SDAT+25, SDAT+29, SDAT+30, SDAT+32
, SDAT+33, E7+1, E7+2, E8+2, E8+3, E8+4, E6+3, E6+4, E6+9, E6+10
>> FHDIACT DPL+2*, DPL+3*, DP1, DP1+6
>> FHDIDI SDAT+16
>> FHDINA ANF+1, ANF+2, ANF+3*, ANF+4, ANF+6*, SDAT+15
>> FHDINF DNF+1, DNF+2, DNF+3*, DNF+4, DNF+6*, SDAT+16
>> FHDINFD SDAT+16
>> FHDIPL DP1+7, DP1+9*, DP1+11*, SDAT+16
>> FHDIPLD DP1+9*, DP1+11*, SDAT+16
>> FHDIST SDAT+16
>> FHDITFCM SDAT+19
>> FHDITFDT SDAT+16
>> FHDITFKC SDAT+18
>> FHDITFML SDAT+17
>> FHDITFPR SDAT+20
>> FHDITFPR( SDAT+20, SDAT+26
>> FHDLI DP1+3*, DP1+4, DP1+5
>> FHEDU EDU+1, EDU+3, EDU+4, EDU+7*, SDAT+15
>> FHFDC EDC+1*, EDC+2*, EDC+3, EDC+4*, EDC+5, EDC+6
>> FHFDCSV EDC+1, EDC+2, EDC+3*, EDC+4, EDC+6*, SDAT+15
>> FHFEC SDAT+15
>> FHFPC SDAT+15
>> FHFUD FDT+21, FDT+25*, SDAT+11*, SDAT+16, SDAT+29, SDAT+30
>> FHFUDS SDAT+29
>> FHLOC FDT+5, FDT+9, FDT+13, FDT+17
>> FHOUT E6+7
>> FHPL SDAT+15
>> FHPLIST DPL+1
>> FHPLIST( DP1+3, DP1+4, DP1+5, DP1+10, DP1+11
>> FHPLIST(0 DPL+3
>> FHQUIT E32*, E33*, E34*, EDC+2*, DP1+7*, ANF+2*, DNF+2*, E4+2*
>> FHSPC SDAT+15
>> FHTUN SDAT+20*, SDAT+21, SDAT+26
>> FHWRD E8+4
>> FHYN SDAT+15
>> FLD SDAT+9
>> FRM SDAT+9
>> HGP SDAT+9
>> HGT SDAT+8, SDAT+9
>> IBW SDAT+9
>> K SDAT+32*, E7+2*
>> KCAL SDAT+9
>> LRTST SDAT+31
>> LRTST( SDAT+32
>> N1 SDAT+32*, SDAT+33, E7+2*
>> NB FHASM7+2*, E34+2*, SDAT+9
>> NFDIA DNF+1*, DNF+2*, DNF+3, DNF+4*, DNF+5, DNF+6
>> NOW SDAT+7*, SDAT+9
>> PCTB SDAT+12
>> PRO SDAT+9
>> PRT FHASM7+2*
>> RC E5*, FDT+2, FDT+3, SDAT+9, E8, E8+1, E8+4
>> S1 E8*
>> S2 E8*
>> S3 E8*
>> SCA SDAT+12
>> SCAP SDAT+12
>> SEF SDAT+12
>> SEX SDAT+9
>> TSF SDAT+12
>> TSFP SDAT+12
U E32, E33, E34, DP1+4, DP1+5, DP1+7, DP1+11, FDT+3, FDT+5, FDT+9
, FDT+13, FDT+17, SDAT+12, SDAT+15, SDAT+16, SDAT+17, SDAT+18, SDAT+19, SDAT+23, SDAT+26
, E6+4, E6+9, E6+10
>> UWGT SDAT+9
>> WARD E6+7*, E6+11
>> WCCM SDAT+12
>> WGP SDAT+9
>> WGT SDAT+8, SDAT+9
>> X E31+1*, E31+2, EDU+1*, EDU+2, EDU+3*, EDU+4*, EDU+6, EDU+7, EC1, E5
, FDT+3*, FDT+4, FDT+8, FDT+12, FDT+16, FDT+24, SDAT+6*, SDAT+23*, E8+3*, E6*
, E6+1*, E6+2, E6+3, E6+4, E6+5
>> X1 E32*, E32+1, E34+2
>> X2 E33*, E33+1, E34+2
>> X3 E34*, E34+1, E34+2
>> XD EC1*, SDAT+9
>> Y EC1, E5, FDT+24, FDT+25, SDAT+6, SDAT+9*, SDAT+10, SDAT+21*, SDAT+23, SDAT+24
, SDAT+25, E8+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 |  Naked Globals |  Local Variables |  All