NURCCP1 ;HIRMFO/RM,RTK-STANDARD CARE PLAN, PRINT (main routine) ;8/29/96
Source file <NURCCP1.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 |
|---|---|---|
| EN1 | ; ENTRY FROM NURCFP-CARE OPTION
|
|
| SECT | ; SELECT WHICH SECTION TO PRINT
|
|
| INFO | ; SELECT WHICH INFO FOR SECTION TO PRINT
|
|
| PROB | ; CHOOSE SELECTED PROBLEMS
|
|
| CPDATA | ; WHICH CARE PLAN DATA TO PRINT
|
|
| DEV | ;
|
|
| ; BEGIN PRINTING THIS DOCUMENT
|
||
| Q1 | ;
|
|
| DX | ; IF PARENT IS DX THEN STORE THIS IN CPCH ARRAY
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ANS | SECT+1*, INFO+2*, PROB+3*, CPDATA+3* |
| >> CHC | INFO+2*, PROB+3*, CPDATA+3* |
| IOSL | EN1+5 |
| >> MULT | SECT+1*, INFO+2*, PROB+3*, CPDATA+3* |
| >> NURC | DX+1* |
| >> NURCANS | SECT+2, PROB+3 |
| >> NURCANS( | PROB+4 |
| >> NURCCHC | PROB+1*, PROB+2*, PROB+3, DX+1 |
| >> NURCDX | EN1+4*, DX+1 |
| >> NURCDX(0 | DX+1* |
| >> NURCEOPG | EN1+5* |
| >> NURCINFO | INFO+3, INFO+5 |
| >> NURCMS | SECT+3* |
| >> NURCOUT | EN1+5*, SECT+4, INFO+3, PROB+3, CPDATA+3, PRINT+2*, PRINT+3 |
| >> NURCPDAT | SECT+3*, CPDATA+3 |
| >> NURCPROB | EN1+3* |
| >> NURCRT | EN1+2*, SECT+1 |
| NURCSECT | SECT+1!, SECT+2! |
| NURCSECT( | SECT+1*, SECT+2*, SECT+3 |
| >> NUROUT | PRINT+2 |
| >> NURXXX | EN1+5* |
| >> POP | DEV+1 |
| >> TXT | SECT+1*, INFO+2*, PROB+3*, CPDATA+3* |
| >> X | SECT+3, INFO+5*, PROB+2*, PROB+4*, DX+1 |
| >> Y | INFO+5*, PROB+2*, PROB+4*, DX+1 |
| >> Z | INFO+5*, PROB+2*, PROB+4*, DX+1* |
| >> ZTDESC | DEV+1* |
| >> ZTRTN | DEV+1* |
| >> ZTSAVE("^TMP($J,""LVL""," | DEV+1* |
| >> ZTSAVE("^TMP($J,""PROB""," | DEV+1* |
| ZTSK | DEV+1!, PRINT+3 |