- 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
