LRZLOCK.m

LRZLOCK ;IHS/ANMC/CLS; LOCKS LAB RESULT AND LAB MENUS [ 09/07/90  4:20 PM ]

 ;IHS/ANMC/CLS 09/07/90

 ;

 W !!,"THIS ROUTINE IS TO BE RUN USING CALLS TO AN ENTRY POINT!"

 W !! Q

 ;

NAVAIL ;sets an out of order message into options that access LAB RESULT AND LAB MENU

 ;

 W !!,"TURNS OFF ACCESS TO LAB RESULTS AND THE LAB!!",!!

 R "Are you sure you want to continue?  NO// ",X:DTIME

 Q:X'?1"Y".E

 F I="LRZMENU","LRZANMC" W !,I,"..." D N1

 Q

N1 S DA=$O(^DIC(19,"B",I,0)) Q:DA=""

 G N1:'$D(^DIC(19,DA,0))

 S $P(^DIC(19,DA,0),"^",3)="OPTION NOT AVAILABLE"

 D REDO^XQ7 Q

 ;

AVAIL ;make patient registration options available again

 ;

 W !!,"RESTORES ACCESS TO LAB RESULTS AND THE LAB!",!!

 R "Are you sure you want to continue? NO// ",X:DTIME

 Q:X'?1"Y".E

 F I="LRZMENU","LRZANMC" W !,I,"..." D A1

 Q

A1 S DA=$O(^DIC(19,"B",I,0)) Q:DA=""

 G A1:'$D(^DIC(19,DA,0))

 S $P(^DIC(19,DA,0),"^",3)=""

 D REDO^XQ7 Q

LRZLOCK   ;IHS/ANMC/CLS; LOCKS LAB RESULT AND LAB MENUS [ 09/07/90  4:20 PM ]

 +1       ;IHS/ANMC/CLS 09/07/90

 +2       ;

 +3        WRITE !!,"THIS ROUTINE IS TO BE RUN USING CALLS TO AN ENTRY POINT!"

 +4        WRITE !!

           QUIT 

 +5       ;

NAVAIL    ;sets an out of order message into options that access LAB RESULT AND LAB MENU

 +1       ;

 +2        WRITE !!,"TURNS OFF ACCESS TO LAB RESULTS AND THE LAB!!",!!

 +3        READ "Are you sure you want to continue?  NO// ",X:DTIME

 +4        IF X'?1"Y".E

               QUIT 

 +5        FOR I="LRZMENU","LRZANMC"

               WRITE !,I,"..."

               DO N1

 +6        QUIT 

N1         SET DA=$ORDER(^DIC(19,"B",I,0))

           IF DA=""

               QUIT 

 +1        IF '$DATA(^DIC(19,DA,0))

               GOTO N1

 +2        SET $PIECE(^DIC(19,DA,0),"^",3)="OPTION NOT AVAILABLE"

 +3        DO REDO^XQ7

           QUIT 

 +4       ;

AVAIL     ;make patient registration options available again

 +1       ;

 +2        WRITE !!,"RESTORES ACCESS TO LAB RESULTS AND THE LAB!",!!

 +3        READ "Are you sure you want to continue? NO// ",X:DTIME

 +4        IF X'?1"Y".E

               QUIT 

 +5        FOR I="LRZMENU","LRZANMC"

               WRITE !,I,"..."

               DO A1

 +6        QUIT 

A1         SET DA=$ORDER(^DIC(19,"B",I,0))

           IF DA=""

               QUIT 

 +1        IF '$DATA(^DIC(19,DA,0))

               GOTO A1

 +2        SET $PIECE(^DIC(19,DA,0),"^",3)=""

 +3        DO REDO^XQ7

           QUIT