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 ---[H[J[2J[HSD53P284 1170 printed Nov 22, 2024@17:56:07 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
