ACPT27FX.m

ACPT27FX ; IHS/ASDST/SDR - CPT 2.07 FIX ROUTINE ;      [ 01/18/2007  11:05 AM ]

 ;;2007;CPT FILES;**1**;DEC 31, 2006

 ;

 Q

EN ;

 ;this part will remove entries that look like this:

 ;  ^ICPT("00100",0)="^^138"

 ;these were created by the CAT^ACPTPOST tag that looks

 ;for the CPT category for the CPT code.  It has worked

 ;fine in the past but suddenly decided to add the "00100"

 ;entry rather than update the 00100 entry (or 100 as the

 ;IEN

 S ACPTIEN=""

 F  S ACPTIEN=$O(^ICPT(ACPTIEN)) Q:ACPTIEN=""  D

 .Q:$G(^ICPT(ACPTIEN,0))=""

 .I $P($G(^ICPT(ACPTIEN,0)),U)="" D

 ..W !,?2,ACPTIEN,?9,$G(^ICPT(ACPTIEN,0))

 ..S DIK="^ICPT("

 ..S DA=ACPTIEN

 ..D ^DIK

 ..W ?15,"...deleted"

 ;

 ;this next part fixes entries in the Modifier file.  There

 ;were some headers in the data that should have been skipped

 ;but was read in as a Modifier and created an entry.  There

 ;was also a bad entry that I removed (not sure if it was from

 ;this load or not but figured it should be removed as well).

 S ACPTIEN="^AUTTCMOD(""-1-1"",0)"

 K @ACPTIEN

 ;

 S ACPTIEN=0

 F  S ACPTIEN=$O(^AUTTCMOD(ACPTIEN)) Q:+ACPTIEN=0  D

 .K ACPTREC,ACPTTXT

 .S ACPTREC=$G(^AUTTCMOD(ACPTIEN,0))

 .F ACPTLN=1:1:11 D

 ..S ACPTTXT=$P($T(TXT+ACPTLN),";;",2)

 ..I ACPTREC=ACPTTXT D

 ...W !,ACPTTXT

 ...S DIK="^AUTTCMOD("

 ...S DA=ACPTIEN

 ...D ^DIK	

 K ACPTIEN,DIK,DA,ACPTLN,ACPTTXT

 Q

TXT ;;

 ;;U.^. GOVERNMENT RIGHTS. CPT is commercial technical data and/or computer data bases and/or commercial computer software and/or commercial computer software documentation, as applicable, which were developed exclusively at private expense by the American Medical Association, 515 North State Street, Chicago, Illinois 60610.  U.S. Government rights to use, modify, reproduce, release, perform, display, or disclose these technical data and/or computer data bases and/or computer software and/or computer software documentation are subject to the limited rights restrictions of DFARS 252.227-7015 (b) (2) (November 1995) and/or subject to the restrictions of DFARS 227.7202-1 (a) (June 1995) and DFARS 227.7202-3 (a) (June 1995), as applicable for U.S. Department of Defense procurements and the limited rights restrictions of FAR 52.227-14 (June 1987) and/or subject to the restricted rights provisions of FAR 52.227-14 (June 1987) and FAR 52.227-19 (June 1987), as applicable, and any applicable agency FAR Supplements, for non-Department of Defense Federal procurements.   

 ;;An^sthesia Physical Status Modifiers

 ;;Ap^endix A

 ;;Ex^mple

 ;;Fo^ questions regarding the use of CPT codes, please contact the American Medical Association CPT® Network at www.cptnetwork.com.

 ;;Le^el II (HCPCS/National) Modifiers

 ;;Mo^ifiers Approved for Ambulatory Surgery Center (ASC) Hospital Outpatient Use

 ;;Ph^sical Status Modifier P6

 ;;Th^ Physical Status modifiers are consistent with the American Society of Anesthesiologists ranking of patient physical status, and distinguishing various levels of complexity of the anesthesia service provided. All anesthesia services are reported by use of the anesthesia five-digit procedure code (00100-01999) with the appropriate physical status modifier appended.

 ;;To^request a license for distribution of products with CPT content, please see our Web site at www.ama-assn.org/go/cpt or contact the American Medical Association Intellectual Property Services, 515 North State Street, Chicago, Illinois 60610.

 ;;Un^er certain circumstances, when another established modifier(s) is appropriate, it should be used in addition to the physical status modifier.

ACPT27FX  ; IHS/ASDST/SDR - CPT 2.07 FIX ROUTINE ;      [ 01/18/2007  11:05 AM ]

 +1       ;;2007;CPT FILES;**1**;DEC 31, 2006

 +2       ;

 +3        QUIT 

EN        ;

 +1       ;this part will remove entries that look like this:

 +2       ;  ^ICPT("00100",0)="^^138"

 +3       ;these were created by the CAT^ACPTPOST tag that looks

 +4       ;for the CPT category for the CPT code.  It has worked

 +5       ;fine in the past but suddenly decided to add the "00100"

 +6       ;entry rather than update the 00100 entry (or 100 as the

 +7       ;IEN

 +8        SET ACPTIEN=""

 +9        FOR 

               SET ACPTIEN=$ORDER(^ICPT(ACPTIEN))

               IF ACPTIEN=""

                   QUIT 

               Begin DoDot:1

 +10               IF $GET(^ICPT(ACPTIEN,0))=""

                       QUIT 

 +11               IF $PIECE($GET(^ICPT(ACPTIEN,0)),U)=""

                       Begin DoDot:2

 +12                       WRITE !,?2,ACPTIEN,?9,$GET(^ICPT(ACPTIEN,0))

 +13                       SET DIK="^ICPT("

 +14                       SET DA=ACPTIEN

 +15                       DO ^DIK

 +16                       WRITE ?15,"...deleted"

                       End DoDot:2

               End DoDot:1

 +17      ;

 +18      ;this next part fixes entries in the Modifier file.  There

 +19      ;were some headers in the data that should have been skipped

 +20      ;but was read in as a Modifier and created an entry.  There

 +21      ;was also a bad entry that I removed (not sure if it was from

 +22      ;this load or not but figured it should be removed as well).

 +23       SET ACPTIEN="^AUTTCMOD(""-1-1"",0)"

 +24       KILL @ACPTIEN

 +25      ;

 +26       SET ACPTIEN=0

 +27       FOR 

               SET ACPTIEN=$ORDER(^AUTTCMOD(ACPTIEN))

               IF +ACPTIEN=0

                   QUIT 

               Begin DoDot:1

 +28               KILL ACPTREC,ACPTTXT

 +29               SET ACPTREC=$GET(^AUTTCMOD(ACPTIEN,0))

 +30               FOR ACPTLN=1:1:11

                       Begin DoDot:2

 +31                       SET ACPTTXT=$PIECE($TEXT(TXT+ACPTLN),";;",2)

 +32                       IF ACPTREC=ACPTTXT

                               Begin DoDot:3

 +33                               WRITE !,ACPTTXT

 +34                               SET DIK="^AUTTCMOD("

 +35                               SET DA=ACPTIEN

 +36                               DO ^DIK	

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +37       KILL ACPTIEN,DIK,DA,ACPTLN,ACPTTXT

 +38       QUIT 

TXT       ;;

 +1       ;;U.^. GOVERNMENT RIGHTS. CPT is commercial technical data and/or computer data bases and/or commercial computer software and/or commercial computer software documentation, as applicable, which were developed exclusively at private expense by th

e American Medical Association, 515 North State Street, Chicago, Illinois 60610.  U.S. Government rights to use, modify, reproduce, release, perform, display, or disclose these technical data and/or computer data bases and/or computer software and/or comp

uter software documentation are subject to the limited rights restrictions of DFARS 252.227-7015 (b) (2) (November 1995) and/or subject to the restrictions of DFARS 227.7202-1 (a) (June 1995) and DFARS 227.7202-3 (a) (June 1995), as applicable for U.S. De

partment of Defense procurements and the limited rights restrictions of FAR 52.227-14 (June 1987) and/or subject to the restricted rights provisions of FAR 52.227-14 (June 1987) and FAR 52.227-19 (June 1987), as applicable, and any applicable a

 +2       ;;An^sthesia Physical Status Modifiers

 +3       ;;Ap^endix A

 +4       ;;Ex^mple

 +5       ;;Fo^ questions regarding the use of CPT codes, please contact the American Medical Association CPT® Network at www.cptnetwork.com.

 +6       ;;Le^el II (HCPCS/National) Modifiers

 +7       ;;Mo^ifiers Approved for Ambulatory Surgery Center (ASC) Hospital Outpatient Use

 +8       ;;Ph^sical Status Modifier P6

 +9       ;;Th^ Physical Status modifiers are consistent with the American Society of Anesthesiologists ranking of patient physical status, and distinguishing various levels of complexity of the anesthesia service provided. All anesthesia services are rep

orted by use of the anesthesia five-digit procedure code (00100-01999) with the appropriate physical status modifier appended.

 +10      ;;To^request a license for distribution of products with CPT content, please see our Web site at www.ama-assn.org/go/cpt or contact the American Medical Association Intellectual Property Services, 515 North State Street, Chicago, Illinois 60610.

 +11      ;;Un^er certain circumstances, when another established modifier(s) is appropriate, it should be used in addition to the physical status modifier.