©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
NURSDD ;HIRMFO/RM-THIS ROUTINE PRINTS OUT DD'S FOR NURSING FILES ;12/30/87
Source file <NURSDD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ; KILL LOCAL VARIABLES
|
|
| LATER | ||
| SETVAR | ; SETS VARIABLES TO PRINT DD
|
|
| DEV |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | NURSDD+4 |
| ^DIC - [#1] | LATER+1 |
| ^DIC(213.9 - [#213.9] | NURSDD+3 |
| Name | Line Occurrences |
|---|---|
| DEV | DEV |
| QUIT | DEV |
| SETVAR | LATER+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | DEV*! |
| >> DIC | SETVAR+1* |
| >> DIFORMAT | SETVAR+1* |
| IO("C" | DEV+1! |
| IO("Q" | DEV!, DEV+1! |
| IOM | DEV+1 |
| ION | DEV+1, LATER, SETVAR+1 |
| >> IOP | SETVAR+1* |
| IOSL | DEV+1 |
| IOST | DEV, DEV+1 |
| >> NUROUT | QUIT+1* |
| >> NURQUEUE | NURSDD+5*, DEV+1* |
| >> NURSFILE | LATER+1*, SETVAR+1 |
| >> NURSION | LATER* |
| >> POP | DEV, QUIT+1 |
| >> X | NURSDD+4* |
| >> XQH | DEV* |
| >> ZTDESC | DEV+1* |
| >> ZTIO | DEV+1* |
| >> ZTRTN | DEV+1* |