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

Package: Dietetics

Routine: FHASM1


Information

FHASM1 ; HISC/REL - Nutrition Assessment ;1/25/00 12:08

Source Information

Source file <FHASM1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Dietetics 7 TR^FH  (,ASK)^FHASM2  (A,K)^FHASM2D  SDAT^FHASM7  ^FHOMDPA  PATNAME^FHOMUTL  CUR^FHORD7  
VA Fileman 3 ^%DT  ^DIC  ^DIK  
Kernel 2 $$FMADD^XLFDT  KILL^XUSCLEAN  
General Medical Record - Vitals 1 EN6^GMRVUTL  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Dietetics 10 FHASM1  FHASM2  FHASM2A  FHASM2B  FHASM2C  FHASM2D  FHASM3  FHASM5  
FHASM6  FHASM7  

Entry Points

Name Comments DBIA/ICR reference
PAT
CRE ;create new assessment
F3A ;start here if edit
TR ; Translate Lower to Upper Case
SVAR ;set variables of incomplete assessment.
ASKUS
P2
P1
STA ;if pt has Work in Progress assessment, ask user to Edit or Create or Delete Assessment.
HGT ; Convert Height to inches
HGP ; Height Help
WGT ; Convert Weight to lbs.
WGP ; Weight help
F1 ; Select Patient
F2
F3
F4 ; If Multidivisional site Select Communications Office
F5
F6
F7
F8
H1
F4A
H2
W1
KIL ; Final variable kill

External References

Name Field # of Occurrence
^%DT FHASM1+2, CRE+6, F2, F6+5
^DIC F4+2
^DIK STA+15
TR^FH TR+1
^FHASM2 F8
ASK^FHASM2 STA+14
A^FHASM2D F5+3
K^FHASM2D H1
SDAT^FHASM7 KIL+4, ASKUS+3
^FHOMDPA F1+1
PATNAME^FHOMUTL STA+1
CUR^FHORD7 F1+18
EN6^GMRVUTL F4+6
$$FMADD^XLFDT F3
KILL^XUSCLEAN F1+1, F1+3, STA+14, KIL+6, PAT, P1, P2, ASKUS, ASKUS+2, ASKUS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?20,"N U T R I T I O N A S S E S S M E N T",!!
  • Line Location: FHASM1+2
Function Call: WRITE
  • Prompt: *7,!!?5," [ Patient has expired. ]"
  • Line Location: F1+3
Function Call: WRITE
  • Prompt: ", "
  • Line Location: F1+31
Function Call: WRITE
  • Prompt: ?65,"Deleted..."
  • Line Location: STA+15
Function Call: WRITE
  • Prompt: !!,"Creating new Assessment...",!
  • Line Location: CRE+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: F4A+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: !!,"Weight: "
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: KIL
  • Condition for execution: WGT'="" WGT_" lbs","// " R X:DTIME G:'$T!(X["^")
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: F6+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: !!,"Usual Weight: "
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: KIL
  • Condition for execution: UWGT'="" UWGT_" lbs","// " R X:DTIME G:'$T!(X["^")
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: !!,"Enter height as: 6' 2"" or 74"" or 74IN or 6FT 2 IN or 30CM"
  • Line Location: HGP+1
Function Call: WRITE
  • Prompt: !,"Add an S if height is stated rather than measured."
  • Line Location: HGP+2
Function Call: WRITE
  • Prompt: !,"Add a K if value is a Knee Height measurement."
  • Line Location: HGP+3
Function Call: WRITE
  • Prompt: !,"Height should be between 12"" and 96"" (8')."
  • Line Location: HGP+4
Function Call: WRITE
  • Prompt: !!,"Enter Weight as 150# or 150# 6OZ or 800G or 70KG"
  • Line Location: WGP+1
Function Call: WRITE
  • Prompt: !,"Add an S if weight is stated rather than measured."
  • Line Location: WGP+2
Function Call: WRITE
  • Prompt: !,"Enter an A to determine weight anthropometrically."
  • Line Location: WGP+3
Function Call: WRITE
  • Prompt: !,"Weight should be between 0 Lbs and 750 Lbs."
  • Line Location: WGP+4
Function Call: READ
  • Prompt: "Enter Patient's Name: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: NAM
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: *7,!?5,"Enter Patient's Name to be printed on the report."
  • Line Location: PAT+1
Function Call: READ
  • Prompt: "Sex: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: SEX
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: *7," Enter M or F"
  • Line Location: P1+0
Function Call: READ
  • Prompt: "Age: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: AGE
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !?5,"Enter Age Less Than 124 in Years or Months (followed by M) but Not Both"
  • Line Location: P2+1
Function Call: READ
  • Prompt: "Do you wish to SAVE this Assessment Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKUS+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: ASKUS+1
Routine Call
  • DIC
  • Line Location:
    • F4+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.73 - [#119.73] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] F1+3, F1+17
^DPT("CN" F1+17
^FH(118.2 - [#118.2] F1+30, F1+31
^FH(119.6 - [#119.6] F1+16
^FH(119.9 - [#119.9] F3A+1, F4+1
^FHPT - [#115] F1+22, F1+24, F1+25, F1+26, F1+27, F1+28, STA+3, STA+4, STA+6, STA+7
, STA+9, STA+10, STA+12, F3, F3A+2, SVAR+1, SVAR+2, SVAR+9, SVAR+14, SVAR+15
, SVAR+18
^FHPT("AW" F1+15
^TMP("FH" F1+11!

Label References

Name Line Occurrences
ASKUS KIL+2, KIL+3, ASKUS+1
CRE STA+13
F1 STA+15
F2 P2+2
F3 F3
F3A STA+16
F4 F3A+2
F4A F4A+1
F5 F4A, F5+3, F5+4
F6 F5+3, F6+5
F7 F6, F7+1
F8 F7
H1 HGT+2, HGT+3, HGT+4, HGT+7
H2 HGT+5, HGT+9
HGP F4A+1
HGT F4A+1
KIL F4A, F5+1, F6+5, F7
P1 STA+16, CRE+4, CRE+7, P1
P2 P2+1
PAT PAT+1
SVAR STA+16
TR F4A+1, WGT+1, P1, P2, ASKUS+1
W1 WGT+2, WGT+3, WGT+4, WGT+5, WGT+6, WGT+8, WGT+10
WGP F5+4, F7+1
WGT F5+4, F7+1

Naked Globals

Name Field # of Occurrence
^( F1+29, F3A+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FHASM1+2*, CRE+6*, F2*, F6+1*, F6+5!, F8!
%DT("A" F6+1*
%DT("B" F6+4*
%DT(0 F6+5*
A1 F8!, HGT+1*, HGT+2, HGT+3, HGT+4, HGT+6, HGT+8*, HGT+10, WGT+1*, WGT+2
, WGT+3, WGT+4, WGT+5, WGT+7, WGT+9*, WGT+11
>> ACIR F1+6*, F1+8*, SVAR+10*
>> ACIRP F1+6*, F1+8*, SVAR+11*
>> ADM F1+4*, F1+17*, F1+18, F1+21, F1+22, F1+24, F1+25, F1+26, F1+27, F1+28
>> ADT F1+5*, STA+16*, CRE+6*, F2*, F3*, SVAR+3*
>> AGE F1+5*, STA+2*, STA+16, CRE+5*, CRE+7, F5+3, F5+4, PAT*, P2*, P2+1*
, SVAR+3*
>> AMP F1+5*, SVAR+5*
>> ASN F1+4*
>> BFAMA F1+6*, F1+8*, SVAR+11*
>> BFAMAP F1+6*, F1+8*, SVAR+11*
>> BMI F1+5*, F1+8*, SVAR+7*
>> BMIP F1+5*, F1+8*, SVAR+7*
>> CCIR F1+6*, F1+8*, SVAR+11*
>> CCIRP F1+6*, F1+8*, SVAR+11*
>> CENB F1+9*, SVAR+12*
>> CERBO F1+9*, SVAR+12*
>> CFRB F1+9*, SVAR+13*
>> CFRBO F1+9*, SVAR+13*
>> CIBW F1+9*, SVAR+12*
>> CPRBO F1+9*, SVAR+13*
>> DA STA+15*
>> DA(1 STA+15*
>> DEWGT F1+6*
>> DFN F1+2*, F1+3, F1+14, F1+17, F3, F4+6, PAT*
DIC F4+2!*
DIC(0 F4+2*
>> DIK STA+15*
>> DNWGT F1+9*
DT FHASM1+2*
DTIME F4A, F5+1, F7, PAT, P1, P2, ASKUS
>> DTOUT F6+5
>> DTP F1+4*, F6+2*, F6+3*, F6+4
DUZ F1+10
>> DWGT F1+5*, F5+6*, F6+2, F6+3, F6+6*, SVAR+4*
>> EKKG F1+8*, SVAR+13*
>> EXT F1+4*
>> FHA STA+9*, STA+10, STA+12
>> FHA0 SVAR+2*, SVAR+3, SVAR+4, SVAR+5, SVAR+6, SVAR+7, SVAR+8
>> FHA1 SVAR+9*, SVAR+10, SVAR+11, SVAR+12, SVAR+13
>> FHA3 SVAR+15*, SVAR+16, SVAR+17
>> FHADI SVAR+18*, SVAR+19, SVAR+20
>> FHAGE STA+2, CRE+4, CRE+5
>> FHALL F1+1*
>> FHAP F3A+1*
>> FHAPP F1+6*, SVAR+14*
>> FHASK F1+4*, STA+15, STA+16, CRE+2*
>> FHASS F1+4*, STA+7*, STA+11
>> FHASSD STA+10*, STA+11
>> FHAST F1+7*, STA+8*, STA+11*, STA+12*, STA+13
>> FHCAS F1+4*, STA+4*, STA+5, STA+6, STA+7, STA+13, STA+15, STA+16, SVAR+2, SVAR+9
, SVAR+14, SVAR+15, SVAR+18
>> FHCASD F1+4*, STA+6*
>> FHCFRBO F1+4*
>> FHCLI F1+5*, F1+10*, F1+16*
>> FHCM F1+4*
>> FHCOMM F4+1*, F4+4*
>> FHDFN F1+1, F1+15, F1+22, F1+24, F1+25, F1+26, F1+27, F1+28, STA+3, STA+4
, STA+6, STA+7, STA+9, STA+10, STA+12, STA+15, F3, F3A+2, PAT*, SVAR+1
, SVAR+2, SVAR+9, SVAR+14, SVAR+15, SVAR+18
>> FHDIDI F1+7*, F1+19*, F1+20, SVAR+20*
>> FHDINA F1+9*, SVAR+16*
>> FHDINF F1+7*, SVAR+19*
>> FHDINFD F1+7*, SVAR+19*
>> FHDIPL F1+7*, SVAR+19*
>> FHDIPLD F1+7*, SVAR+19*
>> FHDIST F1+7*, SVAR+20*
>> FHDITF F1+7*, SVAR+20*
>> FHDITFCM F1+7*, F1+25*
>> FHDITFDT F1+7*, F1+24*
>> FHDITFKC F1+7*, F1+27*
>> FHDITFML F1+7*, F1+26*
>> FHDITFPR F1+31
>> FHDITFPR( F1+30*, F1+31
>> FHDVHGT F1+7*
>> FHDVWGT F1+9*, F4+6*, F5+6, F6+2
>> FHEDU F1+6*, SVAR+16*
>> FHEF F1+4*
>> FHFDC F1+8*
>> FHFDCSV F1+8*, SVAR+17*
>> FHFEC F1+4*, SVAR+16*
>> FHFFC F1+4*
>> FHFPC F1+4*, SVAR+16*
>> FHFUD F1+7*, SVAR+20*
>> FHFUDS F1+8*, SVAR+20*
>> FHHWF F1+4*, F4A+2*, F5+3*, F5+5*, F6
>> FHKCAL F1+4*
>> FHLOC F1+4*, F1+15*, F1+16
>> FHPL F1+9*, SVAR+17*
>> FHPLXSV F1+5*
>> FHPTNM CRE+5, F3A+1
>> FHQTALL F1+11*
>> FHQUIT F1+4*, STA+14, KIL+2
>> FHSEX CRE+4, CRE+5
>> FHSPC F1+6*, SVAR+17*
>> FHTUN F1+31*
>> FHU F3A+1*, F3A+3, HGT+2, WGT+2
>> FHVHGT F1+7*, F4+6*, F4+7
>> FHVWGT F1+9*, F4+6*, F5
>> FHYN F1+9*, SVAR+16*
>> FLD F1+5*, SVAR+6*
>> FRM F1+5*, SVAR+5*
>> GMRVSTR F4+6*
>> H1 F4A*, F4A+3*
>> HGP F1+5*, F3A+2*, F3A+3, F4A+3*, SVAR+4*
>> HGT F1+5*, F3A+2*, F3A+3, F4+7*, F4A, F4A+3*, SVAR+3*
>> I F1+15*
>> IBW F1+5*, SVAR+5*
IOF FHASM1+2
K F8!, HGT+6*, HGT+7, HGT+8, WGT+7*, WGT+8, WGT+9
>> KCAL F1+5*, SVAR+6*
>> KNEE F1+4*
>> NAM CRE+5*, F3A+1*, PAT*, PAT+1
>> NB F1+6*, SVAR+8*
>> NOW F1+6*, SVAR+8*
>> NWGT F1+9*
>> PCTB F1+9*, SVAR+12*
>> PID PAT*
>> PRO F1+5*, SVAR+6*
>> RC F1+5*, SVAR+6*
>> SCA F1+6*, F1+8*, SVAR+10*
>> SCAP F1+6*, F1+8*, SVAR+10*
>> SEF F1+9*, SVAR+13*
>> SEX F1+5*, STA+16, CRE+5*, CRE+7, PAT*, P1*, P1+1*, SVAR+3*
>> TF F1+22*, F1+23, F1+24, F1+25, F1+26, F1+27, F1+28
>> TF2 F1+28*, F1+29
>> TSF F1+6*, F1+8*, SVAR+10*
>> TSFP F1+6*, F1+8*, SVAR+10*
>> TUN F1+29*, F1+30
U F1+16, F1+24, F1+25, F1+26, F1+27, STA+4, STA+6, STA+7, STA+10, F4+1
, KIL+3, SVAR+3, SVAR+4, SVAR+5, SVAR+6, SVAR+7, SVAR+8, SVAR+10, SVAR+11, SVAR+12
, SVAR+13, SVAR+16, SVAR+17, SVAR+19, SVAR+20
>> UWGT F1+5*, F7, F7+2*, SVAR+5*
>> WARD F1+6*, F1+17*
>> WCCM F1+9*, SVAR+12*
>> WGP F1+5*, F5+3*, F5+6*, SVAR+4*
>> WGT F1+5*, F5*, F5+1, F5+3*, F5+5, F5+6*, SVAR+4*
X FHASM1+2*, CRE+6*, F2*, F4+6, F4A*, F5+1*, F5+2*, F5+3, F6+5, F7*
, F8!, HGT+1, HGT+2*, HGT+3, HGT+4, HGT+5, HGT+6, HGT+7, HGT+8*, HGT+9
, H1, H2+1, WGT+1, WGT+2*, WGT+3, WGT+4, WGT+5, WGT+6, WGT+7, WGT+8
, WGT+9*, WGT+10, W1+1, KIL+3, P1*, P2*, ASKUS*, ASKUS+1*, ASKUS+2
>> X1 F1+8*, F1+18*, F3A+3*, F4+7*, F4A, F4A+2
>> X2 F1+8*, F3A+3*
>> XD F1+5*, SVAR+7*
>> XX F3A+2*
Y FHASM1+2, F1+13*, F1+19, F1+29*, F1+30, F1+32!, CRE+6, F2, F4+3, F4+4
, F4A+1, F4A+2, F4A+3, F5+3, F5+4, F5+5, F5+6, F6+5, F6+6, F7+1
, F7+2, F8!, HGT+1*, HGT+2*, HGT+3*, HGT+4*, HGT+5*, HGT+6*, HGT+9*, HGT+10*
, H2*, H2+1*, WGT+1*, WGT+2*, WGT+3*, WGT+4*, WGT+5*, WGT+6*, WGT+7*, WGT+10*
, WGT+11*, W1*, W1+1*
>> Y0 F4A*, F4A+3, H2+1*, W1+1*
>> Y1 F4A+3, F5+6, H2+1*, W1+1*
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