Routine: BDGPOST

BDGPOST ; IHS/ANMC/LJF - PIMS POSTINIT ;  [ 04/09/2004  11:11 AM ]

 ;;5.3;PIMS;;APR 26, 2002

 ; post init code for ADT data

 NEW X

 S X(1)="IHS Postinit: Warning! These may take a long time to run."

 S X(2)="If this process should error out, it can be restarted AFTER"

 S X(3)="the cause of the error has been found and corrected.  At that"

 S X(4)="point, go into KIDS and select 'Installation...',then select"

 S X(5)="'Restart Install of Package(s)'."

 D MES^XPDUTL(.X)

 ;IHS/ITSC/WAR 8/20/03 - This next call was commented out because of too

 ;       many past entries. The entries are now created by the new rec.

 ; fire new cross-references

 ;D AIHSDAM^BSDPOST       ;set new AIHSDAM xref

 ; copy data to new parameter and table files

1 D PARAM^BSDPOST1,LOG(1)         ;copy scheduling parameters to new file

2 D CLINIC^BSDPOST,LOG(2)         ;copy clinic parameters to new file

3 D PCCLINK^BDGPOST1,LOG(3)       ;add PIMS to PCC Master Control file

4 D PARAM^BDGPOST1,LOG(4)         ;copy ADT parameters to new file

5 D WARD^BDGPOST2,LOG(5)          ;copy IHS ward items to new file

6 D TRSPEC^BDGPOST1,LOG(6)        ;new observation specialties

7 D CHRTDEF^BDGPOST1,LOG(7)       ;copy chart deficiencies to new file

8 D EVENT^BDGPOST2,LOG(8)         ;add non-PIMS items to event driver

9 D LETTER^BSDPOST,LOG(9)         ;add Appointment Slip letter

 ; copy patient data to new file structures

10 D EN^BDGPOST3,LOG(10)           ;build transfer facility file

11 D DGPM^BDGPOST2,LOG(11)         ;move fields in file 405

12 D SIDNR^BDGPOST2,LOG(12)        ;clean out old SI/DNR data

13 D SCHVST^BDGPOST2,LOG(13)       ;copy Scheduled Visit data to new file

14 D WAIT^BSDPOST1,LOG(14)         ;copy waiting list to new file

15 D IC^BDGPOST4,LOG(15)           ;copy data to new Incomplete Chart file

16 I '$D(^BDGX(16)),$G(^DG(43,1,9999999))]"" S $P(^(9999999),U)=0 D LOG(16)  ;stuff "track all patients in SPT" to NO

 ; clean up from last version

17 D OLDFILES^BDGPOST1,LOG(17)     ;change name of old files

18 D ADTTMPL^BDGPOST1,LOG(18)      ;stuff 2 ADT Template entries

19 D FACMOV^BDGPOST1,LOG(19)       ;add new fac mov type

20 D MERG^BSDPOST,LOG(20)          ;change Scheduling Merge routine

 ; set up new functions

21 D PCMM^BSDPOST1,LOG(21)         ;set up server side files for PCMM

22 D POST^BSDLINK,LOG(22)          ;set Sched entry for PCC merges

 ;IHS/ITSC/WAR 8/20/03 added this next call per the EHR project needs

23 D ASTOP^BSDPOST,LOG(23)         ;index existing recs for EHR visit History

 ;IHS/ITSC/LJF 10/10/2003 added call to VA pre-init for patch 526

24 D EN^DG53P526,LOG(24)           ;adds Resource & Device entries

 ;IHS/ITSC/WAR 10/17/03 added next two calls

25 D PKGFILE^BSDPOST,LOG(25)       ;update "SD" version in pkg file

26 D PKGFILE^BDGPOST1,LOG(26)      ;update "DG" version in pkg file

27 K ^DD(10,0,"SCR") D LOG(27)     ;remove file screen from Race file;IHS/ITSC/LJF 1/9/2004

28 D CANCEL^BSDPOST1,LOG(28)       ;inactivate SHERI cancellation reason;IHS/ITSC/LJF 4/9/2004

LOG(N) ; keep track of where post init is

 ; Can use this info if restart is needed

 S ^BDGX(N)=$$NOW^XLFDT

RESTART ; if post init bombs, can be restarted here AFTER problem is fixed

 ; will start after last log entry

 I '$D(U) W !!,"Please set up your user variables!" Q

 S Y=$O(^BDGX(999),-1) I Y D @Y

BDGPOST   ; IHS/ANMC/LJF - PIMS POSTINIT ;  [ 04/09/2004  11:11 AM ]

 +1       ;;5.3;PIMS;;APR 26, 2002

 +2       ; post init code for ADT data

 +3       ;

 +4        NEW X

 +5        SET X(1)="IHS Postinit: Warning! These may take a long time to run."

 +6        SET X(2)="If this process should error out, it can be restarted AFTER"

 +7        SET X(3)="the cause of the error has been found and corrected.  At that"

 +8        SET X(4)="point, go into KIDS and select 'Installation...',then select"

 +9        SET X(5)="'Restart Install of Package(s)'."

 +10       DO MES^XPDUTL(.X)

 +11      ;

 +12      ;IHS/ITSC/WAR 8/20/03 - This next call was commented out because of too

 +13      ;       many past entries. The entries are now created by the new rec.

 +14      ; fire new cross-references

 +15      ;D AIHSDAM^BSDPOST       ;set new AIHSDAM xref

 +16      ;

 +17      ; copy data to new parameter and table files

1         ;copy scheduling parameters to new file

           DO PARAM^BSDPOST1

           DO LOG(1)

2         ;copy clinic parameters to new file

           DO CLINIC^BSDPOST

           DO LOG(2)

3         ;add PIMS to PCC Master Control file

           DO PCCLINK^BDGPOST1

           DO LOG(3)

4         ;copy ADT parameters to new file

           DO PARAM^BDGPOST1

           DO LOG(4)

5         ;copy IHS ward items to new file

           DO WARD^BDGPOST2

           DO LOG(5)

6         ;new observation specialties

           DO TRSPEC^BDGPOST1

           DO LOG(6)

7         ;copy chart deficiencies to new file

           DO CHRTDEF^BDGPOST1

           DO LOG(7)

8         ;add non-PIMS items to event driver

           DO EVENT^BDGPOST2

           DO LOG(8)

9         ;add Appointment Slip letter

           DO LETTER^BSDPOST

           DO LOG(9)

 +1       ;

 +2       ; copy patient data to new file structures

10        ;build transfer facility file

           DO EN^BDGPOST3

           DO LOG(10)

11        ;move fields in file 405

           DO DGPM^BDGPOST2

           DO LOG(11)

12        ;clean out old SI/DNR data

           DO SIDNR^BDGPOST2

           DO LOG(12)

13        ;copy Scheduled Visit data to new file

           DO SCHVST^BDGPOST2

           DO LOG(13)

14        ;copy waiting list to new file

           DO WAIT^BSDPOST1

           DO LOG(14)

15        ;copy data to new Incomplete Chart file

           DO IC^BDGPOST4

           DO LOG(15)

 +1       ;

16        ;stuff "track all patients in SPT" to NO

           IF '$DATA(^BDGX(16))

               IF $GET(^DG(43,1,9999999))]""

                   SET $PIECE(^(9999999),U)=0

                   DO LOG(16)

 +1       ;

 +2       ; clean up from last version

17        ;change name of old files

           DO OLDFILES^BDGPOST1

           DO LOG(17)

18        ;stuff 2 ADT Template entries

           DO ADTTMPL^BDGPOST1

           DO LOG(18)

19        ;add new fac mov type

           DO FACMOV^BDGPOST1

           DO LOG(19)

20        ;change Scheduling Merge routine

           DO MERG^BSDPOST

           DO LOG(20)

 +1       ;

 +2       ; set up new functions

21        ;set up server side files for PCMM

           DO PCMM^BSDPOST1

           DO LOG(21)

22        ;set Sched entry for PCC merges

           DO POST^BSDLINK

           DO LOG(22)

 +1       ;IHS/ITSC/WAR 8/20/03 added this next call per the EHR project needs

23        ;index existing recs for EHR visit History

           DO ASTOP^BSDPOST

           DO LOG(23)

 +1       ;IHS/ITSC/LJF 10/10/2003 added call to VA pre-init for patch 526

24        ;adds Resource & Device entries

           DO EN^DG53P526

           DO LOG(24)

 +1       ;IHS/ITSC/WAR 10/17/03 added next two calls

25        ;update "SD" version in pkg file

           DO PKGFILE^BSDPOST

           DO LOG(25)

26        ;update "DG" version in pkg file

           DO PKGFILE^BDGPOST1

           DO LOG(26)

27        ;remove file screen from Race file;IHS/ITSC/LJF 1/9/2004

           KILL ^DD(10,0,"SCR")

           DO LOG(27)

28        ;inactivate SHERI cancellation reason;IHS/ITSC/LJF 4/9/2004

           DO CANCEL^BSDPOST1

           DO LOG(28)

 +1        QUIT

 +2       ;

LOG(N)    ; keep track of where post init is

 +1       ; Can use this info if restart is needed

 +2        SET ^BDGX(N)=$$NOW^XLFDT

 +3        QUIT

 +4       ;

RESTART   ; if post init bombs, can be restarted here AFTER problem is fixed

 +1       ; will start after last log entry

 +2        IF '$DATA(U)

               WRITE !!,"Please set up your user variables!"

               QUIT

 +3        SET Y=$ORDER(^BDGX(999),-1)

           IF Y

               DO @Y

 +4        QUIT

BDGPOST.m