source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53568A.m@ 1608

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

initial load of WorldVistAEHR
File size: 5.1 KB
RevLine 
[613]1DG53568A ;ALB/RMM - POST-INSTALL ROUTINE FOR SD ENCAP ; 03/24/2004
2 ;;5.3;Registration;**568**;AUG 13, 1993
3 ;
4EN ; Entry point for the DG*5.3*568 Post-Install
5 ;
6 ; This routine will update the WORD-PROCESSING #3.5 field, in the
7 ; OPTION (#19) File for the following options (if present):
8 ; [ZDGYP SD GLOBAL ESTIMATOR] Global Estimator for Scheduling
9 ; [DGYP SD GLOBAL ESTIMATOR] Global Estimator for Scheduling
10 ;
11 ; Get IENs from OPTION File
12 N DGYP,ZDGYP,DGMSG,MCNT,DGNEW,DGERR,DGOUT
13 S DGYP=+$O(^DIC(19,"B","DGYP SD GLOBAL ESTIMATOR",""))
14 S ZDGYP=+$O(^DIC(19,"B","ZDGYP SD GLOBAL ESTIMATOR",""))
15 ;
16 S MCNT=1,DGMSG(MCNT)="Updating the description for option: Global Estimator for Scheduling"
17 S:DGYP>0 MCNT=MCNT+1,DGMSG(MCNT)="IEN = "_DGYP
18 S:ZDGYP>0 MCNT=MCNT+1,DGMSG(MCNT)="IEN = "_ZDGYP
19 D MES^XPDUTL(.DGMSG)
20 ;
21 D NEWTXT
22 D:DGYP>0 TXTUPDT(DGYP)
23 D:ZDGYP>0 TXTUPDT(ZDGYP)
24 ;
25 D BMES^XPDUTL("Post-Install Complete, the option text has been updated.")
26 Q
27NEWTXT ;
28 ; Set up description array.
29 S DGNEW("WP",1)="In previous versions of PIMS, a patient's outpatient information has"
30 S DGNEW("WP",2)="been stored in various files in the VistA database. With the"
31 S DGNEW("WP",3)="requirement to checkout all outpatient encounters, it was necessary"
32 S DGNEW("WP",4)="to consolidate much of the common outpatient information into one"
33 S DGNEW("WP",5)="outpatient encounter file."
34 S DGNEW("WP",6)=" "
35 S DGNEW("WP",7)="In PIMS v5.3, the data will reside in the new OUTPATIENT"
36 S DGNEW("WP",8)="ENCOUNTER(#409.68) file as well as in the old data structures."
37 S DGNEW("WP",9)="This file will hold encounter data for all checked out encounters."
38 S DGNEW("WP",10)="This will include information from the following:"
39 S DGNEW("WP",11)=" "
40 S DGNEW("WP",12)=" o appointments: SDAPI - Appointment API"
41 S DGNEW("WP",13)=" o add/edits : ^SDV()"
42 S DGNEW("WP",14)=" o dispositions: ^DPT(patient,""DIS"",date/time)"
43 S DGNEW("WP",15)=" "
44 S DGNEW("WP",16)="The MUMPS global for this file is ^SCE."
45 S DGNEW("WP",17)=" "
46 S DGNEW("WP",18)=" "
47 S DGNEW("WP",19)="Also, as part of the checkout process, questions regarding"
48 S DGNEW("WP",20)="whether the encounter was related to a service-connected disability,"
49 S DGNEW("WP",21)="Agent Orange, ionization and environmental contaminants from the"
50 S DGNEW("WP",22)="Persian Gulf war, will be asked when appropriate."
51 S DGNEW("WP",23)=" "
52 S DGNEW("WP",24)="This data will be stored in the new OUTPATIENT CLASSIFICATION"
53 S DGNEW("WP",25)="(#409.42) file in the ^SDD(409.42) global node."
54 S DGNEW("WP",26)=" "
55 S DGNEW("WP",27)=" "
56 S DGNEW("WP",28)="The purpose of this utility is the following:"
57 S DGNEW("WP",29)=" 1. estimate a one year rate of growth for"
58 S DGNEW("WP",30)=" ^SCE using as a base the encounter data"
59 S DGNEW("WP",31)=" for the previous 365 days"
60 S DGNEW("WP",32)=" "
61 S DGNEW("WP",33)=" 2. estimate a one year rate of growth for"
62 S DGNEW("WP",34)=" ^SDD(409.42) using as a base the encounter data"
63 S DGNEW("WP",35)=" for the previous 365 and the patient demographic"
64 S DGNEW("WP",36)=" information"
65 S DGNEW("WP",37)=" "
66 S DGNEW("WP",38)="Using these estimates, you can make a better determination"
67 S DGNEW("WP",39)="as to where to place this new ^SCE global and how large the"
68 S DGNEW("WP",40)="existing ^SDD global will grow."
69 S DGNEW("WP",41)=" "
70 S DGNEW("WP",42)="This utility will not affect the current v5.2 functionality in any"
71 S DGNEW("WP",43)="way. However, it is recommended that it be queued to run at non-peak"
72 S DGNEW("WP",44)="hours. After the estimations are calculated, the results will be"
73 S DGNEW("WP",45)="reported to the user via a MailMan message."
74 S DGNEW("WP",46)=" "
75 S DGNEW("WP",47)="Finally, in v5.3, the site will have the ability to capture provider"
76 S DGNEW("WP",48)="and diagnostic data as part of the checkout process. Capturing this"
77 S DGNEW("WP",49)="data will be site selectable. It is estimated that each provider and"
78 S DGNEW("WP",50)="each diagnosis captured for an encounter will use .05 1K blocks."
79 S DGNEW("WP",51)=" "
80 S DGNEW("WP",52)="NOTE: If the site does choose to capture provider data then nurses,"
81 S DGNEW("WP",53)="social workers and other providers of care will need to have entries"
82 S DGNEW("WP",54)="in the NEW PERSON file and be assigned the PROVIDER security key."
83 S DGNEW("WP",55)="Assigning this key will allow selection of these providers during the"
84 S DGNEW("WP",56)="checkout process."
85 S DGNEW("WP",57)=" "
86 S DGNEW("WP",58)=" "
87 S DGNEW("WP",59)="The option should be executed by the IRM staff and is locked with the"
88 S DGNEW("WP",60)="DGYP IRM security key."
89 Q
90TXTUPDT(OPTIEN) ;
91 ; Update the Word Processing Field
92 D WP^DIE(19,OPTIEN_",",3.5,"K","DGNEW(""WP"")","DGERR")
93 ;
94 ; Check for and Report any Errors
95 I $D(DGERR) D
96 . D BMES^XPDUTL("NOTE: An error occurred when updating the OPTION text.")
97 . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")
98 . D MES^XPDUTL(.DGOUT)
99 . D BMES^XPDUTL("Please contact the VistA Help Desk.")
100 ;
101 ; Cleanup after each OPTION is updated
102 K DGNEW,DGERR,DGOUT,EASIEN,DGMSG
103 ;
104 Q
Note: See TracBrowser for help on using the repository browser.