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