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

Package: Dietetics

Routine: FHMTK7


Information

FHMTK7 ; HISC/NCA - Update Diet Restrictions ;12/6/00 15:14

Source Information

Source file <FHMTK7.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 4

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*
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