| [613] | 1 | PPPDIC ;;OIFIO BAY PINES/ELR - UPDATE DESCRIPTION OF FILE 1020.2 - 8/11/2003
|
|---|
| 2 | ;;1.0;PHARMACY PRESCRIPTION PRACTICE;**38**;APR 7,1995
|
|---|
| 3 | Q
|
|---|
| 4 | START ;
|
|---|
| 5 | I '$D(^DIC(1020.2)) D ZTQUE Q
|
|---|
| 6 | K ^XTMP("PPPDIC",$J)
|
|---|
| 7 | S ^XTMP("PPPDIC",$J,1)=""
|
|---|
| 8 | S ^XTMP("PPPDIC",$J,2)="This file contains SSN, last date of visit at each facility, and other"
|
|---|
| 9 | S ^XTMP("PPPDIC",$J,3)="data for patients who have visited other VA facilities. This file is"
|
|---|
| 10 | S ^XTMP("PPPDIC",$J,4)="created everytime PPP Build FFX is run. It is updated everytime"
|
|---|
| 11 | S ^XTMP("PPPDIC",$J,5)="PPP Batch is run. This file contains approximately 10% of the VA"
|
|---|
| 12 | S ^XTMP("PPPDIC",$J,6)="patient population. This file excludes local facility data."
|
|---|
| 13 | S ^XTMP("PPPDIC",$J,7)=""
|
|---|
| 14 | S ^XTMP("PPPDIC",$J,8)="Per VHA Directive 10-93-142, this file definition should not be modified."
|
|---|
| 15 | S PPPDA="1020.2"
|
|---|
| 16 | D FDA
|
|---|
| 17 | D SET
|
|---|
| 18 | K ^XTMP("PPPDIC",$J)
|
|---|
| 19 | K PPPDA,PPPIENS
|
|---|
| 20 | Q
|
|---|
| 21 | FDA ;
|
|---|
| 22 | S PPPIENS=$$IENS^DILF(.PPPDA)
|
|---|
| 23 | D FDA^DILF(1,PPPIENS,4,"","^XTMP(""PPPDIC"",$J)","FDA(1020.2)")
|
|---|
| 24 | Q
|
|---|
| 25 | SET D UPDATE^DIE("","FDA(1020.2)","PPPIENS")
|
|---|
| 26 | I $G(^TMP("DIERR",$J,1)) D ZTQUE
|
|---|
| 27 | Q
|
|---|
| 28 | BULL ; Bulletin for failed update
|
|---|
| 29 | N PPPLN,PPPMSG S PPPLN=0
|
|---|
| 30 | K ^TMP("PPPDIC",$J)
|
|---|
| 31 | S XMSUB="DICITONARY MAINTENANCE (FILE 1020.2) " K XMY
|
|---|
| 32 | S XMTEXT="^TMP(""PPPDIC"",$J,"
|
|---|
| 33 | S XMY($S(DUZ:DUZ,1:.5))=""
|
|---|
| 34 | S XMDUZ=.5 D NOW^%DTC
|
|---|
| 35 | S PPPMSG=" " D SETLN
|
|---|
| 36 | S PPPMSG="The update of file PPP FOREIGN FACILITY XREF (1020.2) description failed." D SETLN
|
|---|
| 37 | S PPPMSG=" " D SETLN
|
|---|
| 38 | D ^XMD
|
|---|
| 39 | K ^TMP("PPPDIC",$J),XMY,XMTEXT,XMSUB
|
|---|
| 40 | Q
|
|---|
| 41 | SETLN ; Setting TMP global for bulletin
|
|---|
| 42 | S PPPLN=PPPLN+1
|
|---|
| 43 | S ^TMP("PPPDIC",$J,PPPLN)=PPPMSG
|
|---|
| 44 | Q
|
|---|
| 45 | ZTQUE ;
|
|---|
| 46 | N ZTIO,ZTDTH,ZTDESC,ZTRTN,ZTSAVE
|
|---|
| 47 | S ZTIO="",ZTDTH=$H,$P(ZTDTH,",",2)=$P(ZTDTH,",",2)+60,ZTDESC="PPPDIC ERROR"
|
|---|
| 48 | S ZTRTN="BULL^PPPDIC"
|
|---|
| 49 | D ^%ZTLOAD
|
|---|
| 50 | Q
|
|---|
