IBDFU7.m

IBDFU7 ;ALB/CJM - ENCOUNTER FORM - (utilities to handle form locks);3/29/93

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

LOCKFORM(FORM) ;locks the form - returns 0 if unsuccessful, 1 otherwise

 ;this lock is used to prevent multiple processes from simultaneously compiling a form

 L +^IBE(357,FORM,"LOCK1"):10

 Q $T

 ;

LOCKFRM2(FORM) ;locks the form - returns 0 if unsuccessful, 1 otherwise

 ;this lock is used to prevent multiple users from editing a form simultaneously

 L +^IBE(357,FORM,"LOCK2"):5

 Q $T

 ;

FREEFORM(FORM) ;unlocks the form

 L -^IBE(357,FORM,"LOCK1")

 Q

 ;

FREEFRM2(FORM) ;unlocks the form locked by LOCKFRM2()

 L -^IBE(357,FORM,"LOCK2")

 Q

 ;

 ;

LOCKMSG2(FORM) ;displays a message to the user for forms unavailable by LOCKFRM2()

 N FORMNAME

 S FORMNAME=$P($G(^IBE(357,FORM,0)),"^",1)

 W !!,"The form = '"_FORMNAME_"' is currently not available.",!,"It is being edited by another person.",!

 D PAUSE^IBDFU5

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDFU7   962     printed  Sep 02, 2024@19:39:16                                                                                                                                                                                                       Page 2

IBDFU7    ;ALB/CJM - ENCOUNTER FORM - (utilities to handle form locks);3/29/93

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

LOCKFORM(FORM) ;locks the form - returns 0 if unsuccessful, 1 otherwise

 +1       ;this lock is used to prevent multiple processes from simultaneously compiling a form

 +2        LOCK +^IBE(357,FORM,"LOCK1"):10

 +3        QUIT $TEST

 +4       ;

LOCKFRM2(FORM) ;locks the form - returns 0 if unsuccessful, 1 otherwise

 +1       ;this lock is used to prevent multiple users from editing a form simultaneously

 +2        LOCK +^IBE(357,FORM,"LOCK2"):5

 +3        QUIT $TEST

 +4       ;

FREEFORM(FORM) ;unlocks the form

 +1        LOCK -^IBE(357,FORM,"LOCK1")

 +2        QUIT 

 +3       ;

FREEFRM2(FORM) ;unlocks the form locked by LOCKFRM2()

 +1        LOCK -^IBE(357,FORM,"LOCK2")

 +2        QUIT 

 +3       ;

 +4       ;

LOCKMSG2(FORM) ;displays a message to the user for forms unavailable by LOCKFRM2()

 +1        NEW FORMNAME

 +2        SET FORMNAME=$PIECE($GET(^IBE(357,FORM,0)),"^",1)

 +3        WRITE !!,"The form = '"_FORMNAME_"' is currently not available.",!,"It is being edited by another person.",!

 +4        DO PAUSE^IBDFU5

 +5        QUIT