RCY173PO.m

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 ---RCY173PO   2306     printed  Mar 13, 2025@20:54:33                                                                                                                                                                                                    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       ;