Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BDGPOST

BDGPOST.m

Go to the documentation of this file.
  1. BDGPOST ; IHS/ANMC/LJF - PIMS POSTINIT ; [ 04/09/2004 11:11 AM ]
  1. ;;5.3;PIMS;;APR 26, 2002
  1. ; post init code for ADT data
  1. ;
  1. NEW X
  1. S X(1)="IHS Postinit: Warning! These may take a long time to run."
  1. S X(2)="If this process should error out, it can be restarted AFTER"
  1. S X(3)="the cause of the error has been found and corrected. At that"
  1. S X(4)="point, go into KIDS and select 'Installation...',then select"
  1. S X(5)="'Restart Install of Package(s)'."
  1. D MES^XPDUTL(.X)
  1. ;
  1. ;IHS/ITSC/WAR 8/20/03 - This next call was commented out because of too
  1. ; many past entries. The entries are now created by the new rec.
  1. ; fire new cross-references
  1. ;D AIHSDAM^BSDPOST ;set new AIHSDAM xref
  1. ;
  1. ; copy data to new parameter and table files
  1. 1 D PARAM^BSDPOST1,LOG(1) ;copy scheduling parameters to new file
  1. 2 D CLINIC^BSDPOST,LOG(2) ;copy clinic parameters to new file
  1. 3 D PCCLINK^BDGPOST1,LOG(3) ;add PIMS to PCC Master Control file
  1. 4 D PARAM^BDGPOST1,LOG(4) ;copy ADT parameters to new file
  1. 5 D WARD^BDGPOST2,LOG(5) ;copy IHS ward items to new file
  1. 6 D TRSPEC^BDGPOST1,LOG(6) ;new observation specialties
  1. 7 D CHRTDEF^BDGPOST1,LOG(7) ;copy chart deficiencies to new file
  1. 8 D EVENT^BDGPOST2,LOG(8) ;add non-PIMS items to event driver
  1. 9 D LETTER^BSDPOST,LOG(9) ;add Appointment Slip letter
  1. ;
  1. ; copy patient data to new file structures
  1. 10 D EN^BDGPOST3,LOG(10) ;build transfer facility file
  1. 11 D DGPM^BDGPOST2,LOG(11) ;move fields in file 405
  1. 12 D SIDNR^BDGPOST2,LOG(12) ;clean out old SI/DNR data
  1. 13 D SCHVST^BDGPOST2,LOG(13) ;copy Scheduled Visit data to new file
  1. 14 D WAIT^BSDPOST1,LOG(14) ;copy waiting list to new file
  1. 15 D IC^BDGPOST4,LOG(15) ;copy data to new Incomplete Chart file
  1. ;
  1. 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
  1. ;
  1. ; clean up from last version
  1. 17 D OLDFILES^BDGPOST1,LOG(17) ;change name of old files
  1. 18 D ADTTMPL^BDGPOST1,LOG(18) ;stuff 2 ADT Template entries
  1. 19 D FACMOV^BDGPOST1,LOG(19) ;add new fac mov type
  1. 20 D MERG^BSDPOST,LOG(20) ;change Scheduling Merge routine
  1. ;
  1. ; set up new functions
  1. 21 D PCMM^BSDPOST1,LOG(21) ;set up server side files for PCMM
  1. 22 D POST^BSDLINK,LOG(22) ;set Sched entry for PCC merges
  1. ;IHS/ITSC/WAR 8/20/03 added this next call per the EHR project needs
  1. 23 D ASTOP^BSDPOST,LOG(23) ;index existing recs for EHR visit History
  1. ;IHS/ITSC/LJF 10/10/2003 added call to VA pre-init for patch 526
  1. 24 D EN^DG53P526,LOG(24) ;adds Resource & Device entries
  1. ;IHS/ITSC/WAR 10/17/03 added next two calls
  1. 25 D PKGFILE^BSDPOST,LOG(25) ;update "SD" version in pkg file
  1. 26 D PKGFILE^BDGPOST1,LOG(26) ;update "DG" version in pkg file
  1. 27 K ^DD(10,0,"SCR") D LOG(27) ;remove file screen from Race file;IHS/ITSC/LJF 1/9/2004
  1. 28 D CANCEL^BSDPOST1,LOG(28) ;inactivate SHERI cancellation reason;IHS/ITSC/LJF 4/9/2004
  1. Q
  1. ;
  1. LOG(N) ; keep track of where post init is
  1. ; Can use this info if restart is needed
  1. S ^BDGX(N)=$$NOW^XLFDT
  1. Q
  1. ;
  1. RESTART ; if post init bombs, can be restarted here AFTER problem is fixed
  1. ; will start after last log entry
  1. I '$D(U) W !!,"Please set up your user variables!" Q
  1. S Y=$O(^BDGX(999),-1) I Y D @Y
  1. Q