XIPMAIL.m

XIPMAIL ;OOIFO/SO- SEND E-MAIL OF COUNTY CODE & STATE FILE EXCEPTIONS;5:36 AM  4 Feb 2006

 ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59

 N XIPM

 S XIPM=""

 ;SCAN COUNTY CODE(#5.13) FILE FOR EXCEPTIONS

 D ^XIPMAILA

 ;SCAN STATE(#5) FILE FOR EXCEPTIONS

 D ^XIPMAILB

 ;

 N TMP,LN,FACILITY

 S TMP="",LN=0

 S FACILITY=$$NS^XUAF4($$KSP^XUPARAM("INST"))

 S TMP(LN)="Scanning COUNTY CODE(#5.13) & STATE(#5) files for:",LN=LN+1

 S TMP(LN)="         "_$P(FACILITY,U)_"(#"_$P(FACILITY,U,2)_")",LN=LN+1

 S TMP(LN)=" ",LN=LN+1

 N I

 S I=0

 F  S I=$O(XIPM("A",I)) Q:'I  S TMP(LN)=XIPM("A",I),LN=LN+1

 S TMP(LN)=" ",LN=LN+1

 S I=0

 F  S I=$O(XIPM("B",I)) Q:'I  S TMP(LN)=XIPM("B",I),LN=LN+1

 ;

 ; Mail back message

 N MSGSBJ,WHO

 S WHO(DUZ)=""

 S WHO("hecdqsupport@domain.ext")="" ;GAL group=VHA HEC DQ SUPPORT

 S WHO("ORMSBY.SKIP@DOMAIN.EXT")="" ;

 S WHO("G.XIP SERVER RESPONSE")=""

 I '$$GOTLOCAL^XMXAPIG("XIP SERVER RESPONSE") K WHO("G.XIP SERVER RESPONSE")

 S MSGSBJ="POSTAL CODE(#5.13) & STATE(#5) File Scan Results"

 ;

SEND D SENDMSG^XMXAPI(DUZ,MSGSBJ,"TMP",.WHO)

 D CLEAN^DILF

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XIPMAIL   1104     printed  Apr 09, 2024@21:19:44                                                                                                                                                                                                     Page 2

XIPMAIL   ;OOIFO/SO- SEND E-MAIL OF COUNTY CODE & STATE FILE EXCEPTIONS;5:36 AM  4 Feb 2006

 +1       ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59

 +2        NEW XIPM

 +3        SET XIPM=""

 +4       ;SCAN COUNTY CODE(#5.13) FILE FOR EXCEPTIONS

 +5        DO ^XIPMAILA

 +6       ;SCAN STATE(#5) FILE FOR EXCEPTIONS

 +7        DO ^XIPMAILB

 +8       ;

 +9        NEW TMP,LN,FACILITY

 +10       SET TMP=""

           SET LN=0

 +11       SET FACILITY=$$NS^XUAF4($$KSP^XUPARAM("INST"))

 +12       SET TMP(LN)="Scanning COUNTY CODE(#5.13) & STATE(#5) files for:"

           SET LN=LN+1

 +13       SET TMP(LN)="         "_$PIECE(FACILITY,U)_"(#"_$PIECE(FACILITY,U,2)_")"

           SET LN=LN+1

 +14       SET TMP(LN)=" "

           SET LN=LN+1

 +15       NEW I

 +16       SET I=0

 +17       FOR 

               SET I=$ORDER(XIPM("A",I))

               if 'I

                   QUIT 

               SET TMP(LN)=XIPM("A",I)

               SET LN=LN+1

 +18       SET TMP(LN)=" "

           SET LN=LN+1

 +19       SET I=0

 +20       FOR 

               SET I=$ORDER(XIPM("B",I))

               if 'I

                   QUIT 

               SET TMP(LN)=XIPM("B",I)

               SET LN=LN+1

 +21      ;

 +22      ; Mail back message

 +23       NEW MSGSBJ,WHO

 +24       SET WHO(DUZ)=""

 +25      ;GAL group=VHA HEC DQ SUPPORT

           SET WHO("hecdqsupport@domain.ext")=""

 +26      ;

           SET WHO("ORMSBY.SKIP@DOMAIN.EXT")=""

 +27       SET WHO("G.XIP SERVER RESPONSE")=""

 +28       IF '$$GOTLOCAL^XMXAPIG("XIP SERVER RESPONSE")

               KILL WHO("G.XIP SERVER RESPONSE")

 +29       SET MSGSBJ="POSTAL CODE(#5.13) & STATE(#5) File Scan Results"

 +30      ;

SEND       DO SENDMSG^XMXAPI(DUZ,MSGSBJ,"TMP",.WHO)

 +1        DO CLEAN^DILF

 +2        QUIT