FHMTK7 ; HISC/NCA - Update Diet Restrictions ;12/6/00 15:14
Source file <FHMTK7.m>
| 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 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: READ | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^FHPT - [#115] | Classic Fileman Calls | 
| 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 | 
| 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 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | UPD+2, UPD+5 | 
| ^(0 | AGN+2*, TRYSF+2*, TRYSF+5 | 
| >> | 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* |