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 Apr 09, 2024@21:01:04 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
