FHMTK8 ; HIOFO/SS - DIET PATTERN RELATED UPDATES ;02/22/01 09:02
Source file <FHMTK8.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
SO | ;check and update Stand.Orders,called from FHMTK7
|
|
DOSO(FHDFN,FHADM) | ;check/update SO
|
|
CHKSO(FHDT,FHCSO) | ;compares SO of diet patterns(FHDT)
|
|
UPDTSO(FHDFN,FHADM,FHUCSO) | ;update Standing orders.
|
|
CANCSO | ;cancel SO
|
|
ADDSO(FHDFN,FHADM,FHML,FHSO,FHN) | ||
AGN | ||
SF | ;check/update diet related SF,called from FHMTK7
|
|
DOSF(FHDFN,FHADM) | ;check/update SF
|
|
UPDSF(FHDFN,FHADM,FHSF,FHPSF) | ;updates diet related Suppl.Feed.
|
|
CONT | ||
TRYSF | ||
CANCSF | ||
CURDT(FHDFN,FHADM) | ;get current patient's diet pattern ien of 111.1
|
|
NEWTMP | ;save original state before editing
|
|
CLEANTMP | ;
|
|
FETCH(FHX,FHSUB,FHDP) | ;
|
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! |
>> | 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* |