Routine: FHMTK7

Package	Total	Call Graph
Dietetics	3	(DTP,TR)^FH (SF,SO)^FHMTK8 (,OPFILE)^FHORX
VA Fileman	3	NOW^%DTC FILE^DICN ^DIK

Package	Total	Caller Graph
Dietetics	4	FHMTK FHOMRO2 FHORD72 FHWADM

Entry Points

Name	Comments	DBIA/ICR reference
SFMENU	;Update SF Menu for a patient, P30
AGN
PAT	; Update Restrictions for a patient
ADDSO(FHDFN,FHADM,FHML,FHSO,FHN)	;
CONT
ADEV
SET
UPDSF(FHDFN,FHADM,FHSF,FHPSF)	;
CHKSO	;compares SO
SOO	;OUT SO
A1
UPDTSO(FHDFN,FHADM,FHUCSO)	;update SO
CHG	; Change the Diet Restrictions
UPD	; Update Pattern
ADD	; Add the Diet Restriction
CHG1
FIL	; File the Event
STORD	;Update Standing orders for a patient, P30
CURDT(FHDFN,FHADM)	;get current patient's diet pattern ien of 111.1
CANCSF
SFO	;out SFs
PURG	; Purge the Old Restrictions
CANCSO	;cancel SO
DOSF(FHDFN,FHADM)	;check/update SF
TRYSF

External References

Name	Field # of Occurrence
NOW^%DTC	UPDTSO+3, UPDSF+2
FILE^DICN	A1+5
^DIK	PURG+2
DTP^FH	SOO+3, CANCSO+5, AGN+6, SFO+3, UPDSF+3
TR^FH	FHMTK7+5
SF^FHMTK8	SFMENU+1
SO^FHMTK8	STORD+1
^FHORX	SET, FIL+1
OPFILE^FHORX	ADEV+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Update All Diet Related Information for Patients? Y // " Formatting: !! Timeout: DTIME Variable: X Line Location: FHMTK7+4
Function Call: WRITE	Prompt: *7,!," Answer YES or NO" Line Location: FHMTK7+5
Function Call: WRITE	Prompt: !,"Unknown user" Line Location: UPDTSO+4
Function Call: WRITE	Prompt: !,"Unknown user" Line Location: UPDSF+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FHPT - [#115]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(111.1 - [#111.1]	PAT+3, UPD+3, UPD+5, CHKSO+3, CHKSO+4, CHKSO+5, DOSF+4, CURDT+5
^FH(115.2 - [#115.2]	CHG1+1, A1+6, PURG+2
^FH(118.1 - [#118.1]	UPDSF+10, TRYSF+8, TRYSF+9, CANCSF+3, CANCSF+4
^FH(118.3 - [#118.3]	CANCSO+6, CANCSO+7, AGN+7, AGN+8
^FH(119.6 - [#119.6]	CANCSO+1, ADDSO+2, UPDSF+8
^FHPT - [#115]	PAT+1, PAT+2, UPD+2, UPD+6, UPD+7, CHG+2, CHG+4, CHG1, A1, A1+1 , A1+2, A1+3, A1+4, A1+6, PURG+1, SOO+2, SOO+4, SOO+5, CHKSO+7, CHKSO+8 , CANCSO+1, CANCSO+2, CANCSO+3, CANCSO+5, ADDSO+2, AGN, AGN+1, AGN+2, AGN+3, AGN+4 , AGN+5, AGN+6, SFO+2, SFO+4, SFO+5, DOSF+5, DOSF+7, DOSF+8, UPDSF+3, UPDSF+6 , TRYSF, TRYSF+1, TRYSF+2, TRYSF+3, TRYSF+4, TRYSF+5, TRYSF+6, TRYSF+7, CANCSF+1, CANCSF+2* , CURDT+2, CURDT+3
^FHPT("ASPO"	CANCSO+4!, AGN+5*
^FHPT("AW"	FHMTK7+7
^FHPT("OP"	SOO+2, SFO+2
^TMP("FH"	SOO+1!, ADEV, ADEV+1, ADEV+2, ADEV+6!, CANCSO+7, AGN+8, SFO+1!, TRYSF+9, CANCSF+4
^TMP($J	PAT+4, SOO+10, SFO+10, DOSF+3

Label References

Name	Line Occurrences
$$ADDSO	UPDTSO+9, UPDTSO+11
$$CURDT	SOO+8, SFO+8, DOSF+2
A1	A1+4
ADD	UPD+6
ADEV	SFO+12
AGN	AGN+4
CANCSF	UPDSF+9, TRYSF+5
CANCSO	UPDTSO+6, UPDTSO+8
CHG	UPD+8
CHG1	CHG+2
CHKSO	SOO+11
CONT	UPDSF+11, UPDSF+12
DOSF	SFO+11
FHMTK7	FHMTK7+5
FIL	UPD+9
PAT	FHMTK7+7
PURG	UPD+4
SET	CHG1+1, A1+6, PURG+2
SFMENU	FHMTK7+7
SFO	FHMTK7+9
SOO	FHMTK7+8
STORD	FHMTK7+7
TRYSF	TRYSF+3
UPD	PAT+1, PAT+2, PAT+3
UPDSF	DOSF+13
UPDTSO	CHKSO+18

Naked Globals

Name	Field # of Occurrence
^(	UPD+2, UPD+5
^(0	AGN+2, TRYSF+2, TRYSF+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UPDTSO+3, UPDSF+2
ADM	FHMTK7+7, PAT+1, PAT+2, UPDTSO+2~, UPDSF+4~*
>> ANS	FHMTK7+6*
>> COM	UPD+1, SET, SET+1*, FIL+1
DA	PURG+2*!
DA(1	ADD+2, PURG+2
DD	ADD+2!
DIC	ADD+2!*, A1+5!
DIC(0	ADD+2*
DIK	PURG+2!*
DINUM	A1+5*!
DLAYGO	ADD+2*, A1+5!
DO	ADD+2!
>> DPAT	PAT+1, PAT+2, PAT+3*, PAT+4, UPD+3, UPD+5
DT	SOO+2, SFO+2
DTIME	FHMTK7+4
>> DTP	SOO+3, CANCSO+5, CANCSO+7, AGN+6, AGN+8, SFO+3, UPDSF+3*, TRYSF+9, CANCSF+4
DUZ	UPDTSO+4, CANCSO+2, AGN+5, UPDSF+5, CONT, TRYSF+6, CANCSF+1
>> EVT	SET, FIL+1
FH	CHKSO+1!, UPDTSO+1~, UPDTSO+5, UPDTSO+7, UPDTSO+9, UPDTSO+10, UPDTSO+11, CANCSO+2, CANCSO+3, CANCSO+4 , ADDSO+1~, ADDSO+3, AGN+2, AGN+4, AGN+5, AGN+9, DOSF+1~, DOSF+2, DOSF+3, DOSF+4
FH1	CHKSO+1!, CHKSO+3*, CHKSO+4, CHKSO+5
FH2	CHKSO+1!, CHKSO+11*, CHKSO+12, CHKSO+13, CHKSO+15, CHKSO+16, CHKSO+17
>> FHACT	ADEV, ADEV+1, ADEV+2, CANCSO+6, AGN+7, TRYSF+8, CANCSF+3*
>> FHADAT	SOO+2, SOO+3, SOO+4, SFO+2, SFO+3, SFO+4
FHADM	SOO+4, SOO+5, SOO+8, CHKSO+7, CHKSO+8, CHKSO+18, UPDTSO~, UPDTSO+2, UPDTSO+9, UPDTSO+11 , CANCSO+1, CANCSO+2, CANCSO+3, CANCSO+4, CANCSO+5, ADDSO~, ADDSO+2, AGN, AGN+1, AGN+2 , AGN+3, AGN+4, AGN+5, AGN+6, SFO+4, SFO+5, SFO+8, SFO+11, DOSF~, DOSF+2 , DOSF+5, DOSF+7, DOSF+8, DOSF+13, UPDSF~, UPDSF+3, UPDSF+4, UPDSF+6, TRYSF, TRYSF+1 , TRYSF+2, TRYSF+3, TRYSF+4, TRYSF+5, TRYSF+6, TRYSF+7, CANCSF+1, CANCSF+2, CURDT~, CURDT+2 , CURDT+3
>> FHCNT	SOO+1, CHKSO+10, SFO+1*
FHCSO	SOO+7!, CHKSO+18, SFO+7!
FHCSO("C"	CHKSO+10*, CHKSO+11, CHKSO+12, CHKSO+13, CHKSO+15, CHKSO+16, CHKSO+17!
FHCSO("N"	CHKSO+5*, CHKSO+14, CHKSO+15, CHKSO+16, CHKSO+17!
FHCSO("U"	CHKSO+16*
>> FHDATA	ADEV+2*, ADEV+3, ADEV+4
FHDFN	FHMTK7+7, PAT+1, PAT+2, UPD+2, UPD+6, UPD+7, CHG+2, CHG+4, CHG1, ADD+2 , A1, A1+1, A1+2, A1+3, A1+4, A1+6, PURG+1, PURG+2, SOO+2, SOO+4 , SOO+5, SOO+8, ADEV, ADEV+1, ADEV+2, CHKSO+7, CHKSO+8, CHKSO+18, UPDTSO~, UPDTSO+9 , UPDTSO+11, CANCSO+1, CANCSO+2, CANCSO+3, CANCSO+4, CANCSO+5, CANCSO+7, ADDSO~, ADDSO+2, AGN , AGN+1, AGN+2, AGN+3, AGN+4, AGN+5, AGN+6, AGN+8, SFO+2, SFO+4, SFO+5 , SFO+8, SFO+11, DOSF~, DOSF+2, DOSF+5, DOSF+7, DOSF+8, DOSF+13, UPDSF~, UPDSF+3 , UPDSF+6, TRYSF, TRYSF+1, TRYSF+2, TRYSF+3, TRYSF+4, TRYSF+5, TRYSF+6, TRYSF+7, TRYSF+9 , CANCSF+1, CANCSF+2, CANCSF+4, CURDT~, CURDT+2, CURDT+3
>> FHDIPAT	CHKSO+4*, CHKSO+5
FHDSF	DOSF+1~, DOSF+4*, DOSF+11, DOSF+12, DOSF+13
FHDT	SOO+7!, SOO+8, SOO+9, SOO+10, CHKSO+3, CHKSO+4, CHKSO+5, SFO+7!, SFO+8, SFO+9 , SFO+10, CURDT+1~, CURDT+2, CURDT+3, CURDT+4, CURDT+5, CURDT+6
>> FHI	CHKSO+7*, CHKSO+8, CHKSO+10
>> FHLOC	CANCSO+1, ADDSO+2, UPDSF+8*
>> FHLOCN	CANCSO+1, CANCSO+6, ADDSO+2, AGN+7, UPDSF+7, UPDSF+8, TRYSF+8, CANCSF+3
FHML	ADEV, ADEV+1, ADEV+2, CHKSO+1!, CHKSO+2, CHKSO+3, CHKSO+4, CHKSO+5, CHKSO+12, CANCSO+3* , CANCSO+6, CANCSO+7, ADDSO~, AGN+5, AGN+7, AGN+8, UPDSF+7*, TRYSF+8, TRYSF+9, CANCSF+3 , CANCSF+4
FHN	CANCSO+3*, CANCSO+6, ADDSO~, AGN+5, AGN+7
FHN3	UPDSF+1~, UPDSF+9, TRYSF+2, TRYSF+5, CANCSF, CANCSF+1, CANCSF+3, CANCSF+4
FHNEW	UPDTSO+1~, UPDTSO+9, UPDTSO+11
FHNO	UPDSF+1~, TRYSF+2*, TRYSF+3, TRYSF+4, TRYSF+6, TRYSF+7
FHNOW	UPDTSO+1~, UPDTSO+3, CANCSO+2, AGN+5, UPDSF+1~, UPDSF+2, CONT, TRYSF+6, CANCSF+1
FHOR	PAT+2, PAT+3, CURDT+1~, CURDT+2, CURDT+3, CURDT+4, CURDT+5
>> FHORD	PAT+1*, PAT+2
FHPNN	UPDSF+1~, CONT*, TRYSF+4
FHPNO	UPDSF+1~, UPDSF+10*, UPDSF+13, CONT
FHPSF	DOSF+1~, DOSF+8*, DOSF+9, DOSF+10, DOSF+11, DOSF+13, UPDSF~, UPDSF+12, UPDSF+13
FHPSF("C"	DOSF+9*, UPDSF+11, CANCSF
FHPSF("E"	DOSF+6*, DOSF+7, DOSF+12
FHPSF("N"	DOSF+5, DOSF+6, DOSF+7, DOSF+8, UPDSF+9, UPDSF+11
>> FHS1	CHKSO+8*, CHKSO+9, CHKSO+10
FHSF	UPDSF~, UPDSF+9, UPDSF+10, UPDSF+12, CONT, TRYSF+8, TRYSF+9
>> FHSFDAT	UPDSF+6*, UPDSF+7, UPDSF+8
FHSO	ADEV+1, ADEV+2, CHKSO+1!, CANCSO+3, CANCSO+6, CANCSO+7, ADDSO~, AGN+5, AGN+7, AGN+8
>> FHSODAT	CANCSO+3*
>> FHSOIEN	CHKSO+13*, CHKSO+14, CHKSO+15, CHKSO+16, CHKSO+17
>> FHSOP	SOO+5, SOO+6, CHKSO+2, SFO+5, SFO+6
>> FHSTADT	SOO+2, SOO+3, CANCSO+7, AGN+8, SFO+2, SFO+3, TRYSF+9, CANCSF+4
>> FHTXT	ADEV+3, ADEV+4, CANCSO+6, CANCSO+7, AGN+7, AGN+8, TRYSF+8, TRYSF+9, CANCSF+3, CANCSF+4
FHUCSO	UPDTSO~
FHUCSO("C"	UPDTSO+5
FHUCSO("N"	UPDTSO+10, UPDTSO+11
FHUCSO("U"	UPDTSO+7, UPDTSO+9
FHX	ADDSO+1~, AGN+2, UPDSF+1~, TRYSF+2
>> FP	UPD+3, UPD+5, UPD+6, CHG1+1, ADD+2, A1+6, PURG+2
>> LP	CHG+5*
>> M1	CHG+4, CHG+5, CHG+7, PURG+1*, PURG+2
>> M2	UPD+2, UPD+3, UPD+5, UPD+7, CHG+1, CHG+2, CHG+5, CHG+6, CHG+7*, CHG1 , CHG1+1, ADD+1
>> MEAL	CHG+1, CHG+2, CHG+3, CHG+5, ADD+1, A1+6
>> NUM	A1+2*, A1+3, A1+4, A1+5
>> PP	UPD+1, CHG1+1, A1+6, PURG+2, SET, SET+1
>> R1	UPD+5*
>> SP	UPD+2, UPD+6, UPD+7, CHG+2, CHG+4, CHG1, A1+5*, A1+6, PURG+1, PURG+2
U	SOO+6, ADEV+3, ADEV+4, CHKSO+2, CHKSO+5, CHKSO+9, CHKSO+13, CANCSO+1, CANCSO+3, CANCSO+5 , CANCSO+6, CANCSO+7, ADDSO+2, AGN+6, AGN+7, AGN+8, SFO+6, DOSF+5, UPDSF+3, UPDSF+7 , UPDSF+8, TRYSF+5, TRYSF+8, TRYSF+9, CANCSF+3, CANCSF+4, CURDT+3
>> W1	FHMTK7+7*
>> X	FHMTK7+4, FHMTK7+5, FHMTK7+6, ADD+2*
>> Y	A1+5
>> Z	PAT+2*

Customize PDF page

Package: Dietetics

Routine: FHMTK7

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: