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! |