NURSAFUD ;HIRMFO/RM,MD-SITE FILES UPDATE ;1/24/96
;;4.0;NURSING SERVICE;;Apr 25, 1997
EN3 ; ENTRY FROM NURSFL-LOC NURS LOCATION EDIT
S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
S DLAYGO=211.4,DIC="^NURSF(211.4,",DIC(0)="AEMQLZ" W ! D EN1^NURSAFLL G:+Y'>0 Q3 S NURSREV=0 D EN1^NURSALED G EN3
Q3 D ^NURSKILL Q
EN4 ; ENTRY FROM NUREFL-MI NURS MI FILE EDIT
S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
W !!,"TO EDIT MANDATORY INSERVICE DATA, USE THE EDUCATION TRACKING SOFTWARE."
Q
EN5 ; ENTRY FROM NURAFL-CERT CERTIFICATION FILE EDIT
S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
W ! S DLAYGO=212.2,DIC="^NURSF(212.2,",DIC(0)="AELQMNZ",DIC("A")="Select Type of Certification: " D ^DIC K DIC G:+Y'>0 Q5 S DIE="^NURSF(212.2,",DR=".01;1;2;3",DA=+Y D ^DIE K DIE G EN5
Q5 D ^NURSKILL Q
EN6 ; ENTRY FROM NURAFL-CLBK CLINICAL BACKGROUND FILE EDIT
S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
W ! S DLAYGO=211.5,DIC="^NURSF(211.5,",DIC(0)="AELQMNZ",DIC("A")="Enter Type of Background/Experience: " D ^DIC K DIC G:+Y'>0 Q6 S DIE="^NURSF(211.5,",DR=".01T~;",DA=+Y D ^DIE K DIE G EN6
Q6 D ^NURSKILL Q
EN7 ; ENTRY FROM NURAFL-GS-COD OPTION (LOAD GRADE/STEP CODES)
S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
W !,"Select GRADE/STEP Code: " R NURX:DTIME I "^"[NURX G Q7
I NURX["?" D EN2^NURSUT4 G EN7
S X=NURX,DIC=211.1,DIC(0)="EQZ",DIC=211.1 D ^DIC K DIC
K:$L(X)>10!($L(X)<4)!'(X'?1P.E)!(X'?.ANP) X ;repeat input transform to kill X
I +Y'>0,$G(X)'="" D G:$G(NUROUT) Q7
. S Y=$P($G(^NURSF(211.1,0)),U,4) W !,$C(7),"Are you adding '"_X_"' AS A NEW NURS PAY SCALE (the "_(Y+1)_"nd)" K % D YN^DICN I %=2 S NUROUT=1 Q
. K DD,DO S DLAYGO=211.1,DIC="^NURSF(211.1,",DIC(0)="EQL" D FILE^DICN I '+Y S NUROUT=1 Q
. Q
G:+Y'>0 Q7 S DA=+Y,DIE=211.1,DR=".01" D ^DIE G:$G(DTOUT)!($G(DUOUT)) Q7 G EN7
Q7 D ^NURSKILL Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSAFUD 1820 printed Dec 13, 2024@02:21:23 Page 2
NURSAFUD ;HIRMFO/RM,MD-SITE FILES UPDATE ;1/24/96
+1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
EN3 ; ENTRY FROM NURSFL-LOC NURS LOCATION EDIT
+1 SET X=$GET(^DIC(213.9,1,"OFF"))
if X=""!(X=1)
QUIT
+2 SET DLAYGO=211.4
SET DIC="^NURSF(211.4,"
SET DIC(0)="AEMQLZ"
WRITE !
DO EN1^NURSAFLL
if +Y'>0
GOTO Q3
SET NURSREV=0
DO EN1^NURSALED
GOTO EN3
Q3 DO ^NURSKILL
QUIT
EN4 ; ENTRY FROM NUREFL-MI NURS MI FILE EDIT
+1 SET X=$GET(^DIC(213.9,1,"OFF"))
if X=""!(X=1)
QUIT
+2 WRITE !!,"TO EDIT MANDATORY INSERVICE DATA, USE THE EDUCATION TRACKING SOFTWARE."
+3 QUIT
EN5 ; ENTRY FROM NURAFL-CERT CERTIFICATION FILE EDIT
+1 SET X=$GET(^DIC(213.9,1,"OFF"))
if X=""!(X=1)
QUIT
+2 WRITE !
SET DLAYGO=212.2
SET DIC="^NURSF(212.2,"
SET DIC(0)="AELQMNZ"
SET DIC("A")="Select Type of Certification: "
DO ^DIC
KILL DIC
if +Y'>0
GOTO Q5
SET DIE="^NURSF(212.2,"
SET DR=".01;1;2;3"
SET DA=+Y
DO ^DIE
KILL DIE
GOTO EN5
Q5 DO ^NURSKILL
QUIT
EN6 ; ENTRY FROM NURAFL-CLBK CLINICAL BACKGROUND FILE EDIT
+1 SET X=$GET(^DIC(213.9,1,"OFF"))
if X=""!(X=1)
QUIT
+2 WRITE !
SET DLAYGO=211.5
SET DIC="^NURSF(211.5,"
SET DIC(0)="AELQMNZ"
SET DIC("A")="Enter Type of Background/Experience: "
DO ^DIC
KILL DIC
if +Y'>0
GOTO Q6
SET DIE="^NURSF(211.5,"
SET DR=".01T~;"
SET DA=+Y
DO ^DIE
KILL DIE
GOTO EN6
Q6 DO ^NURSKILL
QUIT
EN7 ; ENTRY FROM NURAFL-GS-COD OPTION (LOAD GRADE/STEP CODES)
+1 SET X=$GET(^DIC(213.9,1,"OFF"))
if X=""!(X=1)
QUIT
+2 WRITE !,"Select GRADE/STEP Code: "
READ NURX:DTIME
IF "^"[NURX
GOTO Q7
+3 IF NURX["?"
DO EN2^NURSUT4
GOTO EN7
+4 SET X=NURX
SET DIC=211.1
SET DIC(0)="EQZ"
SET DIC=211.1
DO ^DIC
KILL DIC
+5 ;repeat input transform to kill X
if $LENGTH(X)>10!($LENGTH(X)<4)!'(X'?1P.E)!(X'?.ANP)
KILL X
+6 IF +Y'>0
IF $GET(X)'=""
Begin DoDot:1
+7 SET Y=$PIECE($GET(^NURSF(211.1,0)),U,4)
WRITE !,$CHAR(7),"Are you adding '"_X_"' AS A NEW NURS PAY SCALE (the "_(Y+1)_"nd)"
KILL %
DO YN^DICN
IF %=2
SET NUROUT=1
QUIT
+8 KILL DD,DO
SET DLAYGO=211.1
SET DIC="^NURSF(211.1,"
SET DIC(0)="EQL"
DO FILE^DICN
IF '+Y
SET NUROUT=1
QUIT
+9 QUIT
End DoDot:1
if $GET(NUROUT)
GOTO Q7
+10 if +Y'>0
GOTO Q7
SET DA=+Y
SET DIE=211.1
SET DR=".01"
DO ^DIE
if $GET(DTOUT)!($GET(DUOUT))
GOTO Q7
GOTO EN7
Q7 DO ^NURSKILL
QUIT
