ECP113PT ;ALB/GTS/JAP/BR - PATCH EC*2.0*113 Post-Init Rtn ; 1/19/10 2:48pm
;;2.0;EVENT CAPTURE;**113**;8 May 96;Build 10
;
Q
POST ; entry point
N ECVRRV
;* if 725 converted, write message
; since check inserted in addproc subroutine, patch may be re-installed
I $$GET1^DID(725,"","","PACKAGE REVISION DATA")["EC*2*113" D
.D MES^XPDUTL(" ")
.D MES^XPDUTL("It appears that the EC NATIONAL PROCEDURE")
.D MES^XPDUTL("file (#725) has already been updated")
.D MES^XPDUTL("with Patch EC*2*113.")
.D MES^XPDUTL(" ")
.D MES^XPDUTL("But the patch may be re-installed...")
.D MES^XPDUTL(" ")
D ENTUP
D F7203
Q
;
ENTUP ;
D MES^XPDUTL(" ")
D BMES^XPDUTL("Updating the National Procedures file (#725)...")
D MES^XPDUTL(" ")
;* add new/edit national procedures
D INACT ;inactivate code
;* set VRRV node (file #725)
S ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
S ECVRRV=ECVRRV_"^EC*2*113"
D PRD^DILFD(725,ECVRRV)
D MES^XPDUTL(" ")
D BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725)")
D BMES^XPDUTL(" completed...")
D MES^XPDUTL(" ")
Q
MSGTXT ; Message intro
;; Please forward this message to your local DSS Site Manager or
;; Event Capture ADPAC.;; Event Capture ADPAC.
;;
;; A review of the EC EVENT CODE SCREENS file (#720.3) was done
;; after installation of patch EC*2*113 which updated the EC NATIONAL
;; PROCEDURE file (#725). This message provides the results of that
;; review.
;;
;; The EC EVENT CODE SCREENS file (#720.3) records indicated below
;; point to an inactive record in the EC NATIONAL PROCEDURE file
;; (#725).
;;
;; The user should use the Event Code Screen option in the Event Capture
;; GUI to inactivate the Event Code Screen. If necessary, a new
;; Event Code Screen can be created using a currently active CPT code
;; or National Procedure.
;;
;;QUIT
;
F7203 ;* inspect/report 720.3
D BMES^XPDUTL("Inspecting EC Event Code Screens file (#720.3)...")
D BMES^XPDUTL("You will receive a MailMan message regarding file #720.3 ")
D BMES^XPDUTL(" ")
S ZTRTN="F7203Q^ECP113PT",ZTDESC="File #720.3 Review from EC*2*113",ZTIO=""
S ZTDTH=$H,ZTREQ="@",ZTSAVE("ZTREQ")="" D ^%ZTLOAD
Q
;
F7203Q ;* background job entry point
N ECPTR,ECPROCT,EC01,ECSCDA,ECFILE,ECDATA,ECLOC,ECCAT,ECCATNM,ECUNIT,ECNAM,ECPROC,ECINACT,COUNT,TXTVAR
S COUNT=0 K ^TMP($J,"ECP113")
F I=1:1 S TXTVAR=$P($T(MSGTXT+I),";;",2) Q:TXTVAR="QUIT" D LINE(TXTVAR)
S (EC01,ECPROCT)=0
F S EC01=$O(^ECJ("B",EC01)) Q:+EC01=0 D
.S ECPTR=$P(EC01,"-",4),ECSCDA=$O(^ECJ("B",EC01,0))
.Q:'$D(^ECJ(ECSCDA,0))
.;ignore any ec screen that has been inactivated
.Q:+$P(^ECJ(ECSCDA,0),"^",2)
.S ECFILE=$P(ECPTR,";",2)
.;ec screens pointing to file #725
.I ECFILE["EC(725" S ECDATA=$G(^EC(725,$P(ECPTR,";",1),0)) D
..S ECINACT=$P(ECDATA,U,3)
..Q:ECINACT=""
..;ignore if procedure inactivated before this fiscal year
..Q:(ECINACT<3111001)
..S Y=ECINACT D DD^%DT S ECINACT=Y
..S ECLOC=$P(EC01,"-",1),ECUNIT=$P(EC01,"-",2),ECCAT=$P(EC01,"-",3)
..S ECLOC=$P($G(^DIC(4,ECLOC,0)),U,1),ECUNIT=$P($G(^ECD(ECUNIT,0)),U,1)
..S:+ECCAT'=0 ECCATNM=$P($G(^EC(726,ECCAT,0)),U,1)
..S:+ECCAT=0 ECCATNM="None"
..S ECPROC=$P(ECDATA,U,1)_" ("_$P(ECDATA,U,2)_")"
..S ECNAM=$P(^ECJ(ECSCDA,0),";",1)
..D LINE(" ")
..D LINE(" The National Procedure for the following Event Code")
..D LINE(" Screen ("_ECNAM_") is inactive or will soon be inactive --")
..D LINE(" Location: "_ECLOC)
..D LINE(" Category: "_ECCATNM)
..D LINE(" DSS Unit: "_ECUNIT)
..D LINE(" Procedure: "_ECPROC)
..D LINE(" Inactivation Date: "_ECINACT)
..S ECPROCT=ECPROCT+1
I ECPROCT=0 D
.D LINE(" ")
.D LINE(" "_ECPROCT_" Event Code Screens were found to be pointing to an inactive")
.D LINE(" or soon to be inactive procedure in file #725.")
.D LINE(" ")
D MAIL
K ^TMP($J,"ECP113"),I,Y
Q
;
LINE(TEXT) ; Add line to message global
S COUNT=COUNT+1,^TMP($J,"ECP113",COUNT)=TEXT
Q
;
MAIL ; Send message
N XMDUZ,XMY,XMTEXT,XMSUB
S XMY(DUZ)="",XMDUZ=.5
S XMSUB="Event Code Screens to Review"
S XMTEXT="^TMP($J,""ECP113"","
D ^XMD
Q
INACT ;* inactivate national procedures
;
; ECXX is in format:
; NATIONAL NUMBER^INACTIVATION DATE^FIRST NATIONAL NUMBER SEQUENCE^
; LAST NATIONAL NUMBER SEQUENCE
;
N ECX,ECXX,ECEXDT,ECINDT,ECDA,DIC,DIE,DA,DR,X,Y,%DT,ECBEG,ECEND,ECADD
N ECSEQ,CODE,CODX
D MES^XPDUTL(" ")
D BMES^XPDUTL("Inactivating procedures EC NATIONAL PROCEDURE File (#725)...")
D MES^XPDUTL(" ")
F ECX=1:1 K DD,DO,DA S ECXX=$P($T(OLD+ECX),";;",2) Q:ECXX="QUIT" D
.S ECEXDT=$P(ECXX,U,2),X=ECEXDT,%DT="X" D ^%DT S ECINDT=$P(Y,".",1)
.S CODE=$P(ECXX,U),ECBEG=$P(ECXX,U,3),ECEND=$P(ECXX,U,4),CODX=CODE
.I ECBEG="" D UPINACT Q
.F ECSEQ=ECBEG:1:ECEND D
..S ECADD="000"_ECSEQ,ECADD=$E(ECADD,$L(ECADD)-2,$L(ECADD))
..S CODE=CODX_ECADD
..D UPINACT
Q
UPINACT ;Update codes as inactive
;
S ECDA=+$O(^EC(725,"D",CODE,0))
I $D(^EC(725,ECDA,0)) D
.S DA=ECDA,DR="2///^S X=ECINDT",DIE="^EC(725," D ^DIE
.D MES^XPDUTL(" ")
.D BMES^XPDUTL(" "_CODE_" inactivated as of "_ECEXDT_".")
Q
;
OLD ;national procedures to be inactivated - national code #^inact. date
;;MH066^10/17/2011
;;MH067^10/17/2011
;;MH068^10/17/2011
;;MH069^10/17/2011
;;MH070^10/17/2011
;;MH071^10/17/2011
;;PM504^10/17/2011
;;PM505^10/17/2011
;;PM506^10/17/2011
;;PM507^10/17/2011
;;PM508^10/17/2011
;;PM509^10/17/2011
;;FE100^10/31/2011
;;FE101^10/31/2011
;;FE102^10/31/2011
;;FE103^10/31/2011
;;FE104^10/31/2011
;;FE105^10/31/2011
;;FE106^10/31/2011
;;FE107^10/31/2011
;;FE108^10/31/2011
;;FE109^10/31/2011
;;FE110^10/31/2011
;;FE111^10/31/2011
;;FE112^10/31/2011
;;FE113^10/31/2011
;;FE114^10/31/2011
;;FE115^10/31/2011
;;FE116^10/31/2011
;;FE117^10/31/2011
;;FE118^10/31/2011
;;FE119^10/31/2011
;;FE120^10/31/2011
;;FE121^10/31/2011
;;FE122^10/31/2011
;;FE123^10/31/2011
;;FE124^10/31/2011
;;FE125^10/31/2011
;;FE126^10/31/2011
;;FE127^10/31/2011
;;FE128^10/31/2011
;;FE129^10/31/2011
;;FE130^10/31/2011
;;FE131^10/31/2011
;;FE132^10/31/2011
;;FE133^10/31/2011
;;FE134^10/31/2011
;;FE135^10/31/2011
;;FE136^10/31/2011
;;FE137^10/31/2011
;;FE138^10/31/2011
;;FE139^10/31/2011
;;FE140^10/31/2011
;;FE141^10/31/2011
;;FE142^10/31/2011
;;FE143^10/31/2011
;;FE144^10/31/2011
;;FE145^10/31/2011
;;FE146^10/31/2011
;;FE147^10/31/2011
;;FE148^10/31/2011
;;FE149^10/31/2011
;;FE150^10/31/2011
;;FE151^10/31/2011
;;FE152^10/31/2011
;;FE153^10/31/2011
;;FE154^10/31/2011
;;FE155^10/31/2011
;;FE156^10/31/2011
;;FE157^10/31/2011
;;FE158^10/31/2011
;;FE159^10/31/2011
;;FE160^10/31/2011
;;FE161^10/31/2011
;;FE162^10/31/2011
;;FE163^10/31/2011
;;FE164^10/31/2011
;;FE165^10/31/2011
;;FE166^10/31/2011
;;FE167^10/31/2011
;;FE168^10/31/2011
;;FE169^10/31/2011
;;FE170^10/31/2011
;;FE171^10/31/2011
;;FE172^10/31/2011
;;FE173^10/31/2011
;;FE174^10/31/2011
;;FE175^10/31/2011
;;FE176^10/31/2011
;;FE177^10/31/2011
;;FE178^10/31/2011
;;FE179^10/31/2011
;;FE180^10/31/2011
;;FE181^10/31/2011
;;FE182^10/31/2011
;;FE183^10/31/2011
;;FE184^10/31/2011
;;FE185^10/31/2011
;;FE186^10/31/2011
;;FE187^10/31/2011
;;FE188^10/31/2011
;;FE189^10/31/2011
;;FE190^10/31/2011
;;FE191^10/31/2011
;;FE192^10/31/2011
;;FE193^10/31/2011
;;FE194^10/31/2011
;;FE195^10/31/2011
;;FE196^10/31/2011
;;FE197^10/31/2011
;;FE198^10/31/2011
;;FE199^10/31/2011
;;QUIT
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECP113PT 7622 printed Apr 09, 2024@21:00:01 Page 2
ECP113PT ;ALB/GTS/JAP/BR - PATCH EC*2.0*113 Post-Init Rtn ; 1/19/10 2:48pm
+1 ;;2.0;EVENT CAPTURE;**113**;8 May 96;Build 10
+2 ;
+3 QUIT
POST ; entry point
+1 NEW ECVRRV
+2 ;* if 725 converted, write message
+3 ; since check inserted in addproc subroutine, patch may be re-installed
+4 IF $$GET1^DID(725,"","","PACKAGE REVISION DATA")["EC*2*113"
Begin DoDot:1
+5 DO MES^XPDUTL(" ")
+6 DO MES^XPDUTL("It appears that the EC NATIONAL PROCEDURE")
+7 DO MES^XPDUTL("file (#725) has already been updated")
+8 DO MES^XPDUTL("with Patch EC*2*113.")
+9 DO MES^XPDUTL(" ")
+10 DO MES^XPDUTL("But the patch may be re-installed...")
+11 DO MES^XPDUTL(" ")
End DoDot:1
+12 DO ENTUP
+13 DO F7203
+14 QUIT
+15 ;
ENTUP ;
+1 DO MES^XPDUTL(" ")
+2 DO BMES^XPDUTL("Updating the National Procedures file (#725)...")
+3 DO MES^XPDUTL(" ")
+4 ;* add new/edit national procedures
+5 ;inactivate code
DO INACT
+6 ;* set VRRV node (file #725)
+7 SET ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
+8 SET ECVRRV=ECVRRV_"^EC*2*113"
+9 DO PRD^DILFD(725,ECVRRV)
+10 DO MES^XPDUTL(" ")
+11 DO BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725)")
+12 DO BMES^XPDUTL(" completed...")
+13 DO MES^XPDUTL(" ")
+14 QUIT
MSGTXT ; Message intro
+1 ;; Please forward this message to your local DSS Site Manager or
+2 ;; Event Capture ADPAC.;; Event Capture ADPAC.
+3 ;;
+4 ;; A review of the EC EVENT CODE SCREENS file (#720.3) was done
+5 ;; after installation of patch EC*2*113 which updated the EC NATIONAL
+6 ;; PROCEDURE file (#725). This message provides the results of that
+7 ;; review.
+8 ;;
+9 ;; The EC EVENT CODE SCREENS file (#720.3) records indicated below
+10 ;; point to an inactive record in the EC NATIONAL PROCEDURE file
+11 ;; (#725).
+12 ;;
+13 ;; The user should use the Event Code Screen option in the Event Capture
+14 ;; GUI to inactivate the Event Code Screen. If necessary, a new
+15 ;; Event Code Screen can be created using a currently active CPT code
+16 ;; or National Procedure.
+17 ;;
+18 ;;QUIT
+19 ;
F7203 ;* inspect/report 720.3
+1 DO BMES^XPDUTL("Inspecting EC Event Code Screens file (#720.3)...")
+2 DO BMES^XPDUTL("You will receive a MailMan message regarding file #720.3 ")
+3 DO BMES^XPDUTL(" ")
+4 SET ZTRTN="F7203Q^ECP113PT"
SET ZTDESC="File #720.3 Review from EC*2*113"
SET ZTIO=""
+5 SET ZTDTH=$HOROLOG
SET ZTREQ="@"
SET ZTSAVE("ZTREQ")=""
DO ^%ZTLOAD
+6 QUIT
+7 ;
F7203Q ;* background job entry point
+1 NEW ECPTR,ECPROCT,EC01,ECSCDA,ECFILE,ECDATA,ECLOC,ECCAT,ECCATNM,ECUNIT,ECNAM,ECPROC,ECINACT,COUNT,TXTVAR
+2 SET COUNT=0
KILL ^TMP($JOB,"ECP113")
+3 FOR I=1:1
SET TXTVAR=$PIECE($TEXT(MSGTXT+I),";;",2)
if TXTVAR="QUIT"
QUIT
DO LINE(TXTVAR)
+4 SET (EC01,ECPROCT)=0
+5 FOR
SET EC01=$ORDER(^ECJ("B",EC01))
if +EC01=0
QUIT
Begin DoDot:1
+6 SET ECPTR=$PIECE(EC01,"-",4)
SET ECSCDA=$ORDER(^ECJ("B",EC01,0))
+7 if '$DATA(^ECJ(ECSCDA,0))
QUIT
+8 ;ignore any ec screen that has been inactivated
+9 if +$PIECE(^ECJ(ECSCDA,0),"^",2)
QUIT
+10 SET ECFILE=$PIECE(ECPTR,";",2)
+11 ;ec screens pointing to file #725
+12 IF ECFILE["EC(725"
SET ECDATA=$GET(^EC(725,$PIECE(ECPTR,";",1),0))
Begin DoDot:2
+13 SET ECINACT=$PIECE(ECDATA,U,3)
+14 if ECINACT=""
QUIT
+15 ;ignore if procedure inactivated before this fiscal year
+16 if (ECINACT<3111001)
QUIT
+17 SET Y=ECINACT
DO DD^%DT
SET ECINACT=Y
+18 SET ECLOC=$PIECE(EC01,"-",1)
SET ECUNIT=$PIECE(EC01,"-",2)
SET ECCAT=$PIECE(EC01,"-",3)
+19 SET ECLOC=$PIECE($GET(^DIC(4,ECLOC,0)),U,1)
SET ECUNIT=$PIECE($GET(^ECD(ECUNIT,0)),U,1)
+20 if +ECCAT'=0
SET ECCATNM=$PIECE($GET(^EC(726,ECCAT,0)),U,1)
+21 if +ECCAT=0
SET ECCATNM="None"
+22 SET ECPROC=$PIECE(ECDATA,U,1)_" ("_$PIECE(ECDATA,U,2)_")"
+23 SET ECNAM=$PIECE(^ECJ(ECSCDA,0),";",1)
+24 DO LINE(" ")
+25 DO LINE(" The National Procedure for the following Event Code")
+26 DO LINE(" Screen ("_ECNAM_") is inactive or will soon be inactive --")
+27 DO LINE(" Location: "_ECLOC)
+28 DO LINE(" Category: "_ECCATNM)
+29 DO LINE(" DSS Unit: "_ECUNIT)
+30 DO LINE(" Procedure: "_ECPROC)
+31 DO LINE(" Inactivation Date: "_ECINACT)
+32 SET ECPROCT=ECPROCT+1
End DoDot:2
End DoDot:1
+33 IF ECPROCT=0
Begin DoDot:1
+34 DO LINE(" ")
+35 DO LINE(" "_ECPROCT_" Event Code Screens were found to be pointing to an inactive")
+36 DO LINE(" or soon to be inactive procedure in file #725.")
+37 DO LINE(" ")
End DoDot:1
+38 DO MAIL
+39 KILL ^TMP($JOB,"ECP113"),I,Y
+40 QUIT
+41 ;
LINE(TEXT) ; Add line to message global
+1 SET COUNT=COUNT+1
SET ^TMP($JOB,"ECP113",COUNT)=TEXT
+2 QUIT
+3 ;
MAIL ; Send message
+1 NEW XMDUZ,XMY,XMTEXT,XMSUB
+2 SET XMY(DUZ)=""
SET XMDUZ=.5
+3 SET XMSUB="Event Code Screens to Review"
+4 SET XMTEXT="^TMP($J,""ECP113"","
+5 DO ^XMD
+6 QUIT
INACT ;* inactivate national procedures
+1 ;
+2 ; ECXX is in format:
+3 ; NATIONAL NUMBER^INACTIVATION DATE^FIRST NATIONAL NUMBER SEQUENCE^
+4 ; LAST NATIONAL NUMBER SEQUENCE
+5 ;
+6 NEW ECX,ECXX,ECEXDT,ECINDT,ECDA,DIC,DIE,DA,DR,X,Y,%DT,ECBEG,ECEND,ECADD
+7 NEW ECSEQ,CODE,CODX
+8 DO MES^XPDUTL(" ")
+9 DO BMES^XPDUTL("Inactivating procedures EC NATIONAL PROCEDURE File (#725)...")
+10 DO MES^XPDUTL(" ")
+11 FOR ECX=1:1
KILL DD,DO,DA
SET ECXX=$PIECE($TEXT(OLD+ECX),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+12 SET ECEXDT=$PIECE(ECXX,U,2)
SET X=ECEXDT
SET %DT="X"
DO ^%DT
SET ECINDT=$PIECE(Y,".",1)
+13 SET CODE=$PIECE(ECXX,U)
SET ECBEG=$PIECE(ECXX,U,3)
SET ECEND=$PIECE(ECXX,U,4)
SET CODX=CODE
+14 IF ECBEG=""
DO UPINACT
QUIT
+15 FOR ECSEQ=ECBEG:1:ECEND
Begin DoDot:2
+16 SET ECADD="000"_ECSEQ
SET ECADD=$EXTRACT(ECADD,$LENGTH(ECADD)-2,$LENGTH(ECADD))
+17 SET CODE=CODX_ECADD
+18 DO UPINACT
End DoDot:2
End DoDot:1
+19 QUIT
UPINACT ;Update codes as inactive
+1 ;
+2 SET ECDA=+$ORDER(^EC(725,"D",CODE,0))
+3 IF $DATA(^EC(725,ECDA,0))
Begin DoDot:1
+4 SET DA=ECDA
SET DR="2///^S X=ECINDT"
SET DIE="^EC(725,"
DO ^DIE
+5 DO MES^XPDUTL(" ")
+6 DO BMES^XPDUTL(" "_CODE_" inactivated as of "_ECEXDT_".")
End DoDot:1
+7 QUIT
+8 ;
OLD ;national procedures to be inactivated - national code #^inact. date
+1 ;;MH066^10/17/2011
+2 ;;MH067^10/17/2011
+3 ;;MH068^10/17/2011
+4 ;;MH069^10/17/2011
+5 ;;MH070^10/17/2011
+6 ;;MH071^10/17/2011
+7 ;;PM504^10/17/2011
+8 ;;PM505^10/17/2011
+9 ;;PM506^10/17/2011
+10 ;;PM507^10/17/2011
+11 ;;PM508^10/17/2011
+12 ;;PM509^10/17/2011
+13 ;;FE100^10/31/2011
+14 ;;FE101^10/31/2011
+15 ;;FE102^10/31/2011
+16 ;;FE103^10/31/2011
+17 ;;FE104^10/31/2011
+18 ;;FE105^10/31/2011
+19 ;;FE106^10/31/2011
+20 ;;FE107^10/31/2011
+21 ;;FE108^10/31/2011
+22 ;;FE109^10/31/2011
+23 ;;FE110^10/31/2011
+24 ;;FE111^10/31/2011
+25 ;;FE112^10/31/2011
+26 ;;FE113^10/31/2011
+27 ;;FE114^10/31/2011
+28 ;;FE115^10/31/2011
+29 ;;FE116^10/31/2011
+30 ;;FE117^10/31/2011
+31 ;;FE118^10/31/2011
+32 ;;FE119^10/31/2011
+33 ;;FE120^10/31/2011
+34 ;;FE121^10/31/2011
+35 ;;FE122^10/31/2011
+36 ;;FE123^10/31/2011
+37 ;;FE124^10/31/2011
+38 ;;FE125^10/31/2011
+39 ;;FE126^10/31/2011
+40 ;;FE127^10/31/2011
+41 ;;FE128^10/31/2011
+42 ;;FE129^10/31/2011
+43 ;;FE130^10/31/2011
+44 ;;FE131^10/31/2011
+45 ;;FE132^10/31/2011
+46 ;;FE133^10/31/2011
+47 ;;FE134^10/31/2011
+48 ;;FE135^10/31/2011
+49 ;;FE136^10/31/2011
+50 ;;FE137^10/31/2011
+51 ;;FE138^10/31/2011
+52 ;;FE139^10/31/2011
+53 ;;FE140^10/31/2011
+54 ;;FE141^10/31/2011
+55 ;;FE142^10/31/2011
+56 ;;FE143^10/31/2011
+57 ;;FE144^10/31/2011
+58 ;;FE145^10/31/2011
+59 ;;FE146^10/31/2011
+60 ;;FE147^10/31/2011
+61 ;;FE148^10/31/2011
+62 ;;FE149^10/31/2011
+63 ;;FE150^10/31/2011
+64 ;;FE151^10/31/2011
+65 ;;FE152^10/31/2011
+66 ;;FE153^10/31/2011
+67 ;;FE154^10/31/2011
+68 ;;FE155^10/31/2011
+69 ;;FE156^10/31/2011
+70 ;;FE157^10/31/2011
+71 ;;FE158^10/31/2011
+72 ;;FE159^10/31/2011
+73 ;;FE160^10/31/2011
+74 ;;FE161^10/31/2011
+75 ;;FE162^10/31/2011
+76 ;;FE163^10/31/2011
+77 ;;FE164^10/31/2011
+78 ;;FE165^10/31/2011
+79 ;;FE166^10/31/2011
+80 ;;FE167^10/31/2011
+81 ;;FE168^10/31/2011
+82 ;;FE169^10/31/2011
+83 ;;FE170^10/31/2011
+84 ;;FE171^10/31/2011
+85 ;;FE172^10/31/2011
+86 ;;FE173^10/31/2011
+87 ;;FE174^10/31/2011
+88 ;;FE175^10/31/2011
+89 ;;FE176^10/31/2011
+90 ;;FE177^10/31/2011
+91 ;;FE178^10/31/2011
+92 ;;FE179^10/31/2011
+93 ;;FE180^10/31/2011
+94 ;;FE181^10/31/2011
+95 ;;FE182^10/31/2011
+96 ;;FE183^10/31/2011
+97 ;;FE184^10/31/2011
+98 ;;FE185^10/31/2011
+99 ;;FE186^10/31/2011
+100 ;;FE187^10/31/2011
+101 ;;FE188^10/31/2011
+102 ;;FE189^10/31/2011
+103 ;;FE190^10/31/2011
+104 ;;FE191^10/31/2011
+105 ;;FE192^10/31/2011
+106 ;;FE193^10/31/2011
+107 ;;FE194^10/31/2011
+108 ;;FE195^10/31/2011
+109 ;;FE196^10/31/2011
+110 ;;FE197^10/31/2011
+111 ;;FE198^10/31/2011
+112 ;;FE199^10/31/2011
+113 ;;QUIT
+114 ;
