SD53P284.m

SD53P284 ; ALB/MRY - ENVIRONMENT CHECK & POST INSTALL; 2/11/03 12:49pm

 ;;5.3;Scheduling;**284**;AUG 13, 1993

 ;;

EN ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT)

 I XPDABORT="" K XPDABORT

 ;

 Q

 ;

PROGCHK(XPDABORT) ;

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO

 .D BMES^XPDUTL("*****")

 .D MES^XPDUTL("Your programming variables are not set up properly.")

 .D MES^XPDUTL("Installation aborted.")

 .D MES^XPDUTL("*****")

 .S XPDABORT=2

 .Q

 Q

 ;

POST ;

 ; Add/edit PCMM HL7 ERROR CODE '370M'

 N DIC,DIE,DA,DLAYGO,DR,X,Y,SDARRY,SDIENS

 S DIC="^SCPT(404.472,",DIC(0)="L",DLAYGO=404.472

 S X="370M"

 D ^DIC I Y<0 D  Q

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("Unsuccessful entry!  ** INSTALLATION ABORTED. **")

 . D MES^XPDUTL("*****")

 . S XPDABORT=2

 S DA=+Y,DR=".02///ZPC;.03///Provider SSN;.04///Provider SSN invalid"

 S SDIENS=+Y_","

 S DIE=DIC D ^DIE

 S SDARRY(1)="Provider SSN not numeric or all zeros."

 D WP^DIE(404.472,SDIENS,10,"","SDARRY")

 D BMES^XPDUTL("*****")

 D MES^XPDUTL("   The PCMM HL7 ERROR CODE (#404.472) File has been updated")

 D MES^XPDUTL("   with the '370M' Error Code.")

 D MES^XPDUTL("*****")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53P284   1170     printed  Apr 09, 2024@21:42:14                                                                                                                                                                                                    Page 2

SD53P284  ; ALB/MRY - ENVIRONMENT CHECK & POST INSTALL; 2/11/03 12:49pm

 +1       ;;5.3;Scheduling;**284**;AUG 13, 1993

 +2       ;;

EN        ;

 +1        SET XPDABORT=""

 +2        DO PROGCHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4       ;

 +5        QUIT 

 +6       ;

PROGCHK(XPDABORT) ;

 +1        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +2                DO BMES^XPDUTL("*****")

 +3                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +4                DO MES^XPDUTL("Installation aborted.")

 +5                DO MES^XPDUTL("*****")

 +6                SET XPDABORT=2

 +7                QUIT 

               End DoDot:1

 +8        QUIT 

 +9       ;

POST      ;

 +1       ; Add/edit PCMM HL7 ERROR CODE '370M'

 +2        NEW DIC,DIE,DA,DLAYGO,DR,X,Y,SDARRY,SDIENS

 +3        SET DIC="^SCPT(404.472,"

           SET DIC(0)="L"

           SET DLAYGO=404.472

 +4        SET X="370M"

 +5        DO ^DIC

           IF Y<0

               Begin DoDot:1

 +6                DO BMES^XPDUTL("*****")

 +7                DO MES^XPDUTL("Unsuccessful entry!  ** INSTALLATION ABORTED. **")

 +8                DO MES^XPDUTL("*****")

 +9                SET XPDABORT=2

               End DoDot:1

               QUIT 

 +10       SET DA=+Y

           SET DR=".02///ZPC;.03///Provider SSN;.04///Provider SSN invalid"

 +11       SET SDIENS=+Y_","

 +12       SET DIE=DIC

           DO ^DIE

 +13       SET SDARRY(1)="Provider SSN not numeric or all zeros."

 +14       DO WP^DIE(404.472,SDIENS,10,"","SDARRY")

 +15       DO BMES^XPDUTL("*****")

 +16       DO MES^XPDUTL("   The PCMM HL7 ERROR CODE (#404.472) File has been updated")

 +17       DO MES^XPDUTL("   with the '370M' Error Code.")

 +18       DO MES^XPDUTL("*****")

 +19       QUIT