source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURSAFUD.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1NURSAFUD ;HIRMFO/RM,MD-SITE FILES UPDATE ;1/24/96
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3EN3 ; ENTRY FROM NURSFL-LOC NURS LOCATION EDIT
4 S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
5 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
6Q3 D ^NURSKILL Q
7EN4 ; ENTRY FROM NUREFL-MI NURS MI FILE EDIT
8 S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
9 W !!,"TO EDIT MANDATORY INSERVICE DATA, USE THE EDUCATION TRACKING SOFTWARE."
10 Q
11EN5 ; ENTRY FROM NURAFL-CERT CERTIFICATION FILE EDIT
12 S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
13 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
14Q5 D ^NURSKILL Q
15EN6 ; ENTRY FROM NURAFL-CLBK CLINICAL BACKGROUND FILE EDIT
16 S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
17 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
18Q6 D ^NURSKILL Q
19EN7 ; ENTRY FROM NURAFL-GS-COD OPTION (LOAD GRADE/STEP CODES)
20 S X=$G(^DIC(213.9,1,"OFF")) Q:X=""!(X=1)
21 W !,"Select GRADE/STEP Code: " R NURX:DTIME I "^"[NURX G Q7
22 I NURX["?" D EN2^NURSUT4 G EN7
23 S X=NURX,DIC=211.1,DIC(0)="EQZ",DIC=211.1 D ^DIC K DIC
24 K:$L(X)>10!($L(X)<4)!'(X'?1P.E)!(X'?.ANP) X ;repeat input transform to kill X
25 I +Y'>0,$G(X)'="" D G:$G(NUROUT) Q7
26 . 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
27 . K DD,DO S DLAYGO=211.1,DIC="^NURSF(211.1,",DIC(0)="EQL" D FILE^DICN I '+Y S NUROUT=1 Q
28 . Q
29 G:+Y'>0 Q7 S DA=+Y,DIE=211.1,DR=".01" D ^DIE G:$G(DTOUT)!($G(DUOUT)) Q7 G EN7
30Q7 D ^NURSKILL Q
Note: See TracBrowser for help on using the repository browser.