PSB3P100 ;AITC/CR - Post installation for Patch 100 ; 9/14/17 1:34pm
;;3.0;BAR CODE MED ADMIN;**100**;Mar 2004;Build 17
;
; This routine is used with the New-Style cross reference
; 'DIVAS' in file #53.68 to re-index the entire file so that multi-division
; sites can run the report 'Missing Dose Followup' by division
POST ; prepare entries for 'Missing Dose Followup' sorted by Status and Division
D BMES^XPDUTL(">>> Post-Init: Re-indexing of file #53.68 in progress...")
N DIK
S DIK="^PSB(53.68,"
S DIK(1)=".04^DIVAS" ; only need one field for the combined cross ref
D ENALL^DIK
D BMES^XPDUTL(">>> Post-Init completed!")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSB3P100 653 printed Dec 13, 2024@01:39:47 Page 2
PSB3P100 ;AITC/CR - Post installation for Patch 100 ; 9/14/17 1:34pm
+1 ;;3.0;BAR CODE MED ADMIN;**100**;Mar 2004;Build 17
+2 ;
+3 ; This routine is used with the New-Style cross reference
+4 ; 'DIVAS' in file #53.68 to re-index the entire file so that multi-division
+5 ; sites can run the report 'Missing Dose Followup' by division
POST ; prepare entries for 'Missing Dose Followup' sorted by Status and Division
+1 DO BMES^XPDUTL(">>> Post-Init: Re-indexing of file #53.68 in progress...")
+2 NEW DIK
+3 SET DIK="^PSB(53.68,"
+4 ; only need one field for the combined cross ref
SET DIK(1)=".04^DIVAS"
+5 DO ENALL^DIK
+6 DO BMES^XPDUTL(">>> Post-Init completed!")
+7 QUIT
