- ACRFNEWF ;IHS/OIRM/DSD/THL,AEF - UTILITY TO NOTIFY USER OF NEW ARMS FUNCTION; [ 11/8/2006 9:44 AM ]
- ;;2.1;ADMIN RESOURCE MGT SYSTEM;**19,22**;NOV 05, 2001
- EN D EN1
- D EN2:$D(^ACRUAL("LVL",DUZ,3))
- EXIT K ACR,ACRTERM
- Q
- EN1 ;
- D HOME^ACRFMENU
- ;BEGIN NEW CODE ACR*2.1*22.03 IM22653
- D HEAD^ACRFMENU
- Q:$D(ACRNOFM)
- ;END NEW CODE
- S ACRTERM=+$G(^ACRSYS(1,2))
- Q:DT>ACRTERM
- Q:'$O(^ACRSYS(1,10,0))
- W @IOF,*7,*7,*7
- S D0=1
- D ^ACRPAM
- W !,"If you have any problems or suggestions please call your local ARMS manager."
- D PAUSE^ACRFWARN
- K ACRQUIT,ACROUT
- Q
- EN2 S ACRTERM=$P($G(^ACRSYS(1,2)),U,2)
- Q:DT>ACRTERM
- Q:'$O(^ACRSYS(1,20,0))
- W @IOF
- W *7,*7
- W !
- I $P($G(^VA(200,DUZ,.1)),U,4)]"" W $P(^(.1),U,4)
- ;E W $P($P($P(^VA(200,DUZ,0),U),",",2)," ") ;ACR*2.1*19.02 IM16848
- E W $P($P($$NAME2^ACRFUTL1(DUZ),",",2)," ") ;ACR*2.1*19.02 IM16848
- W !!
- S D0=1
- D ^ACRPAMM
- D PAUSE^ACRFWARN
- K ACRQUIT,ACROUT
- Q
- EMESS ;EP;TO EDIT AN ARMS USER MESSAGE
- W @IOF
- W !,"Enter the message you want to broadcast to all ARMS users."
- W !!
- S DA=1
- S DIE="^ACRSYS("
- S DR="[ACR ARMS MESSAGE]"
- D DIE^ACRFDIC
- Q
- NSV ;EP;TO CHECK FOR SECURITY VIOLATIONS
- N ACRLVL
- S ACRLVL=$O(^ACRUAL("LVL",DUZ,0))
- Q:ACRLVL=3!(ACRLVL=11)
- N X
- F S X=$O(^ACRACC(3,"SEC","C",1,X)) Q:'X I $D(^VA(200,DUZ,51,X)) D Q
- . S ACRDUZ=DUZ
- .D KILLSEC^ACRFACC
- .W !!,"You have ARMS ACCESS LEVEL ",ACRLVL
- .W !,"However, somehow you have gotten access to secured functions"
- .W !,"within ARMS which can only be accessed by someone with"
- .W !,"ACESS LEVEL 10."
- .W !!,"All your access to ARMS has been temporarily suspended."
- .W !,"Please see your ARMS Manager to re-establish an appropriate"
- .W !,"ACCESS LEVEL for yourself."
- Q
- ACRFNEWF ;IHS/OIRM/DSD/THL,AEF - UTILITY TO NOTIFY USER OF NEW ARMS FUNCTION; [ 11/8/2006 9:44 AM ]
- +1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**19,22**;NOV 05, 2001
- EN DO EN1
- +1 IF $DATA(^ACRUAL("LVL",DUZ,3))
- DO EN2
- EXIT KILL ACR,ACRTERM
- +1 QUIT
- EN1 ;
- +1 DO HOME^ACRFMENU
- +2 ;BEGIN NEW CODE ACR*2.1*22.03 IM22653
- +3 DO HEAD^ACRFMENU
- +4 IF $DATA(ACRNOFM)
- QUIT
- +5 ;END NEW CODE
- +6 SET ACRTERM=+$GET(^ACRSYS(1,2))
- +7 IF DT>ACRTERM
- QUIT
- +8 IF '$ORDER(^ACRSYS(1,10,0))
- QUIT
- +9 WRITE @IOF,*7,*7,*7
- +10 SET D0=1
- +11 DO ^ACRPAM
- +12 WRITE !,"If you have any problems or suggestions please call your local ARMS manager."
- +13 DO PAUSE^ACRFWARN
- +14 KILL ACRQUIT,ACROUT
- +15 QUIT
- EN2 SET ACRTERM=$PIECE($GET(^ACRSYS(1,2)),U,2)
- +1 IF DT>ACRTERM
- QUIT
- +2 IF '$ORDER(^ACRSYS(1,20,0))
- QUIT
- +3 WRITE @IOF
- +4 WRITE *7,*7
- +5 WRITE !
- +6 IF $PIECE($GET(^VA(200,DUZ,.1)),U,4)]""
- WRITE $PIECE(^(.1),U,4)
- +7 ;E W $P($P($P(^VA(200,DUZ,0),U),",",2)," ") ;ACR*2.1*19.02 IM16848
- +8 ;ACR*2.1*19.02 IM16848
- IF '$TEST
- WRITE $PIECE($PIECE($$NAME2^ACRFUTL1(DUZ),",",2)," ")
- +9 WRITE !!
- +10 SET D0=1
- +11 DO ^ACRPAMM
- +12 DO PAUSE^ACRFWARN
- +13 KILL ACRQUIT,ACROUT
- +14 QUIT
- EMESS ;EP;TO EDIT AN ARMS USER MESSAGE
- +1 WRITE @IOF
- +2 WRITE !,"Enter the message you want to broadcast to all ARMS users."
- +3 WRITE !!
- +4 SET DA=1
- +5 SET DIE="^ACRSYS("
- +6 SET DR="[ACR ARMS MESSAGE]"
- +7 DO DIE^ACRFDIC
- +8 QUIT
- NSV ;EP;TO CHECK FOR SECURITY VIOLATIONS
- +1 NEW ACRLVL
- +2 SET ACRLVL=$ORDER(^ACRUAL("LVL",DUZ,0))
- +3 IF ACRLVL=3!(ACRLVL=11)
- QUIT
- +4 NEW X
- +5 FOR
- SET X=$ORDER(^ACRACC(3,"SEC","C",1,X))
- IF 'X
- QUIT
- IF $DATA(^VA(200,DUZ,51,X))
- Begin DoDot:1
- +6 SET ACRDUZ=DUZ
- +7 DO KILLSEC^ACRFACC
- +8 WRITE !!,"You have ARMS ACCESS LEVEL ",ACRLVL
- +9 WRITE !,"However, somehow you have gotten access to secured functions"
- +10 WRITE !,"within ARMS which can only be accessed by someone with"
- +11 WRITE !,"ACESS LEVEL 10."
- +12 WRITE !!,"All your access to ARMS has been temporarily suspended."
- +13 WRITE !,"Please see your ARMS Manager to re-establish an appropriate"
- +14 WRITE !,"ACCESS LEVEL for yourself."
- End DoDot:1
- QUIT
- +15 QUIT