| 1 | PPPBFFX2 ;BHM/DB-Build off of CD_ROM continued ;3JUL97
|
|---|
| 2 | ;;1.0;PHARMACY PRESCRIPTION PRACTICE;**11,17,26**;APR 7, 1995
|
|---|
| 3 | D NOW^%DTC,YX^%DTC
|
|---|
| 4 | D TXT S ^TMP($J,"PPPERR",ERRTXT)=" "
|
|---|
| 5 | D TXT S ^TMP($J,"PPPERR",ERRTXT)=" RESULTS FROM BUILD PROCESS"
|
|---|
| 6 | D TXT S ^TMP($J,"PPPERR",ERRTXT)=" Build Started at : "_STRTTM
|
|---|
| 7 | D TXT S ^TMP($J,"PPPERR",ERRTXT)=" Build Finished at : "_Y
|
|---|
| 8 | D TXT S ^TMP($J,"PPPERR",ERRTXT)=" Last SSN processed : "_PPPEND
|
|---|
| 9 | D TXT S ^TMP($J,"PPPERR",ERRTXT)=" Processed "_$S($G(SSNCNT)'>0:0,1:$G(SSNCNT))_" out of "_$S($G(CNTR1)'>0:0,1:$G(CNTR1))_" SSNs"
|
|---|
| 10 | I $D(FACADD) D TXT S ^TMP($J,"PPPERR",ERRTXT)=" These facilities were not located in the PPP DOMAIN FILE." S X="" F S X=$O(FACADD(X)) Q:X="" D TXT S ^TMP($J,"PPPERR",ERRTXT)=" SITE: "_X_" Domain: "_$S(FACADD(X)="":"Unknown",1:FACADD(X))
|
|---|
| 11 | ;
|
|---|
| 12 | I $D(FACADD) D TXT S ^TMP($J,"PPPERR",ERRTXT)=" " D TXT S ^TMP($J,"PPPERR",ERRTXT)=" Please add the above entries to the PPP DOMAIN File (#1020.8)."
|
|---|
| 13 | SNDMAIL ;Send mail message
|
|---|
| 14 | S XMSUB="PHARMACY PRESCRIPTION PRACTICES",XMTEXT="^TMP("_$J_","_"""PPPERR"""_","
|
|---|
| 15 | S XMDUZ=.5,XMY(PPPRCVD)=""
|
|---|
| 16 | D ^XMD K XMDUZ
|
|---|
| 17 | Q D Q^PPPBFFX K ^TMP($J),^TMP("PPP",$J) S ZTREQ="@" Q
|
|---|
| 18 | TXT S ERRTXT=$G(ERRTXT)+1 Q
|
|---|
