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