source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPDIC.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1PPPDIC ;;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
4START ;
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
21FDA ;
22 S PPPIENS=$$IENS^DILF(.PPPDA)
23 D FDA^DILF(1,PPPIENS,4,"","^XTMP(""PPPDIC"",$J)","FDA(1020.2)")
24 Q
25SET D UPDATE^DIE("","FDA(1020.2)","PPPIENS")
26 I $G(^TMP("DIERR",$J,1)) D ZTQUE
27 Q
28BULL ; 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
41SETLN ; Setting TMP global for bulletin
42 S PPPLN=PPPLN+1
43 S ^TMP("PPPDIC",$J,PPPLN)=PPPMSG
44 Q
45ZTQUE ;
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
Note: See TracBrowser for help on using the repository browser.