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 |
Package | Total | Caller Graph |
---|---|---|
Nursing Service | 1 | NURCFP-CARE |
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 |