| 1 | NURCCPE ;HIRMFO/RM,RTK-NURSING CARE PLAN EDIT ;1/24/96
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | EN1 ; ENTRY FROM NURCFE-CARE
|
|---|
| 4 | Q:$P($G(^DIC(213.9,1,"OFF")),"^")=1
|
|---|
| 5 | S GMRGOUT=0 D EDTPAR G Q1:GMRGOUT
|
|---|
| 6 | S GMRGPK="ZZ",GMRGRT=$O(^GMRD(124.2,"AA","NURSC",2,"Nursing Care Plan",1,0)) I GMRGRT>0 D EN4^GMRGTGIF
|
|---|
| 7 | Q1 D ^NURCKILL
|
|---|
| 8 | Q
|
|---|
| 9 | EDTPAR ; EDIT NURSING SITE PARAMETER FILE FIELDS
|
|---|
| 10 | S Z=$G(^DIC(213.9,1,"CPH")),Z1=$G(^DIC(213.9,1,"CPD")),GMRGOUT=0
|
|---|
| 11 | W !!,"PATIENT PLAN OF CARE HEADER: ",$P(Z,U)
|
|---|
| 12 | W !,"PATIENT PROBLEM HEADER: ",$P(Z,U,2)
|
|---|
| 13 | W !,"GOALS/EXPECTED OUTCOMES HEADER: ",$P(Z,U,3)
|
|---|
| 14 | W !,"INTERVENTIONS/ORDERS HEADER: ",$P(Z,U,4)
|
|---|
| 15 | W !,"DEFAULT EVALUATION DATE: ",$P(Z1,U)
|
|---|
| 16 | W !,"DEFAULT TARGET DATE: ",$P(Z1,U,2),!
|
|---|
| 17 | K DIR,Z,Z1 S DIR(0)="YA",DIR("A")="Do you wish to edit any of this data? ",DIR("B")="NO",DIR("?")="IF YOU WISH TO EDIT ANY OF THESE PARAMETERS ANSWER 'YES' ELSE ANSWER 'NO'" D ^DIR K DIR S:"^^"[Y GMRGOUT=1 Q:Y=0!GMRGOUT
|
|---|
| 18 | W ! K DIE,DA,DR S DIE="^DIC(213.9,",DA=1,DR="10;10.1;10.2;10.3;10.4;10.5" D ^DIE S:$D(Y)!$D(DTOUT) GMRGOUT=1 K DIE,DA,DR
|
|---|
| 19 | Q
|
|---|
