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

Package: Dietetics

Routine: FHASM7


Information

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

Source Information

Source file <FHASM7.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to do a NITROGEN BALANCE? NO// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: E31+1
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: E31+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter Protein Intake (gm/24hr): "
  • Variable: X1
  • Timeout: DTIME
  • Line Location: E32+0
Function Call: WRITE
  • Prompt: !?5,"Enter 0-200 grams of protein intake"
  • Line Location: E32+1
Function Call: READ
  • Formatting: !
  • Prompt: "Enter Urinary Nitrogen Output (gm/24hr): "
  • Variable: X2
  • Timeout: DTIME
  • 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
  • Formatting: !
  • Prompt: "Enter Insensible Nitrogen Output (gm/24hr): 4// "
  • Variable: X3
  • Timeout: DTIME
  • 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
  • Variable: FHFDC
  • Timeout: DTIME
  • 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
  • Variable: FHDCH
  • Timeout: DTIME
  • 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
  • Variable: AFDIA
  • Timeout: DTIME
  • 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
  • Variable: NFDIA
  • Timeout: DTIME
  • 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
  • Variable: APP
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Save as Work in Progress or Complete or Delete this assessment: W// "
  • Variable: X
  • Timeout: DTIME
  • 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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call