- AQAQVAR ;IHS/ANMC/LJF - MENU ENTRY AND EXIT ACTIONS [ 09/28/92 1:30 PM ]
- ;;2.2;STAFF CREDENTIALS;;01 OCT 1992
- ;
- ENTER ;EP;***> entry actions for AQAQ MENU
- S Y=0,Y=$O(^DIC(9.4,"C","AQAQ",Y)),AQAQ("VERS")=^DIC(9.4,Y,"VERSION")
- S Y=$P(^DIC(9.4,Y,22,AQAQ("VERS"),0),U,2) X ^DD("DD") S AQAQ("VERDT")=Y
- ;
- D ^XBCLS W !?22 F AQAQ("I")=1:1:35 W "*"
- W !?22,"*",?56,"*",!?22,"* INDIAN HEALTH SERVICE *"
- W !?22,"* MEDICAL STAFF CREDENTIALS *"
- W !?22,"* VERSION ",AQAQ("VERS"),", ",AQAQ("VERDT"),?56,"*"
- W !?22,"*",?56,"*",!?22 F AQAQ("I")=1:1:35 W "*"
- ;
- I '$D(DUZ(2))!('$D(DUZ(0))) W !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE STAFF CREDENTIALS!" S XQUIT=1 G XQUIT
- S X=$S($D(^DIC(4,DUZ(2),0))#2:$P(^(0),U),1:"") W !!?80-$L(X)\2,X
- I X="" W !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!" S XQUIT=""
- ;
- QUEUE ;check if delinquent report is queued
- G XQUIT:'$D(^ADGIC) G XQUIT:'$O(^ADGIC(0)) ;not running Incomp Charts
- S AQAQX=$O(^DIC(19,"B","AQAQ DELINQUENT ADD",0))
- I AQAQX="" W *7,!!?13,"**OPTION TO RUN DELINQUENT CHART NUMBERS IS MISSING!**",!?23,"**PLEASE CALL YOUR SITE MANAGER**" G XQUIT
- I $P($G(^DIC(19,AQAQX,200)),U)<DT W *7,!!?11,"**OPTION TO TRACK DELINQUENT CHART NUMBERS IS NOT QUEUED!!**",!?20,"**PLEASE CHECK WITH YOUR SITE MANAGER**",!! G XQUIT
- W !!?3,"**DELINQUENT CHART TRACKING OPTION Scheduled to run on "
- S Y=$P(^DIC(19,AQAQX,200),U) X ^DD("DD") W Y,"**"
- S AQAQY=$P(^DIC(19,AQAQX,200),U,3),AQAQZ=$E(AQAQY,$L(AQAQY))
- W !?18,"**Rescheduling frequency is every ",+AQAQY," "
- W $S(AQAQZ="D":"day",AQAQZ="M":"month",AQAQZ="H":"hour",1:"second")
- W:+AQAQY>1 "s" W "**"
- XQUIT W ! K AQAQ,X,Y,AQAQX,AQAQY,AQAQZ
- Q
- ;
- ;
- RPTENT ;EP;***> entry action for reports menu
- S X="CREDENTIALS REPORTS MENU" W @IOF,!!?80-$L(X)\2,X
- S X=$S($D(^DIC(4,DUZ(2),0))#2:$P(^(0),U),1:"") W !!?80-$L(X)\2,X
- K X Q
- ;
- ;
- SUPENT ;EP;***> entry action for supervisor menu
- S X="CREDENTIALS SUPERVISOR MENU" W @IOF,!!?80-$L(X)\2,X
- S X=$S($D(^DIC(4,DUZ(2),0))#2:$P(^(0),U),1:"") W !!?80-$L(X)\2,X
- K X Q
- ;
- ;
- PRTOPT ;EP;***> exit action for print options
- K DIR S DIR(0)="E",DIR("A")="Hit <RETURN> to continue" D ^DIR W @IOF
- K DIR Q
- ;
- ;
- XIT ;EP;***> exit actions for AQAQ MENU
- Q
- AQAQVAR ;IHS/ANMC/LJF - MENU ENTRY AND EXIT ACTIONS [ 09/28/92 1:30 PM ]
- +1 ;;2.2;STAFF CREDENTIALS;;01 OCT 1992
- +2 ;
- ENTER ;EP;***> entry actions for AQAQ MENU
- +1 SET Y=0
- SET Y=$ORDER(^DIC(9.4,"C","AQAQ",Y))
- SET AQAQ("VERS")=^DIC(9.4,Y,"VERSION")
- +2 SET Y=$PIECE(^DIC(9.4,Y,22,AQAQ("VERS"),0),U,2)
- XECUTE ^DD("DD")
- SET AQAQ("VERDT")=Y
- +3 ;
- +4 DO ^XBCLS
- WRITE !?22
- FOR AQAQ("I")=1:1:35
- WRITE "*"
- +5 WRITE !?22,"*",?56,"*",!?22,"* INDIAN HEALTH SERVICE *"
- +6 WRITE !?22,"* MEDICAL STAFF CREDENTIALS *"
- +7 WRITE !?22,"* VERSION ",AQAQ("VERS"),", ",AQAQ("VERDT"),?56,"*"
- +8 WRITE !?22,"*",?56,"*",!?22
- FOR AQAQ("I")=1:1:35
- WRITE "*"
- +9 ;
- +10 IF '$DATA(DUZ(2))!('$DATA(DUZ(0)))
- WRITE !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE STAFF CREDENTIALS!"
- SET XQUIT=1
- GOTO XQUIT
- +11 SET X=$SELECT($DATA(^DIC(4,DUZ(2),0))#2:$PIECE(^(0),U),1:"")
- WRITE !!?80-$LENGTH(X)\2,X
- +12 IF X=""
- WRITE !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!"
- SET XQUIT=""
- +13 ;
- QUEUE ;check if delinquent report is queued
- +1 ;not running Incomp Charts
- IF '$DATA(^ADGIC)
- GOTO XQUIT
- IF '$ORDER(^ADGIC(0))
- GOTO XQUIT
- +2 SET AQAQX=$ORDER(^DIC(19,"B","AQAQ DELINQUENT ADD",0))
- +3 IF AQAQX=""
- WRITE *7,!!?13,"**OPTION TO RUN DELINQUENT CHART NUMBERS IS MISSING!**",!?23,"**PLEASE CALL YOUR SITE MANAGER**"
- GOTO XQUIT
- +4 IF $PIECE($GET(^DIC(19,AQAQX,200)),U)<DT
- WRITE *7,!!?11,"**OPTION TO TRACK DELINQUENT CHART NUMBERS IS NOT QUEUED!!**",!?20,"**PLEASE CHECK WITH YOUR SITE MANAGER**",!!
- GOTO XQUIT
- +5 WRITE !!?3,"**DELINQUENT CHART TRACKING OPTION Scheduled to run on "
- +6 SET Y=$PIECE(^DIC(19,AQAQX,200),U)
- XECUTE ^DD("DD")
- WRITE Y,"**"
- +7 SET AQAQY=$PIECE(^DIC(19,AQAQX,200),U,3)
- SET AQAQZ=$EXTRACT(AQAQY,$LENGTH(AQAQY))
- +8 WRITE !?18,"**Rescheduling frequency is every ",+AQAQY," "
- +9 WRITE $SELECT(AQAQZ="D":"day",AQAQZ="M":"month",AQAQZ="H":"hour",1:"second")
- +10 IF +AQAQY>1
- WRITE "s"
- WRITE "**"
- XQUIT WRITE !
- KILL AQAQ,X,Y,AQAQX,AQAQY,AQAQZ
- +1 QUIT
- +2 ;
- +3 ;
- RPTENT ;EP;***> entry action for reports menu
- +1 SET X="CREDENTIALS REPORTS MENU"
- WRITE @IOF,!!?80-$LENGTH(X)\2,X
- +2 SET X=$SELECT($DATA(^DIC(4,DUZ(2),0))#2:$PIECE(^(0),U),1:"")
- WRITE !!?80-$LENGTH(X)\2,X
- +3 KILL X
- QUIT
- +4 ;
- +5 ;
- SUPENT ;EP;***> entry action for supervisor menu
- +1 SET X="CREDENTIALS SUPERVISOR MENU"
- WRITE @IOF,!!?80-$LENGTH(X)\2,X
- +2 SET X=$SELECT($DATA(^DIC(4,DUZ(2),0))#2:$PIECE(^(0),U),1:"")
- WRITE !!?80-$LENGTH(X)\2,X
- +3 KILL X
- QUIT
- +4 ;
- +5 ;
- PRTOPT ;EP;***> exit action for print options
- +1 KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Hit <RETURN> to continue"
- DO ^DIR
- WRITE @IOF
- +2 KILL DIR
- QUIT
- +3 ;
- +4 ;
- XIT ;EP;***> exit actions for AQAQ MENU
- +1 QUIT
