ANSUEU.m

ANSUEU ;IHS/OIRM/DSD/CSC - ENTER/EDIT ROOM/BED; [ 02/25/98  10:32 AM ]

 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 ;;ADD/EDIT ROOM AND BED

ROOM ;EP;TO ENTER/EDIT PATIENT'S ROOM

 S ANSX="",ANSR=$P(ANSDX,U,3),ANSB=$P(ANSDX,U,4)

 S DIC="^ANSD(59.1,"_ANSUN_",""R"",",DIC(0)="AQZEM",DIC("A")="Room...........: "

 S:ANSR DIC("B")=ANSR

 D DIC^ANSDIC

 Q:$D(DTOUT)!$D(DUOUT)

 S ANSR=$S(+Y>0:+Y,1:"@")

 S DIE="^ANSR(",DA=ANSADM,DR="4///"_ANSR_$S(ANSR'="@":"",1:";5///@")

 D DIE^ANSDIC

 I ANSR="@" D DIAG Q

BED ;ADD/EDIT BED ASSIGNMENT

 S DIC="^ANSD(59.1,"_ANSUN_",""R"","_ANSR_",""B"",",DIC(0)="AQZEM",DIC("A")="Bed............: "

 S:ANSB]"" DIC("B")=ANSB

 D DIC^ANSDIC

 Q:$D(DTOUT)!$D(DUOUT)

 S ANSB=$S(+Y>0:+Y,1:"@")

 S DIE="^ANSR(",DA=ANSADM,DR="5///"_ANSB

 D DIE^ANSDIC

DIAG ;EP;ENTER/EDIT DIAGNOSIS

 S DA=ANSADM,DR="2Diagnosis",DIE="^ANSR("

 D DIE^ANSDIC

 Q

ANSUEU    ;IHS/OIRM/DSD/CSC - ENTER/EDIT ROOM/BED; [ 02/25/98  10:32 AM ]

 +1       ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 +2       ;;ADD/EDIT ROOM AND BED

ROOM      ;EP;TO ENTER/EDIT PATIENT'S ROOM

 +1        SET ANSX=""

           SET ANSR=$PIECE(ANSDX,U,3)

           SET ANSB=$PIECE(ANSDX,U,4)

 +2        SET DIC="^ANSD(59.1,"_ANSUN_",""R"","

           SET DIC(0)="AQZEM"

           SET DIC("A")="Room...........: "

 +3        IF ANSR

               SET DIC("B")=ANSR

 +4        DO DIC^ANSDIC

 +5        IF $DATA(DTOUT)!$DATA(DUOUT)

               QUIT 

 +6        SET ANSR=$SELECT(+Y>0:+Y,1:"@")

 +7        SET DIE="^ANSR("

           SET DA=ANSADM

           SET DR="4///"_ANSR_$SELECT(ANSR'="@":"",1:";5///@")

 +8        DO DIE^ANSDIC

 +9        IF ANSR="@"

               DO DIAG

               QUIT 

BED       ;ADD/EDIT BED ASSIGNMENT

 +1        SET DIC="^ANSD(59.1,"_ANSUN_",""R"","_ANSR_",""B"","

           SET DIC(0)="AQZEM"

           SET DIC("A")="Bed............: "

 +2        IF ANSB]""

               SET DIC("B")=ANSB

 +3        DO DIC^ANSDIC

 +4        IF $DATA(DTOUT)!$DATA(DUOUT)

               QUIT 

 +5        SET ANSB=$SELECT(+Y>0:+Y,1:"@")

 +6        SET DIE="^ANSR("

           SET DA=ANSADM

           SET DR="5///"_ANSB

 +7        DO DIE^ANSDIC

DIAG      ;EP;ENTER/EDIT DIAGNOSIS

 +1        SET DA=ANSADM

           SET DR="2Diagnosis"

           SET DIE="^ANSR("

 +2        DO DIE^ANSDIC

 +3        QUIT