- 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 ---[H[J[2J[HXIPMAIL 1104 printed Apr 23, 2025@18:16:57 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
