Name | Value |
---|---|
NAME | NURAED-STF-LOC |
MENU TEXT | Location Edit, Employee |
UPPERCASE MENU TEXT | LOCATION EDIT, EMPLOYEE |
PACKAGE | NURSING SERVICE |
E ACTION PRESENT | YES |
ENTRY ACTION | D EN14^NURAED0 S NUROUT=$S('$D(XQUIT):0,XQUIT=1:1,1:0) D:'NUROUT ^NURAED1 S:'$D(NURAES) NUROUT=1 W:'NUROUT ! S:'NUROUT DIE="^NURSF(210",DR=28.1,DA=+NURSDBA D:'NUROUT ^DIE D EN15^NURAED0 K NUROUT |
DESCRIPTION | Allows editing of location field in the NURS STAFF FILE (#210). |
CREATOR | ADAM,ADAM |
TYPE | action |