- 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 Jan 18, 2025@03:22:34 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