Routine: DG53568A

DG53568A ;ALB/RMM - POST-INSTALL ROUTINE FOR SD ENCAP ; 03/24/2004

 ;;5.3;Registration;**568,1015**;AUG 13, 1993;Build 21

EN ; Entry point for the DG*5.3*568 Post-Install

 ; This routine will update the WORD-PROCESSING #3.5 field, in the

 ; OPTION (#19) File for the following options (if present):

 ;  [ZDGYP SD GLOBAL ESTIMATOR] Global Estimator for Scheduling

 ;  [DGYP SD GLOBAL ESTIMATOR]  Global Estimator for Scheduling

 ; Get IENs from OPTION File

 N DGYP,ZDGYP,DGMSG,MCNT,DGNEW,DGERR,DGOUT

 S DGYP=+$O(^DIC(19,"B","DGYP SD GLOBAL ESTIMATOR",""))

 S ZDGYP=+$O(^DIC(19,"B","ZDGYP SD GLOBAL ESTIMATOR",""))

 S MCNT=1,DGMSG(MCNT)="Updating the description for option: Global Estimator for Scheduling"

 S:DGYP>0 MCNT=MCNT+1,DGMSG(MCNT)="IEN = "_DGYP

 S:ZDGYP>0 MCNT=MCNT+1,DGMSG(MCNT)="IEN = "_ZDGYP

 D MES^XPDUTL(.DGMSG)

 D NEWTXT

 D:DGYP>0 TXTUPDT(DGYP)

 D:ZDGYP>0 TXTUPDT(ZDGYP)

 D BMES^XPDUTL("Post-Install Complete, the option text has been updated.")

NEWTXT ;

 ; Set up description array.

 S DGNEW("WP",1)="In previous versions of PIMS, a patient's outpatient information has"

 S DGNEW("WP",2)="been stored in various files in the VistA database. With the"

 S DGNEW("WP",3)="requirement to checkout all outpatient encounters, it was necessary"

 S DGNEW("WP",4)="to consolidate much of the common outpatient information into one"

 S DGNEW("WP",5)="outpatient encounter file."

 S DGNEW("WP",6)=" "

 S DGNEW("WP",7)="In PIMS v5.3, the data will reside in the new OUTPATIENT"

 S DGNEW("WP",8)="ENCOUNTER(#409.68) file as well as in the old data structures."

 S DGNEW("WP",9)="This file will hold encounter data for all checked out encounters."

 S DGNEW("WP",10)="This will include information from the following:"

 S DGNEW("WP",11)=" "

 S DGNEW("WP",12)="         o appointments:  SDAPI - Appointment API"

 S DGNEW("WP",13)="         o add/edits   :  ^SDV()"

 S DGNEW("WP",14)="         o dispositions:  ^DPT(patient,""DIS"",date/time)"

 S DGNEW("WP",15)=" "

 S DGNEW("WP",16)="The MUMPS global for this file is ^SCE."

 S DGNEW("WP",17)=" "

 S DGNEW("WP",18)=" "

 S DGNEW("WP",19)="Also, as part of the checkout process, questions regarding"

 S DGNEW("WP",20)="whether the encounter was related to a service-connected disability,"

 S DGNEW("WP",21)="Agent Orange, ionization and environmental contaminants from the"

 S DGNEW("WP",22)="Persian Gulf war, will be asked when appropriate."

 S DGNEW("WP",23)=" "

 S DGNEW("WP",24)="This data will be stored in the new OUTPATIENT CLASSIFICATION"

 S DGNEW("WP",25)="(#409.42) file in the ^SDD(409.42) global node."

 S DGNEW("WP",26)=" "

 S DGNEW("WP",27)=" "

 S DGNEW("WP",28)="The purpose of this utility is the following:"

 S DGNEW("WP",29)="             1. estimate a one year rate of growth for"

 S DGNEW("WP",30)="                ^SCE using as a base the encounter data"

 S DGNEW("WP",31)="                for the previous 365 days"

 S DGNEW("WP",32)=" "

 S DGNEW("WP",33)="             2. estimate a one year rate of growth for"

 S DGNEW("WP",34)="                ^SDD(409.42) using as a base the encounter data"

 S DGNEW("WP",35)="                for the previous 365 and the patient demographic"

 S DGNEW("WP",36)="                information"

 S DGNEW("WP",37)=" "

 S DGNEW("WP",38)="Using these estimates, you can make a better determination"

 S DGNEW("WP",39)="as to where to place this new ^SCE global and how large the"

 S DGNEW("WP",40)="existing ^SDD global will grow."

 S DGNEW("WP",41)=" "

 S DGNEW("WP",42)="This utility will not affect the current v5.2 functionality in any"

 S DGNEW("WP",43)="way. However, it is recommended that it be queued to run at non-peak"

 S DGNEW("WP",44)="hours.  After the estimations are calculated, the results will be"

 S DGNEW("WP",45)="reported to the user via a MailMan message."

 S DGNEW("WP",46)=" "

 S DGNEW("WP",47)="Finally, in v5.3, the site will have the ability to capture provider"

 S DGNEW("WP",48)="and diagnostic data as part of the checkout process. Capturing this"

 S DGNEW("WP",49)="data will be site selectable. It is estimated that each provider and"

 S DGNEW("WP",50)="each diagnosis captured for an encounter will use .05 1K blocks."

 S DGNEW("WP",51)=" "

 S DGNEW("WP",52)="NOTE: If the site does choose to capture provider data then nurses,"

 S DGNEW("WP",53)="social workers and other providers of care will need to have entries"

 S DGNEW("WP",54)="in the NEW PERSON file and be assigned the PROVIDER security key."

 S DGNEW("WP",55)="Assigning this key will allow selection of these providers during the"

 S DGNEW("WP",56)="checkout process."

 S DGNEW("WP",57)=" "

 S DGNEW("WP",58)=" "

 S DGNEW("WP",59)="The option should be executed by the IRM staff and is locked with the"

 S DGNEW("WP",60)="DGYP IRM security key."

TXTUPDT(OPTIEN) ;

 ; Update the Word Processing Field

 D WP^DIE(19,OPTIEN_",",3.5,"K","DGNEW(""WP"")","DGERR")

 ; Check for and Report any Errors

 I $D(DGERR) D

 . D BMES^XPDUTL("NOTE: An error occurred when updating the OPTION text.")

 . D MSG^DIALOG("AS",.DGOUT,"","","DGERR")

 . D MES^XPDUTL(.DGOUT)

 . D BMES^XPDUTL("Please contact the VistA Help Desk.")

 ; Cleanup after each OPTION is updated

 K DGNEW,DGERR,DGOUT,EASIEN,DGMSG

DG53568A  ;ALB/RMM - POST-INSTALL ROUTINE FOR SD ENCAP ; 03/24/2004

 +1       ;;5.3;Registration;**568,1015**;AUG 13, 1993;Build 21

 +2       ;

EN        ; Entry point for the DG*5.3*568 Post-Install

 +1       ;

 +2       ; This routine will update the WORD-PROCESSING #3.5 field, in the

 +3       ; OPTION (#19) File for the following options (if present):

 +4       ;  [ZDGYP SD GLOBAL ESTIMATOR] Global Estimator for Scheduling

 +5       ;  [DGYP SD GLOBAL ESTIMATOR]  Global Estimator for Scheduling

 +6       ;

 +7       ; Get IENs from OPTION File

 +8        NEW DGYP,ZDGYP,DGMSG,MCNT,DGNEW,DGERR,DGOUT

 +9        SET DGYP=+$ORDER(^DIC(19,"B","DGYP SD GLOBAL ESTIMATOR",""))

 +10       SET ZDGYP=+$ORDER(^DIC(19,"B","ZDGYP SD GLOBAL ESTIMATOR",""))

 +11      ;

 +12       SET MCNT=1

           SET DGMSG(MCNT)="Updating the description for option: Global Estimator for Scheduling"

 +13       IF DGYP>0

               SET MCNT=MCNT+1

               SET DGMSG(MCNT)="IEN = "_DGYP

 +14       IF ZDGYP>0

               SET MCNT=MCNT+1

               SET DGMSG(MCNT)="IEN = "_ZDGYP

 +15       DO MES^XPDUTL(.DGMSG)

 +16      ;

 +17       DO NEWTXT

 +18       IF DGYP>0

               DO TXTUPDT(DGYP)

 +19       IF ZDGYP>0

               DO TXTUPDT(ZDGYP)

 +20      ;

 +21       DO BMES^XPDUTL("Post-Install Complete, the option text has been updated.")

 +22       QUIT

NEWTXT    ;

 +1       ; Set up description array.

 +2        SET DGNEW("WP",1)="In previous versions of PIMS, a patient's outpatient information has"

 +3        SET DGNEW("WP",2)="been stored in various files in the VistA database. With the"

 +4        SET DGNEW("WP",3)="requirement to checkout all outpatient encounters, it was necessary"

 +5        SET DGNEW("WP",4)="to consolidate much of the common outpatient information into one"

 +6        SET DGNEW("WP",5)="outpatient encounter file."

 +7        SET DGNEW("WP",6)=" "

 +8        SET DGNEW("WP",7)="In PIMS v5.3, the data will reside in the new OUTPATIENT"

 +9        SET DGNEW("WP",8)="ENCOUNTER(#409.68) file as well as in the old data structures."

 +10       SET DGNEW("WP",9)="This file will hold encounter data for all checked out encounters."

 +11       SET DGNEW("WP",10)="This will include information from the following:"

 +12       SET DGNEW("WP",11)=" "

 +13       SET DGNEW("WP",12)="         o appointments:  SDAPI - Appointment API"

 +14       SET DGNEW("WP",13)="         o add/edits   :  ^SDV()"

 +15       SET DGNEW("WP",14)="         o dispositions:  ^DPT(patient,""DIS"",date/time)"

 +16       SET DGNEW("WP",15)=" "

 +17       SET DGNEW("WP",16)="The MUMPS global for this file is ^SCE."

 +18       SET DGNEW("WP",17)=" "

 +19       SET DGNEW("WP",18)=" "

 +20       SET DGNEW("WP",19)="Also, as part of the checkout process, questions regarding"

 +21       SET DGNEW("WP",20)="whether the encounter was related to a service-connected disability,"

 +22       SET DGNEW("WP",21)="Agent Orange, ionization and environmental contaminants from the"

 +23       SET DGNEW("WP",22)="Persian Gulf war, will be asked when appropriate."

 +24       SET DGNEW("WP",23)=" "

 +25       SET DGNEW("WP",24)="This data will be stored in the new OUTPATIENT CLASSIFICATION"

 +26       SET DGNEW("WP",25)="(#409.42) file in the ^SDD(409.42) global node."

 +27       SET DGNEW("WP",26)=" "

 +28       SET DGNEW("WP",27)=" "

 +29       SET DGNEW("WP",28)="The purpose of this utility is the following:"

 +30       SET DGNEW("WP",29)="             1. estimate a one year rate of growth for"

 +31       SET DGNEW("WP",30)="                ^SCE using as a base the encounter data"

 +32       SET DGNEW("WP",31)="                for the previous 365 days"

 +33       SET DGNEW("WP",32)=" "

 +34       SET DGNEW("WP",33)="             2. estimate a one year rate of growth for"

 +35       SET DGNEW("WP",34)="                ^SDD(409.42) using as a base the encounter data"

 +36       SET DGNEW("WP",35)="                for the previous 365 and the patient demographic"

 +37       SET DGNEW("WP",36)="                information"

 +38       SET DGNEW("WP",37)=" "

 +39       SET DGNEW("WP",38)="Using these estimates, you can make a better determination"

 +40       SET DGNEW("WP",39)="as to where to place this new ^SCE global and how large the"

 +41       SET DGNEW("WP",40)="existing ^SDD global will grow."

 +42       SET DGNEW("WP",41)=" "

 +43       SET DGNEW("WP",42)="This utility will not affect the current v5.2 functionality in any"

 +44       SET DGNEW("WP",43)="way. However, it is recommended that it be queued to run at non-peak"

 +45       SET DGNEW("WP",44)="hours.  After the estimations are calculated, the results will be"

 +46       SET DGNEW("WP",45)="reported to the user via a MailMan message."

 +47       SET DGNEW("WP",46)=" "

 +48       SET DGNEW("WP",47)="Finally, in v5.3, the site will have the ability to capture provider"

 +49       SET DGNEW("WP",48)="and diagnostic data as part of the checkout process. Capturing this"

 +50       SET DGNEW("WP",49)="data will be site selectable. It is estimated that each provider and"

 +51       SET DGNEW("WP",50)="each diagnosis captured for an encounter will use .05 1K blocks."

 +52       SET DGNEW("WP",51)=" "

 +53       SET DGNEW("WP",52)="NOTE: If the site does choose to capture provider data then nurses,"

 +54       SET DGNEW("WP",53)="social workers and other providers of care will need to have entries"

 +55       SET DGNEW("WP",54)="in the NEW PERSON file and be assigned the PROVIDER security key."

 +56       SET DGNEW("WP",55)="Assigning this key will allow selection of these providers during the"

 +57       SET DGNEW("WP",56)="checkout process."

 +58       SET DGNEW("WP",57)=" "

 +59       SET DGNEW("WP",58)=" "

 +60       SET DGNEW("WP",59)="The option should be executed by the IRM staff and is locked with the"

 +61       SET DGNEW("WP",60)="DGYP IRM security key."

 +62       QUIT

TXTUPDT(OPTIEN) ;

 +1       ; Update the Word Processing Field

 +2        DO WP^DIE(19,OPTIEN_",",3.5,"K","DGNEW(""WP"")","DGERR")

 +3       ;

 +4       ; Check for and Report any Errors

 +5        IF $DATA(DGERR)

               Begin DoDot:1

 +6                DO BMES^XPDUTL("NOTE: An error occurred when updating the OPTION text.")

 +7                DO MSG^DIALOG("AS",.DGOUT,"","","DGERR")

 +8                DO MES^XPDUTL(.DGOUT)

 +9                DO BMES^XPDUTL("Please contact the VistA Help Desk.")

               End DoDot:1

 +10      ;

 +11      ; Cleanup after each OPTION is updated

 +12       KILL DGNEW,DGERR,DGOUT,EASIEN,DGMSG

 +13      ;

 +14       QUIT

DG53568A.m