SDES890P ;ALB/BWF - SD*5.3*890 Post Init Routine ; SEP 12, 2024
;;5.3;SCHEDULING;**890**;AUG 13, 1993;Build 5
;;Per VHA Directive 6402, this routine should not be modified
;
Q
EN ;
D SVCREPORT
Q
;
SVCREPORT ;
N FLDINFO,FERR,NATIONAL,SECURITY
K ^XTMP("SDES890P")
S ^XTMP("SDES890P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*890 Post Install Service field report"
D MES^XPDUTL("")
D MES^XPDUTL(" SD*5.3*890 Post-Install will determine if the HOSPITAL LOCATION file (#44)")
D MES^XPDUTL(" SERVICE field (#9) is different from the nationally released data dictionary.")
D MES^XPDUTL(" If there are differences, this report will be sent to your Mailman Mailbox.")
D MES^XPDUTL("")
S SECURITY("DD")="@"
D FILESEC^DDMOD(44,.SECURITY)
S NATIONAL="M:MEDICINE;S:SURGERY;P:PSYCHIATRY;R:REHAB MEDICINE;N:NEUROLOGY;0:NONE;"
D FIELD^DID(44,9,"","SET OF CODES","FLDINFO","FERR")
Q:NATIONAL=$G(FLDINFO("SET OF CODES"))
I $D(FERR) Q
S ^XTMP("SDES890P",1)="NATIONAL: "
S ^XTMP("SDES890P",2)=NATIONAL
S ^XTMP("SDES890P",3)=""
S ^XTMP("SDES890P",4)=""
S ^XTMP("SDES890P",5)="LOCAL: "
S ^XTMP("SDES890P",6)=$G(FLDINFO("SET OF CODES"))
D MAIL
Q
MAIL ;
; Get Station Number
;
N STANUM,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM
S STANUM=$$KSP^XUPARAM("INST")_","
S STANUM=$$GET1^DIQ(4,STANUM,99)
S MESS1="Station: "_STANUM_" - "
;
; Send MailMan message
S XMDUZ=DUZ
S XMTEXT="^XTMP(""SDES890P"","
S XMSUB=MESS1_"SD*5.3*890 post install HOSPITAL LOCATION (#44), SERVICES field (#9) data dictionary report"
S XMDUZ=.5,XMY(DUZ)="",XMY(XMDUZ)=""
S XMY("DUNNAM.DAVID W@DOMAIN.EXT")=""
S XMY("REESE,DARRYL M@DOMAIN.EXT")=""
S XMY("FISHER.BRADLEY@DOMAIN.EXT")=""
S XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
S XMY("BARBER.LORI@DOMAIN.EXT")=""
D ^XMD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES890P 1809 printed Dec 13, 2024@02:55:32 Page 2
SDES890P ;ALB/BWF - SD*5.3*890 Post Init Routine ; SEP 12, 2024
+1 ;;5.3;SCHEDULING;**890**;AUG 13, 1993;Build 5
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 QUIT
EN ;
+1 DO SVCREPORT
+2 QUIT
+3 ;
SVCREPORT ;
+1 NEW FLDINFO,FERR,NATIONAL,SECURITY
+2 KILL ^XTMP("SDES890P")
+3 SET ^XTMP("SDES890P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*890 Post Install Service field report"
+4 DO MES^XPDUTL("")
+5 DO MES^XPDUTL(" SD*5.3*890 Post-Install will determine if the HOSPITAL LOCATION file (#44)")
+6 DO MES^XPDUTL(" SERVICE field (#9) is different from the nationally released data dictionary.")
+7 DO MES^XPDUTL(" If there are differences, this report will be sent to your Mailman Mailbox.")
+8 DO MES^XPDUTL("")
+9 SET SECURITY("DD")="@"
+10 DO FILESEC^DDMOD(44,.SECURITY)
+11 SET NATIONAL="M:MEDICINE;S:SURGERY;P:PSYCHIATRY;R:REHAB MEDICINE;N:NEUROLOGY;0:NONE;"
+12 DO FIELD^DID(44,9,"","SET OF CODES","FLDINFO","FERR")
+13 if NATIONAL=$GET(FLDINFO("SET OF CODES"))
QUIT
+14 IF $DATA(FERR)
QUIT
+15 SET ^XTMP("SDES890P",1)="NATIONAL: "
+16 SET ^XTMP("SDES890P",2)=NATIONAL
+17 SET ^XTMP("SDES890P",3)=""
+18 SET ^XTMP("SDES890P",4)=""
+19 SET ^XTMP("SDES890P",5)="LOCAL: "
+20 SET ^XTMP("SDES890P",6)=$GET(FLDINFO("SET OF CODES"))
+21 DO MAIL
+22 QUIT
MAIL ;
+1 ; Get Station Number
+2 ;
+3 NEW STANUM,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM
+4 SET STANUM=$$KSP^XUPARAM("INST")_","
+5 SET STANUM=$$GET1^DIQ(4,STANUM,99)
+6 SET MESS1="Station: "_STANUM_" - "
+7 ;
+8 ; Send MailMan message
+9 SET XMDUZ=DUZ
+10 SET XMTEXT="^XTMP(""SDES890P"","
+11 SET XMSUB=MESS1_"SD*5.3*890 post install HOSPITAL LOCATION (#44), SERVICES field (#9) data dictionary report"
+12 SET XMDUZ=.5
SET XMY(DUZ)=""
SET XMY(XMDUZ)=""
+13 SET XMY("DUNNAM.DAVID W@DOMAIN.EXT")=""
+14 SET XMY("REESE,DARRYL M@DOMAIN.EXT")=""
+15 SET XMY("FISHER.BRADLEY@DOMAIN.EXT")=""
+16 SET XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
+17 SET XMY("BARBER.LORI@DOMAIN.EXT")=""
+18 DO ^XMD
+19 QUIT
