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 |
Package | Total | Caller Graph |
---|---|---|
Nursing Service | 1 | NURCCP1 |
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* |