NURAED6.m

NURAED6 ;HIRMFO/RM-DATA STORAGE TMP FOR THE POSITION EDIT ;7/11/90

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN1 ; STORE PATIENT DATA FROM NURSASS(#) AND NURSPOS(#)

 N DA W:$O(NURSPOS("")) !!?20,"Making changes now - hold a minute"

EN2 ; STORE DATA FOR POSITION EDIT

 F NURSANM=0:0 S NURSANM=$O(NURSASS(NURSANM)) Q:NURSANM'>0  I $D(NURSPOS(NURSANM)) D ADD:NURSASS(NURSANM)="",DEL:NURSPOS(NURSANM)="",EDT:NURSASS(NURSANM)'=""&(NURSPOS(NURSANM)'="")

 Q

ADD ; ADD NEW POSITION

 S NURSNPOS=NURSPOS(NURSANM) D ADDP

 Q

DEL ; DELETE EXISTING POSITION

 S DA(1)=$P(NURSASS(NURSANM),U),DA=$P(NURSASS(NURSANM),U,2) D DELP

 Q

EDT ; EDIT EXISTING POSITION

 S DA(1)=$P(NURSASS(NURSANM),U),DA=$P(NURSASS(NURSANM),U,2)

 I $P(NURSPOS(NURSANM),U,1,3)'=$P(NURSASS(NURSANM),U,3,5) D DELP S NURSNPOS=NURSPOS(NURSANM) D ADDP Q

EDFL ; ADD THE DATA FOR THE REST OF THE FIELDS

 Q:DA(1)'>0!(DA'>0)  K DR S DIE="^NURSF(211.8,"_DA(1)_",1,",DR=$S($P(NURSASS(NURSANM),U,7)=$P(NURSPOS(NURSANM),U,5):"",1:".03////"_$P(NURSPOS(NURSANM),U,5))

 F NURSX=6:1:12 S NURSY=$P(NURSPOS(NURSANM),U,NURSX) I $P(NURSASS(NURSANM),U,NURSX+2)'=NURSY S DR=DR_$S($L(DR):";",1:"")_(NURSX-5)_$S(NURSY'="":"////",1:"///")_$S(NURSY'="":NURSY,1:"@")

 D:DR'="" ^DIE

 Q

DELP ;DELETE POSITION USING DIK

 S DIK="^NURSF(211.8,DA(1),1," D ^DIK

 Q

ADDP ; ADD A NEW POSITION USING FILE^DICN

 S DA=-1,DA(1)=$O(^NURSF(211.8,"AA",+$P(NURSNPOS,U),$P(NURSNPOS,U,2),0)) I DA(1)'>0 S DIC="^NURSF(211.8,",DIC(0)="L",X=$P(NURSNPOS,U),DIC("DR")=".02///"_$P(NURSNPOS,U,2) K DD D FILE^DICN K DIC Q:+Y'>0  S DA(1)=+Y

 S:'$D(^NURSF(211.8,DA(1),1,0)) ^(0)="^211.82ID^^"

 S DIC="^NURSF(211.8,DA(1),1,",DIC(0)="L",X=$P(NURSNPOS,U,3),DIC("DR")=".02////"_$P(NURSNPOS,U,4)_";.03////"_$P(NURSNPOS,U,5)_$S($P(NURSNPOS,U,11):";6///"_$P(NURSNPOS,U,11),1:"") K DD D FILE^DICN K DIC

 S DA=+Y,NUR=".01^1" D EN1^NURSUT1 S:NURSASS(NURSANM)'="" $P(NURSASS(NURSANM),U,8,13)="" D EDFL

 Q

NURAED6   ;HIRMFO/RM-DATA STORAGE TMP FOR THE POSITION EDIT ;7/11/90

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN1       ; STORE PATIENT DATA FROM NURSASS(#) AND NURSPOS(#)

 +1        NEW DA

           IF $ORDER(NURSPOS(""))

               WRITE !!?20,"Making changes now - hold a minute"

EN2       ; STORE DATA FOR POSITION EDIT

 +1        FOR NURSANM=0:0

               SET NURSANM=$ORDER(NURSASS(NURSANM))

               IF NURSANM'>0

                   QUIT 

               IF $DATA(NURSPOS(NURSANM))

                   IF NURSASS(NURSANM)=""

                       DO ADD

                   IF NURSPOS(NURSANM)=""

                       DO DEL

                   IF NURSASS(NURSANM)'=""&(NURSPOS(NURSANM)'="")

                       DO EDT

 +2        QUIT 

ADD       ; ADD NEW POSITION

 +1        SET NURSNPOS=NURSPOS(NURSANM)

           DO ADDP

 +2        QUIT 

DEL       ; DELETE EXISTING POSITION

 +1        SET DA(1)=$PIECE(NURSASS(NURSANM),U)

           SET DA=$PIECE(NURSASS(NURSANM),U,2)

           DO DELP

 +2        QUIT 

EDT       ; EDIT EXISTING POSITION

 +1        SET DA(1)=$PIECE(NURSASS(NURSANM),U)

           SET DA=$PIECE(NURSASS(NURSANM),U,2)

 +2        IF $PIECE(NURSPOS(NURSANM),U,1,3)'=$PIECE(NURSASS(NURSANM),U,3,5)

               DO DELP

               SET NURSNPOS=NURSPOS(NURSANM)

               DO ADDP

               QUIT 

EDFL      ; ADD THE DATA FOR THE REST OF THE FIELDS

 +1        IF DA(1)'>0!(DA'>0)

               QUIT 

           KILL DR

           SET DIE="^NURSF(211.8,"_DA(1)_",1,"

           SET DR=$SELECT($PIECE(NURSASS(NURSANM),U,7)=$PIECE(NURSPOS(NURSANM),U,5):"",1:".03////"_$PIECE(NURSPOS(NURSANM),U,5))

 +2        FOR NURSX=6:1:12

               SET NURSY=$PIECE(NURSPOS(NURSANM),U,NURSX)

               IF $PIECE(NURSASS(NURSANM),U,NURSX+2)'=NURSY

                   SET DR=DR_$SELECT($LENGTH(DR):";",1:"")_(NURSX-5)_$SELECT(NURSY'="":"////",1:"///")_$SELECT(NURSY'="":NURSY,1:"@")

 +3        IF DR'=""

               DO ^DIE

 +4        QUIT 

DELP      ;DELETE POSITION USING DIK

 +1        SET DIK="^NURSF(211.8,DA(1),1,"

           DO ^DIK

 +2        QUIT 

ADDP      ; ADD A NEW POSITION USING FILE^DICN

 +1        SET DA=-1

           SET DA(1)=$ORDER(^NURSF(211.8,"AA",+$PIECE(NURSNPOS,U),$PIECE(NURSNPOS,U,2),0))

           IF DA(1)'>0

               SET DIC="^NURSF(211.8,"

               SET DIC(0)="L"

               SET X=$PIECE(NURSNPOS,U)

               SET DIC("DR")=".02///"_$PIECE(NURSNPOS,U,2)

               KILL DD

               DO FILE^DICN

               KILL DIC

               IF +Y'>0

                   QUIT 

               SET DA(1)=+Y

 +2        IF '$DATA(^NURSF(211.8,DA(1),1,0))

               SET ^(0)="^211.82ID^^"

 +3        SET DIC="^NURSF(211.8,DA(1),1,"

           SET DIC(0)="L"

           SET X=$PIECE(NURSNPOS,U,3)

           SET DIC("DR")=".02////"_$PIECE(NURSNPOS,U,4)_";.03////"_$PIECE(NURSNPOS,U,5)_$SELECT($PIECE(NURSNPOS,U,11):";6///"_$PIECE(NURSNPOS,U,11),1:"")

           KILL DD

           DO FILE^DICN

           KILL DIC

 +4        SET DA=+Y

           SET NUR=".01^1"

           DO EN1^NURSUT1

           IF NURSASS(NURSANM)'=""

               SET $PIECE(NURSASS(NURSANM),U,8,13)=""

           DO EDFL

 +5        QUIT