NURCCPU5 ;HIRMFO/RD/RM-NURSING CARE PLAN UTILITIES (cont.) ;8/29/96
Source file <NURCCPU5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DCINT | ; DC ALL INTERVENTIONS UNDER A PROBLEM
|
|
| PRCINT(DA) | ; STEP THROUGH CHILDREN OF X IF CHILD ORDERABLE THEN DC IF IN NCP
|
|
| PRC | ; IF Y IS ORDERABLE THEN DC IF IN NCP, ELSE RECURSIVELY CALL PRCINT
|
|
| DC | ; DC AN ORDER
|
|
| DCOK(X) | ; ARE ALL PROBLEMS UNDER WHICH AGGY TERM WITH IEN X LIES RESOLVED
; THIS FUNCTION RETURNS 1 IF THIS STATEMENT IS TRUE, ELSE 0. |
|
| OK(Z) | ; PART OF DCOK WHICH RETURNS 0 IF PROBLEM Z IS NOT RESOLVED, ELSE 1
|
|
| METGOAL(STAT) | ; IF PROBLEM IS RESOLVED SET GOAL STATUS TO STAT.
|
|
| PRCGO(DA) | ; STEP THROUGH CHILDREN OF X IF CHILD GOAL THEN DC IF IN NCP
|
|
| PRCG | ; IF Y IS GOAL THEN STATUS=MET IF IN NCP, ELSE RECURSIVELY CALL PRCGO
|
|
| MET | ; SET STATUS OF GOAL TO STAT
|
| FileNo | Call Tags |
|---|---|
| ^NURSC(216.8 - [#216.8] | Classic Fileman Calls |
