ACRF20PS ;IHS/OIRM/DSD/AEF - ARMS PATCH 20 POST INSTALL ROUTINE [ 07/24/2006 11:08 AM ]
;;2.1;ADMINISTRATIVE RESOURCE MGMT SYSTEM;**20**;MAY 27, 2004
;
EN ;EP -- MAIN ENTRY POINT
;
D ^XBKVAR
D HOME^%ZIS
D AUDIT
D COMPP
Q
COMPP ;----- RECOMPILE PRINT TEMPLATES
;
N ACRPTEMP,I,X
;
D BMES^XPDUTL("Recompiling print templates...")
;
F I=1:1 S X=$T(PTEMP+I) Q:X["$$END" S ACRPTEMP($P(X,";;",2))=""
;
S ACRPTEMP=""
F S ACRPTEMP=$O(ACRPTEMP(ACRPTEMP)) Q:ACRPTEMP']"" D
. D ONEP(ACRPTEMP)
Q
ONEP(ACRPTEMP) ;
;----- RECOMPILE ONE PRINT TEMPLATE
;
; ACRPTEMP = PRINT TEMPLATE NAME
;
N ACRFILE,ACRIEN,DMAX,X,Y
;
S ACRFILE=$P(ACRPTEMP,U,2)
S ACRPTEMP=$P(ACRPTEMP,U)
S ACRIEN=0
F S ACRIEN=$O(^DIPT("B",ACRPTEMP,ACRIEN)) Q:'ACRIEN D
. Q:$P($G(^DIPT(ACRIEN,0)),U,4)'=ACRFILE
. S X=$P($G(^DIPT(ACRIEN,"ROU")),U,2)
. Q:X']""
. S Y=ACRIEN
. S DMAX=$$ROUSIZE^DILF
. D EN^DIPZ
Q
;
PTEMP ;----- PRINT TEMPLATES TO BE COMPILED
;;ACR TRAVEL ORDER^9002196
;;ACR ORDER FOR SUP HEAD^9002196
;;ACR PROGRAM INFO^9999999.62
;;ACR PURCHASE ORDER AMENDMENT^9002196
;;ACR PURCHASE ORDER INFO^9002196
;;ACR ARMS USER ADDRESS^9002185.3
;;ACR REQUISITION-TX^9002196
;;ACR SEPARATE TRAVEL ITINERARY^9002196
;;ACR TRAINING EVALUATION^9002191.6
;;ACR TRAVEL ITINERARY^9002196
;;ACR TRAVEL ORDER SUMMARY^9002196
;;ACR TRAVEL VOUCHER^9002196
;;ACR TRAVEL VOUCHER SUMMARY^9002196
;;ACR TRAVELER BANK INFO^9002185.3
;;ACR ARMS CAN^9002186.5
;;ACR DEPARTMENT ACCOUNT INFO^9002188
;;ACR CONTROL SEQUENCE INFO^9002190
;;ACR SIGNATURE SUMMARY^9002190
;;ACR CERTIFICATION^9002197.1
;;ACR REQUEST CONTROLLER AUDIT^9002190
;;ACR REQUISITION TAIL^9002196
;;ACR REQUISITION DISPLAY-2^9002196
;;ACR SF-44 DISPLAY^9002196
;;ACR TRAVEL ORDER DISPLAY^9002196
;;ACR PURCHASE ORDER DISPLAY^9002196
;;ACR CONTRACT DISPLAY^9002196
;;ACR TRIBAL CONTRACT DISPLAY^9002196
;;ACR REQUISITION HEAD^9002196
;;ACR REQUISTION-TX SUMMARY^9002196
;;ACR SEPARATE TRAVEL ITINERARY^9002196
;;ACR TRAVEL VOUCHER AUDIT LIST^9002196
;;ACR TRAINING REQUEST DISPLAY^9002196
;;ACR PURCHASING OFFICE^9002199.4
;;$$END
Q
;
AUDIT ;CLEAN OUT THE VENDOR EDIT AUTHORITY FIELD IN ARMS USER FILE
D BMES^XPDUTL("Removing VENDOR EDIT AUTHORITY from ARMS USER file...")
N ACRX,ACR1,DA,DIE,DR
S ACRX=0
F S ACRX=$O(^ACRAU(ACRX)) Q:'ACRX D
.S ACR1=$G(^ACRAU(ACRX,1))
.Q:$P(ACR1,U,17)']""
.S DA=ACRX
.S DIE="^ACRAU("
.S DR="17///@"
.D DIE^ACRFDIC
.W !," FOR: ",^ACRAU(ACRX,0)
D BMES^XPDUTL("VENDOR EDIT AUTHORITY cleanup completed...")
Q
ACRF20PS ;IHS/OIRM/DSD/AEF - ARMS PATCH 20 POST INSTALL ROUTINE [ 07/24/2006 11:08 AM ]
+1 ;;2.1;ADMINISTRATIVE RESOURCE MGMT SYSTEM;**20**;MAY 27, 2004
+2 ;
EN ;EP -- MAIN ENTRY POINT
+1 ;
+2 DO ^XBKVAR
+3 DO HOME^%ZIS
+4 DO AUDIT
+5 DO COMPP
+6 QUIT
COMPP ;----- RECOMPILE PRINT TEMPLATES
+1 ;
+2 NEW ACRPTEMP,I,X
+3 ;
+4 DO BMES^XPDUTL("Recompiling print templates...")
+5 ;
+6 FOR I=1:1
SET X=$TEXT(PTEMP+I)
IF X["$$END"
QUIT
SET ACRPTEMP($PIECE(X,";;",2))=""
+7 ;
+8 SET ACRPTEMP=""
+9 FOR
SET ACRPTEMP=$ORDER(ACRPTEMP(ACRPTEMP))
IF ACRPTEMP']""
QUIT
Begin DoDot:1
+10 DO ONEP(ACRPTEMP)
End DoDot:1
+11 QUIT
ONEP(ACRPTEMP) ;
+1 ;----- RECOMPILE ONE PRINT TEMPLATE
+2 ;
+3 ; ACRPTEMP = PRINT TEMPLATE NAME
+4 ;
+5 NEW ACRFILE,ACRIEN,DMAX,X,Y
+6 ;
+7 SET ACRFILE=$PIECE(ACRPTEMP,U,2)
+8 SET ACRPTEMP=$PIECE(ACRPTEMP,U)
+9 SET ACRIEN=0
+10 FOR
SET ACRIEN=$ORDER(^DIPT("B",ACRPTEMP,ACRIEN))
IF 'ACRIEN
QUIT
Begin DoDot:1
+11 IF $PIECE($GET(^DIPT(ACRIEN,0)),U,4)'=ACRFILE
QUIT
+12 SET X=$PIECE($GET(^DIPT(ACRIEN,"ROU")),U,2)
+13 IF X']""
QUIT
+14 SET Y=ACRIEN
+15 SET DMAX=$$ROUSIZE^DILF
+16 DO EN^DIPZ
End DoDot:1
+17 QUIT
+18 ;
PTEMP ;----- PRINT TEMPLATES TO BE COMPILED
+1 ;;ACR TRAVEL ORDER^9002196
+2 ;;ACR ORDER FOR SUP HEAD^9002196
+3 ;;ACR PROGRAM INFO^9999999.62
+4 ;;ACR PURCHASE ORDER AMENDMENT^9002196
+5 ;;ACR PURCHASE ORDER INFO^9002196
+6 ;;ACR ARMS USER ADDRESS^9002185.3
+7 ;;ACR REQUISITION-TX^9002196
+8 ;;ACR SEPARATE TRAVEL ITINERARY^9002196
+9 ;;ACR TRAINING EVALUATION^9002191.6
+10 ;;ACR TRAVEL ITINERARY^9002196
+11 ;;ACR TRAVEL ORDER SUMMARY^9002196
+12 ;;ACR TRAVEL VOUCHER^9002196
+13 ;;ACR TRAVEL VOUCHER SUMMARY^9002196
+14 ;;ACR TRAVELER BANK INFO^9002185.3
+15 ;;ACR ARMS CAN^9002186.5
+16 ;;ACR DEPARTMENT ACCOUNT INFO^9002188
+17 ;;ACR CONTROL SEQUENCE INFO^9002190
+18 ;;ACR SIGNATURE SUMMARY^9002190
+19 ;;ACR CERTIFICATION^9002197.1
+20 ;;ACR REQUEST CONTROLLER AUDIT^9002190
+21 ;;ACR REQUISITION TAIL^9002196
+22 ;;ACR REQUISITION DISPLAY-2^9002196
+23 ;;ACR SF-44 DISPLAY^9002196
+24 ;;ACR TRAVEL ORDER DISPLAY^9002196
+25 ;;ACR PURCHASE ORDER DISPLAY^9002196
+26 ;;ACR CONTRACT DISPLAY^9002196
+27 ;;ACR TRIBAL CONTRACT DISPLAY^9002196
+28 ;;ACR REQUISITION HEAD^9002196
+29 ;;ACR REQUISTION-TX SUMMARY^9002196
+30 ;;ACR SEPARATE TRAVEL ITINERARY^9002196
+31 ;;ACR TRAVEL VOUCHER AUDIT LIST^9002196
+32 ;;ACR TRAINING REQUEST DISPLAY^9002196
+33 ;;ACR PURCHASING OFFICE^9002199.4
+34 ;;$$END
+35 QUIT
+36 ;
AUDIT ;CLEAN OUT THE VENDOR EDIT AUTHORITY FIELD IN ARMS USER FILE
+1 DO BMES^XPDUTL("Removing VENDOR EDIT AUTHORITY from ARMS USER file...")
+2 NEW ACRX,ACR1,DA,DIE,DR
+3 SET ACRX=0
+4 FOR
SET ACRX=$ORDER(^ACRAU(ACRX))
IF 'ACRX
QUIT
Begin DoDot:1
+5 SET ACR1=$GET(^ACRAU(ACRX,1))
+6 IF $PIECE(ACR1,U,17)']""
QUIT
+7 SET DA=ACRX
+8 SET DIE="^ACRAU("
+9 SET DR="17///@"
+10 DO DIE^ACRFDIC
+11 WRITE !," FOR: ",^ACRAU(ACRX,0)
End DoDot:1
+12 DO BMES^XPDUTL("VENDOR EDIT AUTHORITY cleanup completed...")
+13 QUIT
