- ENX1IPS ;WIRMFO/SAB- POST-INIT ;10/29/97
- ;;7.0;ENGINEERING;**46**;Aug 17, 1993
- ;
- ; only do remaining steps during 1st install
- I $$PATCH^XPDUTL("EN*7.0*46") D BMES^XPDUTL(" Skipping Equipment updates step since patch was previously installed.") Q
- ;
- N ENAMT,ENDA,ENC,ENCSN,ENFUND,ENFUNDN,ENFUNDNI,ENGRP,ENSGL,ENSTA,ENT,ENX
- ;
- D BMES^XPDUTL(" Examining Equipment Inventory file...")
- K ^TMP($J)
- S ENDA=0 F S ENDA=$O(^ENG(6914,ENDA)) Q:'ENDA D
- . Q:+$$CHKFA^ENFAUTL(ENDA)'>0 ; ignore equipment not report to FAP
- . S ENSTA=$$GET1^DIQ(6914,ENDA_",",60)
- . S ENSGL=$$GET1^DIQ(6914,ENDA_",",38)
- . S ENFUND=$$GET1^DIQ(6914,ENDA_",",62)
- . I ENSTA=""!(ENSGL="")!(ENFUND="") D Q
- . . S ENX=" ERROR: EQUIP. # "_ENDA_" is missing data (station, fund, or SGL)."
- . . D MES^XPDUTL(ENX)
- . I "1754"=ENSGL S ^TMP($J,"EN1754",ENSTA,ENFUND,ENDA)="" D
- . . ; check if ADPE
- . . S ENCSN=$$GET1^DIQ(6914,ENDA_",",18) Q:ENCSN=""
- . . S ENGRP=$$GROUP^ENFAVAL(ENCSN)
- . . S:"^7000^7020^7021^7025^7435^"[(U_ENGRP_U) ^TMP($J,"ENADP",ENDA)=""
- . I "^8129G^4138^6019^5014A1^"[(U_ENFUND_U) S:ENSGL="1754" ENSGL="1750" S ^TMP($J,"ENDF",ENSTA,ENFUND,ENSGL,ENDA)=""
- ;
- D BMES^XPDUTL(" Moving Trust Equipment from SGL 1754 to SGL 1750...")
- D:'$D(^TMP($J,"EN1754")) MES^XPDUTL(" None found. No action taken.")
- ; init grand totals
- K ENC,ENT S (ENC,ENT)=0
- ; loop thru stations in TMP
- S ENSTA="" F S ENSTA=$O(^TMP($J,"EN1754",ENSTA)) Q:ENSTA="" D
- . D MES^XPDUTL(" For Station "_ENSTA)
- . ; init station subtotals
- . S (ENC(ENSTA),ENT(ENSTA))=0
- . ; loop thru funds in station
- . S ENFUND="" F S ENFUND=$O(^TMP($J,"EN1754",ENSTA,ENFUND)) Q:ENFUND="" D
- . . ; init fund subtotals
- . . S (ENC(ENSTA,ENFUND),ENT(ENSTA,ENFUND))=0
- . . ; loop thru equipment in fund
- . . S ENDA=0 F S ENDA=$O(^TMP($J,"EN1754",ENSTA,ENFUND,ENDA)) Q:'ENDA D
- . . . ; move equipment
- . . . S ENX=$$XSGL^ENX1IPS1(ENDA)
- . . . I 'ENX D MES^XPDUTL("ERROR: Couldn't create the FAP Documents.")
- . . . S ENAMT=$P($G(^ENG(6914,ENDA,2)),U,3)
- . . . ; update fund totals
- . . . S ENC(ENSTA,ENFUND)=ENC(ENSTA,ENFUND)+1
- . . . S ENT(ENSTA,ENFUND)=ENT(ENSTA,ENFUND)+ENAMT
- . . . ; report action
- . . . S ENX=" Equip #: "_$$LJ^XLFSTR(ENDA,10)
- . . . S ENX=ENX_" Fund: "_$$LJ^XLFSTR(ENFUND,6)
- . . . S ENX=ENX_" Value: "_$J("$"_$FN(ENAMT,",",2),16)
- . . . D MES^XPDUTL(ENX)
- . . ; report fund subtotal
- . . S ENX=" Fund "_$$CJ^XLFSTR(ENFUND,6)_" Subtotal "
- . . S ENX=ENX_" Count: "_$J(ENC(ENSTA,ENFUND),3,0)
- . . S ENX=ENX_" Value: "_$J("$"_$FN(ENT(ENSTA,ENFUND),",",2),16)
- . . D MES^XPDUTL(ENX)
- . . ; update station subtotals
- . . S ENC(ENSTA)=ENC(ENSTA)+ENC(ENSTA,ENFUND)
- . . S ENT(ENSTA)=ENT(ENSTA)+ENT(ENSTA,ENFUND)
- . ; report station subtotal
- . S ENX=" Station "_$$CJ^XLFSTR(ENSTA,5)_" Subtotal "
- . S ENX=ENX_" Count: "_$J(ENC(ENSTA),3,0)
- . S ENX=ENX_" Value: "_$J("$"_$FN(ENT(ENSTA),",",2),16)
- . D MES^XPDUTL(ENX)
- . ; update grand totals
- . S ENC=ENC+ENC(ENSTA)
- . S ENT=ENT+ENT(ENSTA)
- ; report grand totals
- I ENC>0 D
- . S ENX=" Grand Total (All Stations) "
- . S ENX=ENX_" Count: "_$J(ENC,3,0)
- . S ENX=ENX_" Value: "_$J("$"_$FN(ENT,",",2),16)
- . D MES^XPDUTL(ENX)
- ;
- D BMES^XPDUTL(" Changing FUND of Equipment in Deactivated FUNDs...")
- D:'$D(^TMP($J,"ENDF")) MES^XPDUTL(" None found. No action taken.")
- ; init grand totals
- K ENC,ENT S (ENC,ENT)=0
- ; loop thru stations in TMP
- S ENSTA="" F S ENSTA=$O(^TMP($J,"ENDF",ENSTA)) Q:ENSTA="" D
- . D MES^XPDUTL(" For Station "_ENSTA)
- . ; init station subtotals
- . S (ENC(ENSTA),ENT(ENSTA))=0
- . ; loop thru funds in station
- . S ENFUND=""
- . F S ENFUND=$O(^TMP($J,"ENDF",ENSTA,ENFUND)) Q:ENFUND="" D
- . . ; init fund subtotals
- . . S (ENC(ENSTA,ENFUND),ENT(ENSTA,ENFUND))=0
- . . ; determine new fund
- . . S ENFUNDN=$S(ENFUND="8129G":"8129S",1:"AMAF")
- . . S ENFUNDNI=$O(^ENG(6914.6,"B",ENFUNDN,0))
- . . S ENX=" Moving equipment from "_ENFUND_" to "_ENFUNDN_" via FR"
- . . D MES^XPDUTL(ENX)
- . . I 'ENFUNDNI D MES^XPDUTL("ERROR: FUND "_ENFUNDN_" not in 6914.6!") Q
- . . ; loop thru SGLs in Fund
- . . S ENSGL=""
- . . F S ENSGL=$O(^TMP($J,"ENDF",ENSTA,ENFUND,ENSGL)) Q:ENSGL="" D
- . . . ; init sgl subtotal
- . . . S (ENC(ENSTA,ENFUND,ENSGL),ENT(ENSTA,ENFUND,ENSGL))=0
- . . . ; loop thru equipment in SGL
- . . . S ENDA=0
- . . . F S ENDA=$O(^TMP($J,"ENDF",ENSTA,ENFUND,ENSGL,ENDA)) Q:'ENDA D
- . . . . ; move equipment
- . . . . S ENX=$$XFUND^ENX1IPS1(ENDA,ENFUNDNI)
- . . . . I 'ENX D MES^XPDUTL("ERROR: Couldn't create the FR Document.")
- . . . . S ENAMT=$P($G(^ENG(6914,ENDA,2)),U,3)
- . . . . ; update SGL subtotals
- . . . . S ENC(ENSTA,ENFUND,ENSGL)=ENC(ENSTA,ENFUND,ENSGL)+1
- . . . . S ENT(ENSTA,ENFUND,ENSGL)=ENT(ENSTA,ENFUND,ENSGL)+ENAMT
- . . . . ; report action
- . . . . S ENX=" Equip #: "_$$LJ^XLFSTR(ENDA,10)
- . . . . S ENX=ENX_" Fund: "_$$LJ^XLFSTR(ENFUND,6)
- . . . . S ENX=ENX_" SGL: "_$$LJ^XLFSTR(ENSGL,4)
- . . . . S ENX=ENX_" Value: "_$J("$"_$FN(ENAMT,",",2),16)
- . . . . D MES^XPDUTL(ENX)
- . . . ; report SGL subtotals
- . . . S ENX=" SGL "_ENSGL_" Subtotal "
- . . . S ENX=ENX_" Count: "_$J(ENC(ENSTA,ENFUND,ENSGL),3,0)_" Value: "
- . . . S ENX=ENX_$J("$"_$FN(ENT(ENSTA,ENFUND,ENSGL),",",2),16)
- . . . D MES^XPDUTL(ENX)
- . . . ; update fund subtotals
- . . . S ENC(ENSTA,ENFUND)=ENC(ENSTA,ENFUND)+ENC(ENSTA,ENFUND,ENSGL)
- . . . S ENT(ENSTA,ENFUND)=ENT(ENSTA,ENFUND)+ENT(ENSTA,ENFUND,ENSGL)
- . . ; report fund subtotal
- . . S ENX=" Fund "_$$CJ^XLFSTR(ENFUND,6)
- . . S ENX=ENX_" Subtotal "
- . . S ENX=ENX_" Count: "_$J(ENC(ENSTA,ENFUND),3,0)
- . . S ENX=ENX_" Value: "_$J("$"_$FN(ENT(ENSTA,ENFUND),",",2),16)
- . . D MES^XPDUTL(ENX)
- . . ; update station totals
- . . S ENC(ENSTA)=ENC(ENSTA)+ENC(ENSTA,ENFUND)
- . . S ENT(ENSTA)=ENT(ENSTA)+ENT(ENSTA,ENFUND)
- . ; report station subtotals
- . S ENX=" Station "_$$CJ^XLFSTR(ENSTA,5)_" Subtotal "
- . S ENX=ENX_" Count: "_$J(ENC(ENSTA),3,0)
- . S ENX=ENX_" Value: "_$J("$"_$FN(ENT(ENSTA),",",2),16)
- . D MES^XPDUTL(ENX)
- . ; update grand totals
- . S ENC=ENC+ENC(ENSTA),ENT=ENT+ENT(ENSTA)
- ; report grand totals
- I ENC>0 D
- . S ENX=" Grand Total (All Stations) "
- . S ENX=ENX_" Count: "_$J(ENC,3,0)
- . S ENX=ENX_" Value: "_$J("$"_$FN(ENT,",",2),16)
- . D MES^XPDUTL(ENX)
- ;
- I '$D(^TMP($J,"ENADP")) D
- . D BMES^XPDUTL(" None of the Trust equipment that was moved from SGL 1754 to SGL 1750")
- . D MES^XPDUTL(" appears to be ADPE. No user action is required.")
- I $D(^TMP($J,"ENADP")) D
- . D BMES^XPDUTL(" Some of the Trust equipment that was moved from SGL 1754 to SGL 1750")
- . D MES^XPDUTL(" appears to be ADP equipment based on its category stock number (CSN).")
- . D MES^XPDUTL(" ADP equipment should be in SGL 1751 instead of 1750.")
- . D MES^XPDUTL(" You will need to manually update the SGL of this equipment using FD and")
- . D MES^XPDUTL(" FA Documents so that your local system, Fixed Assets, and FMS are updated.")
- . D MES^XPDUTL(" ADP Trust Equipment Currently in SGL 1750:")
- . S ENDA=0 F S ENDA=$O(^TMP($J,"ENADP",ENDA)) Q:'ENDA D
- . . S ENCSN=$$GET1^DIQ(6914,ENDA_",",18)
- . . S ENCSN("D")=$$GET1^DIQ(6914,ENDA_",","18:2")
- . . S ENX=" Equip #: "_ENDA_" CSN: "_ENCSN_" ("_ENCSN("D")_")"
- . . D MES^XPDUTL(ENX)
- ;
- K ^TMP($J)
- Q
- ;
- ;ENX1IPS
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENX1IPS 7452 printed Jan 18, 2025@02:57:45 Page 2
- ENX1IPS ;WIRMFO/SAB- POST-INIT ;10/29/97
- +1 ;;7.0;ENGINEERING;**46**;Aug 17, 1993
- +2 ;
- +3 ; only do remaining steps during 1st install
- +4 IF $$PATCH^XPDUTL("EN*7.0*46")
- DO BMES^XPDUTL(" Skipping Equipment updates step since patch was previously installed.")
- QUIT
- +5 ;
- +6 NEW ENAMT,ENDA,ENC,ENCSN,ENFUND,ENFUNDN,ENFUNDNI,ENGRP,ENSGL,ENSTA,ENT,ENX
- +7 ;
- +8 DO BMES^XPDUTL(" Examining Equipment Inventory file...")
- +9 KILL ^TMP($JOB)
- +10 SET ENDA=0
- FOR
- SET ENDA=$ORDER(^ENG(6914,ENDA))
- if 'ENDA
- QUIT
- Begin DoDot:1
- +11 ; ignore equipment not report to FAP
- if +$$CHKFA^ENFAUTL(ENDA)'>0
- QUIT
- +12 SET ENSTA=$$GET1^DIQ(6914,ENDA_",",60)
- +13 SET ENSGL=$$GET1^DIQ(6914,ENDA_",",38)
- +14 SET ENFUND=$$GET1^DIQ(6914,ENDA_",",62)
- +15 IF ENSTA=""!(ENSGL="")!(ENFUND="")
- Begin DoDot:2
- +16 SET ENX=" ERROR: EQUIP. # "_ENDA_" is missing data (station, fund, or SGL)."
- +17 DO MES^XPDUTL(ENX)
- End DoDot:2
- QUIT
- +18 IF "1754"=ENSGL
- SET ^TMP($JOB,"EN1754",ENSTA,ENFUND,ENDA)=""
- Begin DoDot:2
- +19 ; check if ADPE
- +20 SET ENCSN=$$GET1^DIQ(6914,ENDA_",",18)
- if ENCSN=""
- QUIT
- +21 SET ENGRP=$$GROUP^ENFAVAL(ENCSN)
- +22 if "^7000^7020^7021^7025^7435^"[(U_ENGRP_U)
- SET ^TMP($JOB,"ENADP",ENDA)=""
- End DoDot:2
- +23 IF "^8129G^4138^6019^5014A1^"[(U_ENFUND_U)
- if ENSGL="1754"
- SET ENSGL="1750"
- SET ^TMP($JOB,"ENDF",ENSTA,ENFUND,ENSGL,ENDA)=""
- End DoDot:1
- +24 ;
- +25 DO BMES^XPDUTL(" Moving Trust Equipment from SGL 1754 to SGL 1750...")
- +26 if '$DATA(^TMP($JOB,"EN1754"))
- DO MES^XPDUTL(" None found. No action taken.")
- +27 ; init grand totals
- +28 KILL ENC,ENT
- SET (ENC,ENT)=0
- +29 ; loop thru stations in TMP
- +30 SET ENSTA=""
- FOR
- SET ENSTA=$ORDER(^TMP($JOB,"EN1754",ENSTA))
- if ENSTA=""
- QUIT
- Begin DoDot:1
- +31 DO MES^XPDUTL(" For Station "_ENSTA)
- +32 ; init station subtotals
- +33 SET (ENC(ENSTA),ENT(ENSTA))=0
- +34 ; loop thru funds in station
- +35 SET ENFUND=""
- FOR
- SET ENFUND=$ORDER(^TMP($JOB,"EN1754",ENSTA,ENFUND))
- if ENFUND=""
- QUIT
- Begin DoDot:2
- +36 ; init fund subtotals
- +37 SET (ENC(ENSTA,ENFUND),ENT(ENSTA,ENFUND))=0
- +38 ; loop thru equipment in fund
- +39 SET ENDA=0
- FOR
- SET ENDA=$ORDER(^TMP($JOB,"EN1754",ENSTA,ENFUND,ENDA))
- if 'ENDA
- QUIT
- Begin DoDot:3
- +40 ; move equipment
- +41 SET ENX=$$XSGL^ENX1IPS1(ENDA)
- +42 IF 'ENX
- DO MES^XPDUTL("ERROR: Couldn't create the FAP Documents.")
- +43 SET ENAMT=$PIECE($GET(^ENG(6914,ENDA,2)),U,3)
- +44 ; update fund totals
- +45 SET ENC(ENSTA,ENFUND)=ENC(ENSTA,ENFUND)+1
- +46 SET ENT(ENSTA,ENFUND)=ENT(ENSTA,ENFUND)+ENAMT
- +47 ; report action
- +48 SET ENX=" Equip #: "_$$LJ^XLFSTR(ENDA,10)
- +49 SET ENX=ENX_" Fund: "_$$LJ^XLFSTR(ENFUND,6)
- +50 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENAMT,",",2),16)
- +51 DO MES^XPDUTL(ENX)
- End DoDot:3
- +52 ; report fund subtotal
- +53 SET ENX=" Fund "_$$CJ^XLFSTR(ENFUND,6)_" Subtotal "
- +54 SET ENX=ENX_" Count: "_$JUSTIFY(ENC(ENSTA,ENFUND),3,0)
- +55 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENT(ENSTA,ENFUND),",",2),16)
- +56 DO MES^XPDUTL(ENX)
- +57 ; update station subtotals
- +58 SET ENC(ENSTA)=ENC(ENSTA)+ENC(ENSTA,ENFUND)
- +59 SET ENT(ENSTA)=ENT(ENSTA)+ENT(ENSTA,ENFUND)
- End DoDot:2
- +60 ; report station subtotal
- +61 SET ENX=" Station "_$$CJ^XLFSTR(ENSTA,5)_" Subtotal "
- +62 SET ENX=ENX_" Count: "_$JUSTIFY(ENC(ENSTA),3,0)
- +63 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENT(ENSTA),",",2),16)
- +64 DO MES^XPDUTL(ENX)
- +65 ; update grand totals
- +66 SET ENC=ENC+ENC(ENSTA)
- +67 SET ENT=ENT+ENT(ENSTA)
- End DoDot:1
- +68 ; report grand totals
- +69 IF ENC>0
- Begin DoDot:1
- +70 SET ENX=" Grand Total (All Stations) "
- +71 SET ENX=ENX_" Count: "_$JUSTIFY(ENC,3,0)
- +72 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENT,",",2),16)
- +73 DO MES^XPDUTL(ENX)
- End DoDot:1
- +74 ;
- +75 DO BMES^XPDUTL(" Changing FUND of Equipment in Deactivated FUNDs...")
- +76 if '$DATA(^TMP($JOB,"ENDF"))
- DO MES^XPDUTL(" None found. No action taken.")
- +77 ; init grand totals
- +78 KILL ENC,ENT
- SET (ENC,ENT)=0
- +79 ; loop thru stations in TMP
- +80 SET ENSTA=""
- FOR
- SET ENSTA=$ORDER(^TMP($JOB,"ENDF",ENSTA))
- if ENSTA=""
- QUIT
- Begin DoDot:1
- +81 DO MES^XPDUTL(" For Station "_ENSTA)
- +82 ; init station subtotals
- +83 SET (ENC(ENSTA),ENT(ENSTA))=0
- +84 ; loop thru funds in station
- +85 SET ENFUND=""
- +86 FOR
- SET ENFUND=$ORDER(^TMP($JOB,"ENDF",ENSTA,ENFUND))
- if ENFUND=""
- QUIT
- Begin DoDot:2
- +87 ; init fund subtotals
- +88 SET (ENC(ENSTA,ENFUND),ENT(ENSTA,ENFUND))=0
- +89 ; determine new fund
- +90 SET ENFUNDN=$SELECT(ENFUND="8129G":"8129S",1:"AMAF")
- +91 SET ENFUNDNI=$ORDER(^ENG(6914.6,"B",ENFUNDN,0))
- +92 SET ENX=" Moving equipment from "_ENFUND_" to "_ENFUNDN_" via FR"
- +93 DO MES^XPDUTL(ENX)
- +94 IF 'ENFUNDNI
- DO MES^XPDUTL("ERROR: FUND "_ENFUNDN_" not in 6914.6!")
- QUIT
- +95 ; loop thru SGLs in Fund
- +96 SET ENSGL=""
- +97 FOR
- SET ENSGL=$ORDER(^TMP($JOB,"ENDF",ENSTA,ENFUND,ENSGL))
- if ENSGL=""
- QUIT
- Begin DoDot:3
- +98 ; init sgl subtotal
- +99 SET (ENC(ENSTA,ENFUND,ENSGL),ENT(ENSTA,ENFUND,ENSGL))=0
- +100 ; loop thru equipment in SGL
- +101 SET ENDA=0
- +102 FOR
- SET ENDA=$ORDER(^TMP($JOB,"ENDF",ENSTA,ENFUND,ENSGL,ENDA))
- if 'ENDA
- QUIT
- Begin DoDot:4
- +103 ; move equipment
- +104 SET ENX=$$XFUND^ENX1IPS1(ENDA,ENFUNDNI)
- +105 IF 'ENX
- DO MES^XPDUTL("ERROR: Couldn't create the FR Document.")
- +106 SET ENAMT=$PIECE($GET(^ENG(6914,ENDA,2)),U,3)
- +107 ; update SGL subtotals
- +108 SET ENC(ENSTA,ENFUND,ENSGL)=ENC(ENSTA,ENFUND,ENSGL)+1
- +109 SET ENT(ENSTA,ENFUND,ENSGL)=ENT(ENSTA,ENFUND,ENSGL)+ENAMT
- +110 ; report action
- +111 SET ENX=" Equip #: "_$$LJ^XLFSTR(ENDA,10)
- +112 SET ENX=ENX_" Fund: "_$$LJ^XLFSTR(ENFUND,6)
- +113 SET ENX=ENX_" SGL: "_$$LJ^XLFSTR(ENSGL,4)
- +114 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENAMT,",",2),16)
- +115 DO MES^XPDUTL(ENX)
- End DoDot:4
- +116 ; report SGL subtotals
- +117 SET ENX=" SGL "_ENSGL_" Subtotal "
- +118 SET ENX=ENX_" Count: "_$JUSTIFY(ENC(ENSTA,ENFUND,ENSGL),3,0)_" Value: "
- +119 SET ENX=ENX_$JUSTIFY("$"_$FNUMBER(ENT(ENSTA,ENFUND,ENSGL),",",2),16)
- +120 DO MES^XPDUTL(ENX)
- +121 ; update fund subtotals
- +122 SET ENC(ENSTA,ENFUND)=ENC(ENSTA,ENFUND)+ENC(ENSTA,ENFUND,ENSGL)
- +123 SET ENT(ENSTA,ENFUND)=ENT(ENSTA,ENFUND)+ENT(ENSTA,ENFUND,ENSGL)
- End DoDot:3
- +124 ; report fund subtotal
- +125 SET ENX=" Fund "_$$CJ^XLFSTR(ENFUND,6)
- +126 SET ENX=ENX_" Subtotal "
- +127 SET ENX=ENX_" Count: "_$JUSTIFY(ENC(ENSTA,ENFUND),3,0)
- +128 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENT(ENSTA,ENFUND),",",2),16)
- +129 DO MES^XPDUTL(ENX)
- +130 ; update station totals
- +131 SET ENC(ENSTA)=ENC(ENSTA)+ENC(ENSTA,ENFUND)
- +132 SET ENT(ENSTA)=ENT(ENSTA)+ENT(ENSTA,ENFUND)
- End DoDot:2
- +133 ; report station subtotals
- +134 SET ENX=" Station "_$$CJ^XLFSTR(ENSTA,5)_" Subtotal "
- +135 SET ENX=ENX_" Count: "_$JUSTIFY(ENC(ENSTA),3,0)
- +136 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENT(ENSTA),",",2),16)
- +137 DO MES^XPDUTL(ENX)
- +138 ; update grand totals
- +139 SET ENC=ENC+ENC(ENSTA)
- SET ENT=ENT+ENT(ENSTA)
- End DoDot:1
- +140 ; report grand totals
- +141 IF ENC>0
- Begin DoDot:1
- +142 SET ENX=" Grand Total (All Stations) "
- +143 SET ENX=ENX_" Count: "_$JUSTIFY(ENC,3,0)
- +144 SET ENX=ENX_" Value: "_$JUSTIFY("$"_$FNUMBER(ENT,",",2),16)
- +145 DO MES^XPDUTL(ENX)
- End DoDot:1
- +146 ;
- +147 IF '$DATA(^TMP($JOB,"ENADP"))
- Begin DoDot:1
- +148 DO BMES^XPDUTL(" None of the Trust equipment that was moved from SGL 1754 to SGL 1750")
- +149 DO MES^XPDUTL(" appears to be ADPE. No user action is required.")
- End DoDot:1
- +150 IF $DATA(^TMP($JOB,"ENADP"))
- Begin DoDot:1
- +151 DO BMES^XPDUTL(" Some of the Trust equipment that was moved from SGL 1754 to SGL 1750")
- +152 DO MES^XPDUTL(" appears to be ADP equipment based on its category stock number (CSN).")
- +153 DO MES^XPDUTL(" ADP equipment should be in SGL 1751 instead of 1750.")
- +154 DO MES^XPDUTL(" You will need to manually update the SGL of this equipment using FD and")
- +155 DO MES^XPDUTL(" FA Documents so that your local system, Fixed Assets, and FMS are updated.")
- +156 DO MES^XPDUTL(" ADP Trust Equipment Currently in SGL 1750:")
- +157 SET ENDA=0
- FOR
- SET ENDA=$ORDER(^TMP($JOB,"ENADP",ENDA))
- if 'ENDA
- QUIT
- Begin DoDot:2
- +158 SET ENCSN=$$GET1^DIQ(6914,ENDA_",",18)
- +159 SET ENCSN("D")=$$GET1^DIQ(6914,ENDA_",","18:2")
- +160 SET ENX=" Equip #: "_ENDA_" CSN: "_ENCSN_" ("_ENCSN("D")_")"
- +161 DO MES^XPDUTL(ENX)
- End DoDot:2
- End DoDot:1
- +162 ;
- +163 KILL ^TMP($JOB)
- +164 QUIT
- +165 ;
- +166 ;ENX1IPS