©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
NURCCP1 ;HIRMFO/RM,RTK-STANDARD CARE PLAN, PRINT (main routine) ;8/29/96
Source file <NURCCP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INFO | ; SELECT WHICH INFO FOR SECTION TO PRINT
|
|
| Q1 | ;
|
|
| DEV | ;
|
|
| EN1 | ; ENTRY FROM NURCFP-CARE OPTION
|
|
| SECT | ; SELECT WHICH SECTION TO PRINT
|
|
| DX | ; IF PARENT IS DX THEN STORE THIS IN CPCH ARRAY
|
|
| CPDATA | ; WHICH CARE PLAN DATA TO PRINT
|
|
| ; BEGIN PRINTING THIS DOCUMENT
|
||
| PROB | ; CHOOSE SELECTED PROBLEMS
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(213.9 - [#213.9] | EN1+1 |
| ^GMRD(124.2 - [#124.2] | EN1+2, SECT+3, DX+1 |
| ^GMRD(124.25 - [#124.25] | EN1+3, EN1+4 |
| ^TMP($J | SECT+1!, SECT+4, INFO+1!, INFO+2*, INFO+4!, INFO+5*, PROB+1!, PROB+2*, PROB+4*, CPDATA+1! , CPDATA+2*, CPDATA+3*, DEV+2!, Q1+1!, DX+1* |
| Name | Line Occurrences |
|---|---|
| CPDATA | INFO+6 |
| DEV | SECT+3 |
| DX | PROB+2 |
| Q1 | EN1+2, EN1+3, EN1+4, SECT+2, SECT+3, SECT+4, INFO+3, PROB+3, CPDATA+3, DEV+1 |
| SECT | SECT+3, SECT+4, INFO+3, PROB+3, CPDATA+3, DEV+1, PRINT+3 |
| Name | Field # of Occurrence |
|---|---|
| ^("CPPH" | DEV+2! |
| ^("LVL" | SECT+1! |
| ^("PARN" | SECT+1!, INFO+1! |
| ^("PDOC" | CPDATA+1! |
| ^("PROB" | SECT+1! |
| ^(2 | INFO+2*, CPDATA+2* |
| ^(3 | CPDATA+2* |
| ^(4 | CPDATA+2* |
| ^(5 | CPDATA+2* |
| ^(7 | CPDATA+3* |
| >> | 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 |