RCY173PO ;ALB/TMK - PRCA*4.5*173 POST-INSTALL ;31-OCT-2002
;;4.5;Accounts Receivable;**173**;Mar 20, 1995
;
POST ;Set up check points for post-init
N %
S %=$$NEWCP^XPDUTL("U342","U342^RCY173PO")
S %=$$NEWCP^XPDUTL("ADDUSER","ADDUSERS^RCY173PO")
S %=$$NEWCP^XPDUTL("ADDGMBR","ADDGMBR^RCY173PO")
S %=$$NEWCP^XPDUTL("END","END^RCY173PO") ; Leave as last update
Q
;
U342 N Z,DA,DIE,X,Y,DR
D BMES^XPDUTL("Adding default values to 'aging' site parameters")
S DIE="^RC(342,",DA=1,DR="7.02////5;7.03////7" D ^DIE
D COMPLETE
Q
;
ADDUSERS N DIC,X,Y,DO,DD,DLAYGO
D BMES^XPDUTL("Adding new EDI Lockbox generic users")
S DIC(0)="",DIC="^VA(200,",X="EDILOCKBOX,AUTOMATIC" D ^DIC
I Y>0 D G ADD1
. D BMES^XPDUTL("User 'EDILOCKBOX,AUTOMATIC' already exists in the NEW PERSON file - not added")
D BMES^XPDUTL("Adding new user 'EDILOCKBOX,AUTOMATIC' to the NEW PERSON file")
S DLAYGO=200,DIC(0)="L",DIC="^VA(200,",DIC("DR")="1////EDI",X="EDILOCKBOX,AUTOMATIC" D FILE^DICN K DIC,DO,DD,DLAYGO
I Y'>0 D
. D BMES^XPDUTL("A PROBLEM WAS ENCOUNTERED TRYING TO ADD USER 'EDILOCKBOX,AUTOMATIC'")
. D BMES^XPDUTL("THE ENTRY MUST BE ADDED MANUALLY TO THE NEW PERSON FILE")
E D
. D BMES^XPDUTL("USER 'EDILOCKBOX,AUTOMATIC' WAS SUCCESSFULLY ADDED TO THE NEW PERSON FILE")
;
ADD1 S DIC(0)="",DIC="^VA(200,",X="PRCA,AUTOAUDIT" D ^DIC
I Y>0 D G ADDQ
. D BMES^XPDUTL("User 'PRCA,AUTOAUDIT' already exists in the NEW PERSON file - not added")
D BMES^XPDUTL("Adding new user 'PRCA,AUTOAUDIT' to the NEW PERSON file")
S DLAYGO=200,DIC(0)="L",DIC="^VA(200,",DIC("DR")="1////EDI",X="PRCA,AUTOAUDIT" D FILE^DICN K DIC,DO,DD,DLAYGO
I Y'>0 D
. D BMES^XPDUTL("A PROBLEM WAS ENCOUNTERED TRYING TO ADD USER 'PRCA,AUTOAUDIT'")
. D BMES^XPDUTL("THE ENTRY MUST BE ADDED MANUALLY TO THE NEW PERSON FILE")
E D
. D BMES^XPDUTL("USER 'PRCA,AUTOAUDIT' WAS SUCCESSFULLY ADDED TO THE NEW PERSON FILE")
;
ADDQ D COMPLETE
Q
;
ADDGMBR ; Add S.RCDPE EDI LOCKBOX SERVER server option to mailgroup MLB
D BMES^XPDUTL("Note: SERVER OPTION S.RCDPE EDI LOCKBOX SERVER@<your site's domain>"),MES^XPDUTL(" MUST BE ADDED MANUALLY TO MAIL GROUP MLB")
D COMPLETE
Q
;
COMPLETE ;
D BMES^XPDUTL("Step complete.")
Q
;
END ;
D BMES^XPDUTL("Post install complete.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCY173PO 2306 printed Dec 13, 2024@01:49:53 Page 2
RCY173PO ;ALB/TMK - PRCA*4.5*173 POST-INSTALL ;31-OCT-2002
+1 ;;4.5;Accounts Receivable;**173**;Mar 20, 1995
+2 ;
POST ;Set up check points for post-init
+1 NEW %
+2 SET %=$$NEWCP^XPDUTL("U342","U342^RCY173PO")
+3 SET %=$$NEWCP^XPDUTL("ADDUSER","ADDUSERS^RCY173PO")
+4 SET %=$$NEWCP^XPDUTL("ADDGMBR","ADDGMBR^RCY173PO")
+5 ; Leave as last update
SET %=$$NEWCP^XPDUTL("END","END^RCY173PO")
+6 QUIT
+7 ;
U342 NEW Z,DA,DIE,X,Y,DR
+1 DO BMES^XPDUTL("Adding default values to 'aging' site parameters")
+2 SET DIE="^RC(342,"
SET DA=1
SET DR="7.02////5;7.03////7"
DO ^DIE
+3 DO COMPLETE
+4 QUIT
+5 ;
ADDUSERS NEW DIC,X,Y,DO,DD,DLAYGO
+1 DO BMES^XPDUTL("Adding new EDI Lockbox generic users")
+2 SET DIC(0)=""
SET DIC="^VA(200,"
SET X="EDILOCKBOX,AUTOMATIC"
DO ^DIC
+3 IF Y>0
Begin DoDot:1
+4 DO BMES^XPDUTL("User 'EDILOCKBOX,AUTOMATIC' already exists in the NEW PERSON file - not added")
End DoDot:1
GOTO ADD1
+5 DO BMES^XPDUTL("Adding new user 'EDILOCKBOX,AUTOMATIC' to the NEW PERSON file")
+6 SET DLAYGO=200
SET DIC(0)="L"
SET DIC="^VA(200,"
SET DIC("DR")="1////EDI"
SET X="EDILOCKBOX,AUTOMATIC"
DO FILE^DICN
KILL DIC,DO,DD,DLAYGO
+7 IF Y'>0
Begin DoDot:1
+8 DO BMES^XPDUTL("A PROBLEM WAS ENCOUNTERED TRYING TO ADD USER 'EDILOCKBOX,AUTOMATIC'")
+9 DO BMES^XPDUTL("THE ENTRY MUST BE ADDED MANUALLY TO THE NEW PERSON FILE")
End DoDot:1
+10 IF '$TEST
Begin DoDot:1
+11 DO BMES^XPDUTL("USER 'EDILOCKBOX,AUTOMATIC' WAS SUCCESSFULLY ADDED TO THE NEW PERSON FILE")
End DoDot:1
+12 ;
ADD1 SET DIC(0)=""
SET DIC="^VA(200,"
SET X="PRCA,AUTOAUDIT"
DO ^DIC
+1 IF Y>0
Begin DoDot:1
+2 DO BMES^XPDUTL("User 'PRCA,AUTOAUDIT' already exists in the NEW PERSON file - not added")
End DoDot:1
GOTO ADDQ
+3 DO BMES^XPDUTL("Adding new user 'PRCA,AUTOAUDIT' to the NEW PERSON file")
+4 SET DLAYGO=200
SET DIC(0)="L"
SET DIC="^VA(200,"
SET DIC("DR")="1////EDI"
SET X="PRCA,AUTOAUDIT"
DO FILE^DICN
KILL DIC,DO,DD,DLAYGO
+5 IF Y'>0
Begin DoDot:1
+6 DO BMES^XPDUTL("A PROBLEM WAS ENCOUNTERED TRYING TO ADD USER 'PRCA,AUTOAUDIT'")
+7 DO BMES^XPDUTL("THE ENTRY MUST BE ADDED MANUALLY TO THE NEW PERSON FILE")
End DoDot:1
+8 IF '$TEST
Begin DoDot:1
+9 DO BMES^XPDUTL("USER 'PRCA,AUTOAUDIT' WAS SUCCESSFULLY ADDED TO THE NEW PERSON FILE")
End DoDot:1
+10 ;
ADDQ DO COMPLETE
+1 QUIT
+2 ;
ADDGMBR ; Add S.RCDPE EDI LOCKBOX SERVER server option to mailgroup MLB
+1 DO BMES^XPDUTL("Note: SERVER OPTION S.RCDPE EDI LOCKBOX SERVER@<your site's domain>")
DO MES^XPDUTL(" MUST BE ADDED MANUALLY TO MAIL GROUP MLB")
+2 DO COMPLETE
+3 QUIT
+4 ;
COMPLETE ;
+1 DO BMES^XPDUTL("Step complete.")
+2 QUIT
+3 ;
END ;
+1 DO BMES^XPDUTL("Post install complete.")
+2 QUIT
+3 ;
