Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABPAOPT

ABPAOPT.m

Go to the documentation of this file. 
  1. 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
  1. CHECK ;ENTRY POINT TO VERIFY SYSTEM PARAMTER SET-UP
  1.  K ABPAOPT I $D(^ABPAFAC(DUZ(2),0))'=1 G NOTSET
  1.  F I=2:1:11 S ABPAOPT(I-1)=$P(^ABPAFAC(DUZ(2),0),"^",I)
  1.  I $D(ABPAOPT)'=10 G NOTSET
  1.  I $D(^ABPACHKS(1,0))'=1 G NOTSET
  1.  K QFLG F I=1:1:10 D  I $D(QFLG)=1 K QFLG G NOTSET
  1.  .I $D(ABPAOPT(I))'=1 S QFLG="" Q
  1.  .I ABPAOPT(I)="" S QFLG="" Q
  1.  G SETDESC
  1. NOTSET U IO(0) W *7,!!?5,"SYSTEM PARAMETERS NOT SET"
  1.  U IO(0) W "...PLEASE CONTACT YOUR SYSTEM MANAGER!!!" H 3
  1.  K ABPAOPT U IO Q
  1.  ;
  1. SET ;ENTRY POINT CALLED BY THE 'ABPASETOPTS' OPTION - ESTABLISHES ALL
  1.  ;NECESSARY SYSTEM PARAMETERS
  1.  S ABPAHD1="Set-up SYSTEM OPTIONS" D HEADER^ABPAMAIN
  1.  K DIC,DIE,DA,DR,X,Y S DIC="^ABPAFAC(",DIC(0)="L"
  1.  S X=$P(^DIC(4,DUZ(2),0),"^",1) D ^DIC I +Y<1 D  Q
  1.  .W *7,!!?5,"*** ACCESS NOT ALLOWED - PLEASE CONTACT YOUR SYSTEM"
  1.  .W " MANAGER! ***" H 4
  1.  S DIE=DIC,DA=+Y,DIE("NO^")=""
  1.  W !! S DR=".05;1;2///Y;3;4;4.5;5;6///Y;7///Y;8///Y;9" D ^DIE
  1.  K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/MONTH/UTILRPT/AUTO",""))
  1.  K ABPAIO,%IS,IOP I $D(^DIC(19,DA,200))=1 S %ZIS("B")=$P(^(200),"^",2)
  1.  S %IS="N",%ZIS("A")="PRINTER TO USE FOR OVERNIGHT REPORTS: "
  1.  F I=0:0 D  Q:$D(ABPAIO)=1
  1.  .K ABPAIO D ^%ZIS I POP!($E(IOST,1)'="P") D  Q
  1.  ..S %ZIS("A")="PRINTER TO USE FOR OVERNIGHT REPORTS: "
  1.  ..W *7,"   MUST SELECT A 'PRINTER' DEVICE"
  1.  .S ABPAIO=+IO
  1.  I +DA>0 D
  1.  .S DIE="^DIC(19,",DR="200///T@6P;201///"_ABPAIO_";202///1D" D ^DIE
  1.  K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/FYTD/UTILRPT/AUTO",""))
  1.  I +DA>0 D
  1.  .S DIE="^DIC(19,",DR="200///T@7P;201///"_ABPAIO_";202///1D" D ^DIE
  1.  K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/MONTH/DISTRPT/AUTO",""))
  1.  I +DA>0 D
  1.  .S DIE="^DIC(19,",DR="200///T@9P;201///"_ABPAIO_";202///1D" D ^DIE
  1.  K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/FYTD/DISTRPT/AUTO",""))
  1.  I +DA>0 D
  1.  .S DIE="^DIC(19,",DR="200///T@10P;201///"_ABPAIO_";202///1D" D ^DIE
  1.  K DIE,DA,DR S DA=$O(^DIC(19,"B","ABPA/UNPROCESSED/CHECKS/AUTO",""))
  1.  I +DA>0 D
  1.  .S DIE="^DIC(19,",DR="200///T+1@7A;201///"_ABPAIO_";202///1D" D ^DIE
  1.  I $D(^ABPACHKS(1,0))'=1 D
  1.  .S ^ABPACHKS(1,0)=DUZ(2),^ABPACHKS("B",DUZ(2),1)=""
  1.  .S ^ABPACHKS(1,"I",0)="^9002270.31^^0"
  1.  .S ^ABPACHKS(0)="AO PVT-INS CHECK LOG^9002270.03P^1^1"
  1.  I +$P(^ABPAFAC(DUZ(2),0),"^",12)>0 D
  1.  .I $D(^ABPACHKS("B",+$P(^ABPAFAC(DUZ(2),0),"^",12)))=0 D
  1.  ..S ^ABPACHKS(2,0)=$P(^ABPAFAC(DUZ(2),0),"^",12)
  1.  ..S ^ABPACHKS("B",$P(^ABPAFAC(DUZ(2),0),"^",12),2)=""
  1.  ..S ^ABPACHKS(2,"I",0)="^9002270.31^^0"
  1.  ..S ^ABPACHKS(0)="AO PVT-INS CHECK LOG^9002270.03P^1^2"
  1.  K ABPAMESS S ABPAMESS="This concludes the SYSTEM SET-UP function..."
  1.  S ABPAMESS(2)="... Press any key to continue ... " D PAUSE^ABPAMAIN
  1.  S IOP=$I D ^%ZIS K IOP G CHECK
  1. SETDESC F I=1:1 S X=$T(DESC+I) Q:X=""  D
  1.  .S ABPAOPT(I,"DESC")=$P(X,";",4)
  1.  Q
  1.  ;
  1. DESC ;;PARAMTER #;DESCRIPTION
  1.  ;;1;Ask for FIELD RECEIPT NUMBER
  1.  ;;2;Ask for CHECK NUMBER
  1.  ;;3;MANAGING OFFICE FOR 3P
  1.  ;;4;3P RESOURCES SPECIALIST NAME
  1.  ;;5;TOP MARGIN FOR TRANSMITTAL
  1.  ;;6;MANUAL ENTRIES ON TRANSMITTAL
  1.  ;;7;ALLOW MULTIPLE OPEN BATCHES
  1.  ;;8;ALLOW MULTIPLE USER BATCHES
  1.  ;;9;AGE CLAIMS BY
  1.  ;;10;3P RESOURCES SPECIALIST TITLE
  1.  ;;11;2nd ACCOUNTING POINT