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