FHMTK8 ; HIOFO/SS - DIET PATTERN RELATED UPDATES ;02/22/01 09:02
Source file <FHMTK8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AGN | ||
| CONT | ||
| TRYSF | ||
| CLEANTMP | ;
|
|
| UPDSF(FHDFN,FHADM,FHSF,FHPSF) | ;updates diet related Suppl.Feed.
|
|
| ADDSO(FHDFN,FHADM,FHML,FHSO,FHN) | ||
| SF | ;check/update diet related SF,called from FHMTK7
|
|
| CANCSF | ||
| UPDTSO(FHDFN,FHADM,FHUCSO) | ;update Standing orders.
|
|
| DOSO(FHDFN,FHADM) | ;check/update SO
|
|
| SO | ;check and update Stand.Orders,called from FHMTK7
|
|
| CURDT(FHDFN,FHADM) | ;get current patient's diet pattern ien of 111.1
|
|
| FETCH(FHX,FHSUB,FHDP) | ;
|
|
| CANCSO | ;cancel SO
|
|
| DOSF(FHDFN,FHADM) | ;check/update SF
|
|
| CHKSO(FHDT,FHCSO) | ;compares SO of diet patterns(FHDT)
|
|
| NEWTMP | ;save original state before editing
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^FH(111.1 - [#111.1] | CHKSO+6, CHKSO+8, DOSF+8, CURDT+4, NEWTMP+2 |
| ^FH(118.1 - [#118.1] | UPDSF+10 |
| ^FHPT - [#115] | DOSO+9, CANCSO+1*, AGN, AGN+1*, AGN+2, AGN+3, AGN+4, AGN+5*, DOSF+11, DOSF+16 , DOSF+18, TRYSF, TRYSF+1*, TRYSF+2, TRYSF+3, TRYSF+5*, TRYSF+9*, TRYSF+10*, TRYSF+12*, CANCSF+1* , CANCSF+2*, CURDT+2, CURDT+3 |
| ^FHPT("ASP" | DOSO+8, CANCSO+2!, AGN+5* |
| ^TMP($J | DOSO+6, DOSF+6, NEWTMP+1, NEWTMP+2*, CLEANTMP+3, CLEANTMP+5! |
| Name | Line Occurrences |
|---|---|
| $$ADDSO | UPDTSO+14, UPDTSO+17 |
| $$CHKSO | DOSO+11 |
| $$CURDT | DOSO+3, DOSF+4 |
| $$DOSO | SO+1 |
| $$FETCH | CLEANTMP+5 |
| AGN | AGN+4 |
| CANCSF | UPDSF+8, TRYSF+7 |
| CANCSO | UPDTSO+10, UPDTSO+13 |
| CONT | UPDSF+12, UPDSF+14 |
| DOSF | SF+1 |
| TRYSF | TRYSF+3 |
| UPDSF | DOSF+27 |
| UPDTSO | CHKSO+17 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | AGN+2*, TRYSF+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | UPDTSO+6, UPDSF+2 |
| ADM | SO+1, UPDTSO+5~*, SF+1, UPDSF+5~* |
| >> DA | NEWTMP+1, NEWTMP+2 |
| DUZ | UPDTSO+7, CANCSO+1, AGN+5, UPDSF+6, CONT, TRYSF+10, CANCSF+1 |
| >> EVT | UPDTSO+14*, UPDTSO+17*, CANCSO+3*, TRYSF+14*, CANCSF+3* |
| FH | SO+1~*, DOSO+2~, DOSO+8*, DOSO+9, DOSO+10, CHKSO+2~, UPDTSO+2~, UPDTSO+9*, UPDTSO+12*, UPDTSO+14 , UPDTSO+16*, UPDTSO+17, CANCSO+1, CANCSO+2, CANCSO+3, ADDSO+1~, ADDSO+2*, AGN+2*, AGN+4, AGN+5 , AGN+6, DOSF+2~, DOSF+4*, DOSF+6, DOSF+8 |
| FH1 | CHKSO+2~, CHKSO+5*, CHKSO+6*, CHKSO+8 |
| FH2 | CHKSO+2~, CHKSO+9*, CHKSO+10*, CHKSO+11, CHKSO+12*, CHKSO+13, CHKSO+14 |
| FHA1 | CLEANTMP+1~, CLEANTMP+4*, CLEANTMP+5 |
| FHADM | DOSO~, DOSO+3, DOSO+8, DOSO+9, CHKSO+17, UPDTSO~, UPDTSO+5, UPDTSO+14, UPDTSO+17, CANCSO+1 , CANCSO+2, ADDSO~, AGN, AGN+1, AGN+2, AGN+3, AGN+4, AGN+5, DOSF~, DOSF+4 , DOSF+11, DOSF+16, DOSF+18, DOSF+27, UPDSF~, UPDSF+5, TRYSF, TRYSF+1, TRYSF+2, TRYSF+3 , TRYSF+5, TRYSF+9, TRYSF+10, TRYSF+12, CANCSF+1, CANCSF+2, CURDT~, CURDT+2, CURDT+3 |
| FHB1 | CLEANTMP+1~, CLEANTMP+4*, CLEANTMP+5 |
| FHCNT | DOSO+2~, DOSO+7*, DOSO+10* |
| FHCNT2 | CHKSO+2~, CHKSO+3*, CHKSO+7*, CHKSO+8, CHKSO+12, CHKSO+13, CHKSO+14 |
| FHCSO | CHKSO~, CHKSO+17 |
| FHCSO("C" | CHKSO+10, CHKSO+11, CHKSO+12, CHKSO+13, CHKSO+14! |
| FHCSO("N" | CHKSO+8*, CHKSO+12, CHKSO+13, CHKSO+14! |
| FHCSO("U" | CHKSO+13* |
| FHDA | CLEANTMP+1~, CLEANTMP+2*, CLEANTMP+3*, CLEANTMP+5 |
| FHDFN | SO+1, DOSO~, DOSO+3, DOSO+8, DOSO+9, CHKSO+17, UPDTSO~, UPDTSO+14, UPDTSO+17, CANCSO+1 , CANCSO+2, ADDSO~, AGN, AGN+1, AGN+2, AGN+3, AGN+4, AGN+5, SF+1, DOSF~ , DOSF+4, DOSF+11, DOSF+16, DOSF+18, DOSF+27, UPDSF~, TRYSF, TRYSF+1, TRYSF+2, TRYSF+3 , TRYSF+5, TRYSF+9, TRYSF+10, TRYSF+12, CANCSF+1, CANCSF+2, CURDT~, CURDT+2, CURDT+3 |
| FHDP | DOSO+2~, DOSO+3*, DOSO+6, DOSO+11, FETCH~, FETCH+2 |
| FHDSF | DOSF+2~, DOSF+8*, DOSF+25, DOSF+26, DOSF+27 |
| FHDT | CHKSO~, CHKSO+6, CHKSO+8, CURDT+1~, CURDT+2*, CURDT+3, CURDT+4*, CURDT+5 |
| FHML | CHKSO+2~, CHKSO+4*, CHKSO+6, CHKSO+8, CHKSO+11, ADDSO~, AGN+5 |
| FHMX | DOSO+2~ |
| FHN | ADDSO~, AGN+5 |
| FHNEW | UPDTSO+2~, UPDTSO+14*, UPDTSO+17* |
| FHNO | UPDSF+1~, TRYSF+2*, TRYSF+3, TRYSF+5, TRYSF+9, TRYSF+10, TRYSF+12, TRYSF+14 |
| FHNO(0 | UPDSF+8*, TRYSF+2*, CANCSF, CANCSF+1, CANCSF+3 |
| FHNOW | UPDTSO+2~, UPDTSO+6*, CANCSO+1, AGN+5, UPDSF+1~, UPDSF+2*, CONT, TRYSF+10, CANCSF+1 |
| FHOR | CURDT+1~, CURDT+3*, CURDT+4 |
| FHPNN | UPDSF+1~, CONT*, TRYSF+5 |
| FHPNO | UPDSF+1~, UPDSF+10*, UPDSF+16, CONT |
| FHPSF | DOSF+2~, DOSF+18*, DOSF+20, DOSF+22, DOSF+25, DOSF+27, UPDSF~, UPDSF+14, UPDSF+16 |
| FHPSF("C" | DOSF+20*, UPDSF+12, CANCSF |
| FHPSF("E" | DOSF+12*, DOSF+16, DOSF+26 |
| FHPSF("N" | DOSF+11*, DOSF+12, DOSF+16*, DOSF+18, UPDSF+8, UPDSF+12 |
| FHPSO | DOSO+2~, DOSO+11 |
| FHPSO("C" | DOSO+10* |
| FHS1 | DOSO+2~, DOSO+9*, DOSO+10 |
| FHSF | UPDSF~, UPDSF+8, UPDSF+10, UPDSF+14, CONT |
| FHSO | CHKSO+2~, ADDSO~, AGN+5 |
| FHSUB | FETCH~, FETCH+2 |
| FHUCSO | UPDTSO~ |
| FHUCSO("C" | UPDTSO+9 |
| FHUCSO("N" | UPDTSO+16, UPDTSO+17 |
| FHUCSO("U" | UPDTSO+12, UPDTSO+14 |
| FHX | ADDSO+1~, AGN+2*, UPDSF+1~, TRYSF+2*, FETCH~, FETCH+1*, FETCH+2*, FETCH+3 |
| FHZ | CURDT+1~, CURDT+3* |