- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURCCPE 1064 printed Feb 18, 2025@23:46:39 Page 2
- 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