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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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" |
|
| GETSEL | ; RETURNS CHC=NUMBER OF CHOICES IN ^TMP($J,"CPCH"
; ARRAY THAT WERE CHILDREN OF NURCSECT. |
|
| SETPROB | ; CONTINUATION OF FOR LOOP TO SET PROBLEM ARRAY OR CHC ARRAY
|
|
| HIER | ; SET THE PATH DOWN TO THIS NODE FOR THE PRINT AND PROCESS THE CHILDREN
|
|
| G5 | ; CONTINUATION OF LINE GETSEL+5
|
|
| MEDSECT | ; PICK MEDICAL SECTIONS, THEN DETERMINE IF WILL ONLY PRINT
; MEDICAL DX, MEDICAL DX/PROBLEMS ONLY, OR SELECTED MEDICAL DX/PROBLEMS |
| >> | 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* |