©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
NURCCP3 ;HIRMFO/RM-STANDARD CARE PLAN, PRINT (sort to get problems) ;3/9/92
Source file <NURCCP3.m>
| Package | Total | Call Graph |
|---|---|---|
| Nursing Service | 1 | SELCHC^NURCCP2 |
| VA Fileman | 1 | WAIT^DICD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| G5 | ; CONTINUATION OF LINE GETSEL+5
|
|
| GETSEL | ; RETURNS CHC=NUMBER OF CHOICES IN ^TMP($J,"CPCH"
; ARRAY THAT WERE CHILDREN OF NURCSECT. |
|
| GETPROB | ; GO THROUGH EACH LEVEL OF CHILDREN FOR LIST OF PARENTS IN
; NURCSECT ARRAY UNTIL ALL PROBLEMS REACHED. PROBLEMS ARE SET INTO ; ^TMP($J,"PDOC" |
|
| MEDSECT | ; PICK MEDICAL SECTIONS, THEN DETERMINE IF WILL ONLY PRINT
; MEDICAL DX, MEDICAL DX/PROBLEMS ONLY, OR SELECTED MEDICAL DX/PROBLEMS |
|
| HIER | ; SET THE PATH DOWN TO THIS NODE FOR THE PRINT AND PROCESS THE CHILDREN
|
|
| SETPROB | ; CONTINUATION OF FOR LOOP TO SET PROBLEM ARRAY OR CHC ARRAY
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMRD(124.2 - [#124.2] | SETPROB+1, HIER+2 |
| ^TMP($J | GETSEL+2!, GETSEL+4, SETPROB+2*, SETPROB+3*, HIER+1*, G5+1*, MEDSECT+4!*, MEDSECT+8, MEDSECT+9!, MEDSECT+10* |
| Name | Line Occurrences |
|---|---|
| G5 | GETSEL+4 |
| GETPROB | GETPROB+4 |
| GETSEL | GETPROB+3, MEDSECT+2, MEDSECT+7, MEDSECT+9 |
| HIER | GETSEL+3 |
| SETPROB | HIER+2 |
| Name | Field # of Occurrence |
|---|---|
| ^("CPCH" | GETSEL+2! |
| ^(2 | MEDSECT+4* |
| ^(3 | MEDSECT+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> A | GETSEL+3*, GETSEL+4*, SETPROB+2, SETPROB+3, HIER+1, HIER+2, G5+1 |
| >> ANS | GETPROB+4*, MEDSECT+3*, MEDSECT+4* |
| >> B | SETPROB+2, SETPROB+3, HIER+1*, HIER+2*, G5+1* |
| >> C | HIER+2* |
| >> CHC | GETPROB+4, GETSEL+2*, GETSEL+5*, MEDSECT+3, MEDSECT+4*, MEDSECT+8* |
| >> MULT | GETPROB+4*, MEDSECT+3*, MEDSECT+4* |
| >> NURCANS | MEDSECT+3 |
| >> NURCDAT | MEDSECT+5, MEDSECT+6, MEDSECT+10 |
| >> NURCOUT | GETPROB+4, MEDSECT+3, MEDSECT+5 |
| >> NURCPROB | SETPROB+2 |
| NURCSECT | GETPROB+4, MEDSECT+6!, MEDSECT+8! |
| NURCSECT( | GETSEL+3, HIER+1, MEDSECT+8* |
| >> TXT | GETPROB+4*, MEDSECT+3*, MEDSECT+4* |
| >> X | SETPROB+1, SETPROB+2, SETPROB+3, HIER+2*, MEDSECT+3*, MEDSECT+5*, MEDSECT+6*, MEDSECT+8*, MEDSECT+10*, MEDSECT+11* |
| >> Y | GETSEL+4*, GETSEL+5, SETPROB+1*, SETPROB+2, G5+1*, MEDSECT+10* |
| >> Z | MEDSECT+10* |