NURCRL0 ;HIRMFO/RM,RTK-CARE PLAN RANK ORDER PRINT ;8/29/96
Source file <NURCRL0.m>
Package | Total | Caller Graph |
---|---|---|
Nursing Service | 1 | NURCRP-CP RANK LISTING |
Name | Comments | DBIA/ICR reference |
---|---|---|
; ENTRY FROM TASK TO PRINT RANK ORDER PRINT IF QUEUED TO DEVICE
|
||
EN1 | ; ENTRY FROM OPTION 'NURCRP-CP RANK LISTING' TO PRINT RANK ORDER
; LISTING OF CARE PLAN |
|
EXIT | ;
; Clean up variables |
|
ENDT | ||
DEV | ; Ask device and allow to queue
; If QUEUE then call ^%ZTLOAD and exit |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(42 - [#42] | ENDT+6 |
^NURSF(211.4 - [#211.4] | ENDT+5, ENDT+6 |
^TMP($J | EXIT+2! |
Name | Line Occurrences |
---|---|
DEV | DEV+3 |
ENDT | ENDT |
EXIT | EN1+4, ENDT+1, ENDT+4, ENDT+9, ENDT+12, ENDT+16, DEV+2, DEV+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %DT | EN1+4*, ENDT* |
>> %DT("A" | EN1+4*, ENDT* |
>> %DT(0 | EN1+4*, ENDT* |
>> %ZIS | DEV+2* |
DIR | ENDT+15!, ENDT+16! |
DIR("?" | ENDT+15* |
DIR("A" | ENDT+15* |
DIR(0 | ENDT+15* |
DIRUT | ENDT+9! |
IO("Q" | DEV+2!, DEV+3, DEV+4, DEV+5! |
IO("S" | DEV+3 |
ION | DEV+6 |
IOST | DEV+3 |
>> NURC | ENDT+5*, ENDT+6 |
>> NURCBGDT | EN1+5*, ENDT |
>> NURCENDT | ENDT* |
>> NURCLID | ENDT+9* |
>> NURCOUT | EXIT+2 |
>> NURCRTYP | ENDT+17* |
>> NURCSORT | ENDT+12* |
>> NUROUT | EXIT+2* |
>> NURSMAS | ENDT+6* |
>> NURSMAS( | ENDT+6* |
>> NURSMAS(0 | ENDT+6* |
>> NURSNLOC( | ENDT+5 |
>> POP | DEV+2 |
>> X | ENDT*, ENDT+5* |
XQH | DEV+3*! |
>> Y | EN1+4, EN1+5, ENDT, ENDT+5*, ENDT+6, ENDT+16, ENDT+17 |
>> ZTDESC | DEV+6* |
>> ZTIO | DEV+6* |
>> ZTRTN | DEV+6* |
>> ZTSAVE("NURCBGDT" | DEV+6* |
>> ZTSAVE("NURCENDT" | DEV+6* |
>> ZTSAVE("NURCLID" | DEV+6* |
>> ZTSAVE("NURCRTYP" | DEV+6* |
>> ZTSAVE("NURCSORT" | DEV+6* |
>> ZTSAVE("NURSMAS*" | DEV+6* |
ZTSK | DEV+7! |