ABPAOPT ;CHECK/SET SYSTEM PARAMETERS; [ 07/10/91 11:43 AM ]
;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
CHECK ;ENTRY POINT TO VERIFY SYSTEM PARAMTER SET-UP
K ABPAOPT I $D(^ABPAFAC(DUZ(2),0))'=1 G NOTSET
F I=2:1:11 S ABPAOPT(I-1)=$P(^ABPAFAC(DUZ(2),0),"^",I)
I $D(ABPAOPT)'=10 G NOTSET
I $D(^ABPACHKS(1,0))'=1 G NOTSET
K QFLG F I=1:1:10 D I $D(QFLG)=1 K QFLG G NOTSET
.I $D(ABPAOPT(I))'=1 S QFLG="" Q
.I ABPAOPT(I)="" S QFLG="" Q
G SETDESC
NOTSET U IO(0) W *7,!!?5,"SYSTEM PARAMETERS NOT SET"
U IO(0) W "...PLEASE CONTACT YOUR SYSTEM MANAGER!!!" H 3
K ABPAOPT U IO Q
;
SET ;ENTRY POINT CALLED BY THE 'ABPASETOPTS' OPTION - ESTABLISHES ALL
;NECESSARY SYSTEM PARAMETERS
S ABPAHD1="Set-up SYSTEM OPTIONS" D HEADER^ABPAMAIN
K DIC,DIE,DA,DR,X,Y S DIC="^ABPAFAC(",DIC(0)="L"
S X=$P(^DIC(4,DUZ(2),0),"^",1) D ^DIC I +Y<1 D Q
.W *7,!!?5,"*** ACCESS NOT ALLOWED - PLEASE CONTACT YOUR SYSTEM"
.W " MANAGER! ***" H 4
S DIE=DIC,DA=+Y,DIE("NO^")=""
W !! S DR=".05;1;2///Y;3;4;4.5;5;6///Y;7///Y;8///Y;9" D ^DIE
K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/MONTH/UTILRPT/AUTO",""))
K ABPAIO,%IS,IOP I $D(^DIC(19,DA,200))=1 S %ZIS("B")=$P(^(200),"^",2)
S %IS="N",%ZIS("A")="PRINTER TO USE FOR OVERNIGHT REPORTS: "
F I=0:0 D Q:$D(ABPAIO)=1
.K ABPAIO D ^%ZIS I POP!($E(IOST,1)'="P") D Q
..S %ZIS("A")="PRINTER TO USE FOR OVERNIGHT REPORTS: "
..W *7," MUST SELECT A 'PRINTER' DEVICE"
.S ABPAIO=+IO
I +DA>0 D
.S DIE="^DIC(19,",DR="200///T@6P;201///"_ABPAIO_";202///1D" D ^DIE
K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/FYTD/UTILRPT/AUTO",""))
I +DA>0 D
.S DIE="^DIC(19,",DR="200///T@7P;201///"_ABPAIO_";202///1D" D ^DIE
K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/MONTH/DISTRPT/AUTO",""))
I +DA>0 D
.S DIE="^DIC(19,",DR="200///T@9P;201///"_ABPAIO_";202///1D" D ^DIE
K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/FYTD/DISTRPT/AUTO",""))
I +DA>0 D
.S DIE="^DIC(19,",DR="200///T@10P;201///"_ABPAIO_";202///1D" D ^DIE
K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/UNPROCESSED/CHECKS/AUTO",""))
I +DA>0 D
.S DIE="^DIC(19,",DR="200///T+1@7A;201///"_ABPAIO_";202///1D" D ^DIE
I $D(^ABPACHKS(1,0))'=1 D
.S ^ABPACHKS(1,0)=DUZ(2),^ABPACHKS("B",DUZ(2),1)=""
.S ^ABPACHKS(1,"I",0)="^9002270.31^^0"
.S ^ABPACHKS(0)="AO PVT-INS CHECK LOG^9002270.03P^1^1"
I +$P(^ABPAFAC(DUZ(2),0),"^",12)>0 D
.I $D(^ABPACHKS("B",+$P(^ABPAFAC(DUZ(2),0),"^",12)))=0 D
..S ^ABPACHKS(2,0)=$P(^ABPAFAC(DUZ(2),0),"^",12)
..S ^ABPACHKS("B",$P(^ABPAFAC(DUZ(2),0),"^",12),2)=""
..S ^ABPACHKS(2,"I",0)="^9002270.31^^0"
..S ^ABPACHKS(0)="AO PVT-INS CHECK LOG^9002270.03P^1^2"
K ABPAMESS S ABPAMESS="This concludes the SYSTEM SET-UP function..."
S ABPAMESS(2)="... Press any key to continue ... " D PAUSE^ABPAMAIN
S IOP=$I D ^%ZIS K IOP G CHECK
SETDESC F I=1:1 S X=$T(DESC+I) Q:X="" D
.S ABPAOPT(I,"DESC")=$P(X,";",4)
Q
;
DESC ;;PARAMTER #;DESCRIPTION
;;1;Ask for FIELD RECEIPT NUMBER
;;2;Ask for CHECK NUMBER
;;3;MANAGING OFFICE FOR 3P
;;4;3P RESOURCES SPECIALIST NAME
;;5;TOP MARGIN FOR TRANSMITTAL
;;6;MANUAL ENTRIES ON TRANSMITTAL
;;7;ALLOW MULTIPLE OPEN BATCHES
;;8;ALLOW MULTIPLE USER BATCHES
;;9;AGE CLAIMS BY
;;10;3P RESOURCES SPECIALIST TITLE
;;11;2nd ACCOUNTING POINT
ABPAOPT ;CHECK/SET SYSTEM PARAMETERS; [ 07/10/91 11:43 AM ]
+1 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
CHECK ;ENTRY POINT TO VERIFY SYSTEM PARAMTER SET-UP
+1 KILL ABPAOPT
IF $DATA(^ABPAFAC(DUZ(2),0))'=1
GOTO NOTSET
+2 FOR I=2:1:11
SET ABPAOPT(I-1)=$PIECE(^ABPAFAC(DUZ(2),0),"^",I)
+3 IF $DATA(ABPAOPT)'=10
GOTO NOTSET
+4 IF $DATA(^ABPACHKS(1,0))'=1
GOTO NOTSET
+5 KILL QFLG
FOR I=1:1:10
Begin DoDot:1
+6 IF $DATA(ABPAOPT(I))'=1
SET QFLG=""
QUIT
+7 IF ABPAOPT(I)=""
SET QFLG=""
QUIT
End DoDot:1
IF $DATA(QFLG)=1
KILL QFLG
GOTO NOTSET
+8 GOTO SETDESC
NOTSET USE IO(0)
WRITE *7,!!?5,"SYSTEM PARAMETERS NOT SET"
+1 USE IO(0)
WRITE "...PLEASE CONTACT YOUR SYSTEM MANAGER!!!"
HANG 3
+2 KILL ABPAOPT
USE IO
QUIT
+3 ;
SET ;ENTRY POINT CALLED BY THE 'ABPASETOPTS' OPTION - ESTABLISHES ALL
+1 ;NECESSARY SYSTEM PARAMETERS
+2 SET ABPAHD1="Set-up SYSTEM OPTIONS"
DO HEADER^ABPAMAIN
+3 KILL DIC,DIE,DA,DR,X,Y
SET DIC="^ABPAFAC("
SET DIC(0)="L"
+4 SET X=$PIECE(^DIC(4,DUZ(2),0),"^",1)
DO ^DIC
IF +Y<1
Begin DoDot:1
+5 WRITE *7,!!?5,"*** ACCESS NOT ALLOWED - PLEASE CONTACT YOUR SYSTEM"
+6 WRITE " MANAGER! ***"
HANG 4
End DoDot:1
QUIT
+7 SET DIE=DIC
SET DA=+Y
SET DIE("NO^")=""
+8 WRITE !!
SET DR=".05;1;2///Y;3;4;4.5;5;6///Y;7///Y;8///Y;9"
DO ^DIE
+9 KILL DIE,DA,DR
SET DA=$ORDER(^DIC(19,"B","ABPA/MONTH/UTILRPT/AUTO",""))
+10 KILL ABPAIO,%IS,IOP
IF $DATA(^DIC(19,DA,200))=1
SET %ZIS("B")=$PIECE(^(200),"^",2)
+11 SET %IS="N"
SET %ZIS("A")="PRINTER TO USE FOR OVERNIGHT REPORTS: "
+12 FOR I=0:0
Begin DoDot:1
+13 KILL ABPAIO
DO ^%ZIS
IF POP!($EXTRACT(IOST,1)'="P")
Begin DoDot:2
+14 SET %ZIS("A")="PRINTER TO USE FOR OVERNIGHT REPORTS: "
+15 WRITE *7," MUST SELECT A 'PRINTER' DEVICE"
End DoDot:2
QUIT
+16 SET ABPAIO=+IO
End DoDot:1
IF $DATA(ABPAIO)=1
QUIT
+17 IF +DA>0
Begin DoDot:1
+18 SET DIE="^DIC(19,"
SET DR="200///T@6P;201///"_ABPAIO_";202///1D"
DO ^DIE
End DoDot:1
+19 KILL DIE,DA,DR
SET DA=$ORDER(^DIC(19,"B","ABPA/FYTD/UTILRPT/AUTO",""))
+20 IF +DA>0
Begin DoDot:1
+21 SET DIE="^DIC(19,"
SET DR="200///T@7P;201///"_ABPAIO_";202///1D"
DO ^DIE
End DoDot:1
+22 KILL DIE,DA,DR
SET DA=$ORDER(^DIC(19,"B","ABPA/MONTH/DISTRPT/AUTO",""))
+23 IF +DA>0
Begin DoDot:1
+24 SET DIE="^DIC(19,"
SET DR="200///T@9P;201///"_ABPAIO_";202///1D"
DO ^DIE
End DoDot:1
+25 KILL DIE,DA,DR
SET DA=$ORDER(^DIC(19,"B","ABPA/FYTD/DISTRPT/AUTO",""))
+26 IF +DA>0
Begin DoDot:1
+27 SET DIE="^DIC(19,"
SET DR="200///T@10P;201///"_ABPAIO_";202///1D"
DO ^DIE
End DoDot:1
+28 KILL DIE,DA,DR
SET DA=$ORDER(^DIC(19,"B","ABPA/UNPROCESSED/CHECKS/AUTO",""))
+29 IF +DA>0
Begin DoDot:1
+30 SET DIE="^DIC(19,"
SET DR="200///T+1@7A;201///"_ABPAIO_";202///1D"
DO ^DIE
End DoDot:1
+31 IF $DATA(^ABPACHKS(1,0))'=1
Begin DoDot:1
+32 SET ^ABPACHKS(1,0)=DUZ(2)
SET ^ABPACHKS("B",DUZ(2),1)=""
+33 SET ^ABPACHKS(1,"I",0)="^9002270.31^^0"
+34 SET ^ABPACHKS(0)="AO PVT-INS CHECK LOG^9002270.03P^1^1"
End DoDot:1
+35 IF +$PIECE(^ABPAFAC(DUZ(2),0),"^",12)>0
Begin DoDot:1
+36 IF $DATA(^ABPACHKS("B",+$PIECE(^ABPAFAC(DUZ(2),0),"^",12)))=0
Begin DoDot:2
+37 SET ^ABPACHKS(2,0)=$PIECE(^ABPAFAC(DUZ(2),0),"^",12)
+38 SET ^ABPACHKS("B",$PIECE(^ABPAFAC(DUZ(2),0),"^",12),2)=""
+39 SET ^ABPACHKS(2,"I",0)="^9002270.31^^0"
+40 SET ^ABPACHKS(0)="AO PVT-INS CHECK LOG^9002270.03P^1^2"
End DoDot:2
End DoDot:1
+41 KILL ABPAMESS
SET ABPAMESS="This concludes the SYSTEM SET-UP function..."
+42 SET ABPAMESS(2)="... Press any key to continue ... "
DO PAUSE^ABPAMAIN
+43 SET IOP=$IO
DO ^%ZIS
KILL IOP
GOTO CHECK
SETDESC FOR I=1:1
SET X=$TEXT(DESC+I)
IF X=""
QUIT
Begin DoDot:1
+1 SET ABPAOPT(I,"DESC")=$PIECE(X,";",4)
End DoDot:1
+2 QUIT
+3 ;
DESC ;;PARAMTER #;DESCRIPTION
+1 ;;1;Ask for FIELD RECEIPT NUMBER
+2 ;;2;Ask for CHECK NUMBER
+3 ;;3;MANAGING OFFICE FOR 3P
+4 ;;4;3P RESOURCES SPECIALIST NAME
+5 ;;5;TOP MARGIN FOR TRANSMITTAL
+6 ;;6;MANUAL ENTRIES ON TRANSMITTAL
+7 ;;7;ALLOW MULTIPLE OPEN BATCHES
+8 ;;8;ALLOW MULTIPLE USER BATCHES
+9 ;;9;AGE CLAIMS BY
+10 ;;10;3P RESOURCES SPECIALIST TITLE
+11 ;;11;2nd ACCOUNTING POINT
