source: FOIAVistA/trunk/r/PAID-PRS/PRSXP82.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.7 KB
Line 
1PRSXP82 ;WCIOFO/MGD-ADD CENTRAL,PAID TO #200 ;09/16/2003
2 ;;4.0;PAID;**82**;Sep 21, 1995
3 ;
4 Q
5 ;
6 ; This program will add the new entry CENTRAL,PAID to the NEW PERSON
7 ; (#200) file. This entry will be used by the VistA PAID/ETA
8 ; software to track changes in the employee's Labor Distribution(s)
9 ; through the processing of the various downloads received from
10 ; Central Paid in Austin, Texas. It will also add
11 ;
12 ; For more details see the patch description on FORUM.
13 ;
14START ; Main Driver
15 ;
16 N DIC,DIERR,DLAYGO,I,IENS,LCNT,MSG,PRSFDA,STA1,STA2,STA3,STANUM
17 N STATUS,TIME,TOI,U,UCIX,X,Y
18 S U="^",LCNT=1,(STA1,STA2,STA3)=""
19 K ^TMP($J)
20 D NOW^%DTC
21 S Y=%
22 D DD^%DT
23 S TIME=Y
24 W !!,"Post install routine PRSXP82 beginning at ",TIME_".",!
25 ;
26 ; Get Station Number
27 ;
28 S STANUM=$$KSP^XUPARAM("INST")_","
29 S STANUM=$$GET1^DIQ(4,STANUM,99)
30 S MSG="Station: "_STANUM_" - "
31 ;
32 ; Check for UCI,VOL
33 ;
34 X ^%ZOSF("UCI")
35 S UCIX=$G(Y)
36 I UCIX=""!(UCIX'?3U1","3U) S UCIX="???,???"
37 S MSG=MSG_UCIX_" - "
38 ;
39 S X=$O(^VA(200,"B","CENTRAL,PAID",0))
40 I X D ERR1
41 ;
42 I 'X D
43 . S X="CENTRAL,PAID",DIC(0)="L",DLAYGO=200,DIC="^VA(200,"
44 . D FILE^DICN
45 . I Y=-1 D ERR2
46 . I $P(Y,U,3) D
47 . . S ^TMP($J,"MGD",LCNT)=MSG_" CENTRAL,PAID added."
48 . . S LCNT=LCNT+1
49 . . W !,MSG_" CENTRAL,PAID added."
50 ;
51TOI ; Create entries for the Types Of Interfaces
52 K PRSFDA
53 W !
54 S LCNT=LCNT+1
55 S ^TMP($J,"MGD",LCNT)=""
56 S LCNT=LCNT+1
57 F I=1:1:4 D
58 . S TOI=$S(I=1:"INITIAL",I=2:"EDIT & UPDATE",I=3:"TRANSFER",4:"PAYRUN",1:"INITIAL")
59 . S IENS="?+"_I_",1,"
60 . S PRSFDA(454.02,IENS,.01)=I
61 . S PRSFDA(454.02,IENS,1)=TOI
62 . D UPDATE^DIE("","PRSFDA")
63 . I $D(DIERR)>0 D
64 . . S LCNT=LCNT+1
65 . . S ^TMP($J,"MGD",LCNT)=MSG_" unable to add "_TOI_" entry."
66 . . W !,MSG_" unable to add "_TOI_" entry.",!
67 . . S STA3=" ERROR #3"
68 . I $D(DIERR)<1 D
69 . . S LCNT=LCNT+1
70 . . S ^TMP($J,"MGD",LCNT)=MSG_" entry "_TOI_" added."
71 . . W !,MSG_" entry "_TOI_" added."
72 ;
73XMT ; Send status via mail message
74 ;
75 I $D(^TMP($J,"MGD")) D
76 . S STATUS=STA1_STA2_STA3
77 . I STATUS'["ERROR" S STATUS="NO ERRORS"
78 . N DIFROM,XMDUZ,XMSUB,XMTEXT,XMY
79 . S XMDUZ=.5
80 . S XMSUB=MSG_" - "_STATUS_"."
81 . S XMTEXT="^TMP($J,""MGD"","
82 . S XMY("DILL.MATT@FORUM.VA.GOV")="",XMY(DUZ)=""
83 . S XMY("MCCLARAN.PAM@FORUM.VA.GOV")=""
84 . D ^XMD
85 ;
86 K ^TMP($J),Y,%
87 W !!,"Post install routine PRSXP82 completed."
88 W !,"Status: ",STATUS_"."
89 Q
90 ;
91ERR1 ; Error message if CENTRAL,PAID already exists
92 S ^TMP($J,"MGD",LCNT)=MSG_" CENTRAL,PAID entry already exists."
93 S LCNT=LCNT+1
94 W !,MSG_" CENTRAL,PAID entry already exists."
95 S STA1="ERROR #1 "
96 Q
97 ;
98ERR2 ; Error message if unable to add CENTRAL,PAID entry
99 S ^TMP($J,"MGD",LCNT)=MSG_" unable to add CENTRAL,PAID entry."
100 S LCNT=LCNT+1
101 W !,MSG_" unable to add CENTRAL,PAID entry."
102 S STA2=" ERROR #2 "
103 Q
104 ;
Note: See TracBrowser for help on using the repository browser.