NURCCPE.m

NURCCPE ;HIRMFO/RM,RTK-NURSING CARE PLAN EDIT ;1/24/96

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN1 ; ENTRY FROM NURCFE-CARE

 Q:$P($G(^DIC(213.9,1,"OFF")),"^")=1

 S GMRGOUT=0 D EDTPAR G Q1:GMRGOUT

 S GMRGPK="ZZ",GMRGRT=$O(^GMRD(124.2,"AA","NURSC",2,"Nursing Care Plan",1,0)) I GMRGRT>0 D EN4^GMRGTGIF

Q1 D ^NURCKILL

 Q

EDTPAR ; EDIT NURSING SITE PARAMETER FILE FIELDS

 S Z=$G(^DIC(213.9,1,"CPH")),Z1=$G(^DIC(213.9,1,"CPD")),GMRGOUT=0

 W !!,"PATIENT PLAN OF CARE HEADER: ",$P(Z,U)

 W !,"PATIENT PROBLEM HEADER: ",$P(Z,U,2)

 W !,"GOALS/EXPECTED OUTCOMES HEADER: ",$P(Z,U,3)

 W !,"INTERVENTIONS/ORDERS HEADER: ",$P(Z,U,4)

 W !,"DEFAULT EVALUATION DATE: ",$P(Z1,U)

 W !,"DEFAULT TARGET DATE: ",$P(Z1,U,2),!

 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

 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

 Q

NURCCPE   ;HIRMFO/RM,RTK-NURSING CARE PLAN EDIT ;1/24/96

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN1       ; ENTRY FROM NURCFE-CARE

 +1        IF $PIECE($GET(^DIC(213.9,1,"OFF")),"^")=1

               QUIT 

 +2        SET GMRGOUT=0

           DO EDTPAR

           IF GMRGOUT

               GOTO Q1

 +3        SET GMRGPK="ZZ"

           SET GMRGRT=$ORDER(^GMRD(124.2,"AA","NURSC",2,"Nursing Care Plan",1,0))

           IF GMRGRT>0

               DO EN4^GMRGTGIF

Q1         DO ^NURCKILL

 +1        QUIT 

EDTPAR    ; EDIT NURSING SITE PARAMETER FILE FIELDS

 +1        SET Z=$GET(^DIC(213.9,1,"CPH"))

           SET Z1=$GET(^DIC(213.9,1,"CPD"))

           SET GMRGOUT=0

 +2        WRITE !!,"PATIENT PLAN OF CARE HEADER: ",$PIECE(Z,U)

 +3        WRITE !,"PATIENT PROBLEM HEADER: ",$PIECE(Z,U,2)

 +4        WRITE !,"GOALS/EXPECTED OUTCOMES HEADER: ",$PIECE(Z,U,3)

 +5        WRITE !,"INTERVENTIONS/ORDERS HEADER: ",$PIECE(Z,U,4)

 +6        WRITE !,"DEFAULT EVALUATION DATE: ",$PIECE(Z1,U)

 +7        WRITE !,"DEFAULT TARGET DATE: ",$PIECE(Z1,U,2),!

 +8        KILL DIR,Z,Z1

           SET DIR(0)="YA"

           SET DIR("A")="Do you wish to edit any of this data? "

           SET DIR("B")="NO"

           SET DIR("?")="IF YOU WISH TO EDIT ANY OF THESE PARAMETERS ANSWER 'YES' ELSE ANSWER 'NO'"

           DO ^DIR

           KILL DIR

           IF "^^"[Y

               SET GMRGOUT=1

           IF Y=0!GMRGOUT

               QUIT 

 +9        WRITE !

           KILL DIE,DA,DR

           SET DIE="^DIC(213.9,"

           SET DA=1

           SET DR="10;10.1;10.2;10.3;10.4;10.5"

           DO ^DIE

           IF $DATA(Y)!$DATA(DTOUT)

               SET GMRGOUT=1

           KILL DIE,DA,DR

 +10       QUIT