NURSAFUD.m

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

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