DG53P640.m

DG53P640 ;BAY/JAT; UPDATE FILE #45.64;12/7/04 4:29pm ; 12/20/04 7:58pm

 ;;5.3;Registration;**640,1015**;Aug 13,1993;Build 21

 N LINE,X,DGCODE,DIC,DGDESC,Y,DGX,DGY,DGCNT

 S DGCNT=0

 D BMES^XPDUTL(">>> Adding new codes to file # 45.64")

 F LINE=1:1 S X=$T(ADD+LINE) S DGCODE=$P(X,";;",2) Q:DGCODE="EXIT"  D

 .S DIC="^DGP(45.64,",DIC(0)=""

 .S DGDESC=$P(DGCODE,U,2)

 .I $L(DGDESC)>70 Q

 .S DIC("DR")=".02///"_DGDESC

 .S X=$P(DGCODE,U)

 .I +$O(^DGP(45.64,"B",X,0)) Q

 .K DO D FILE^DICN

 .I Y=-1 Q

 .S DGX=$P(DGCODE,U),DGY=$P(DGCODE,U,2)

 .D MES^XPDUTL("  CODE "_DGX_"     "_DGY_"     added.")

 .S DGCNT=DGCNT+1

 I DGCNT<39 D

 .D MES^XPDUTL("Code(s) missing. Compare with patch description.")

 Q

ADD ;new codes - descriptions cannot exceed 70 char.

 ;;004^station number and suffix invalid

 ;;070^transaction does not match N101 transaction or Master Record

 ;;139^101 transaction equal to preceding 101 transaction or Master Record   

 ;;141^replacement date of admission is later than first date of surgery

 ;;142^replacement date of admission is later than first movement date

 ;;170^transaction does not match 101 trans. or Master Record (131 trans only

 ;;171^update without data in any field except control fields (131 trans only

 ;;441^surgical date in N402 transaction not equal date of one 401

 ;;455^a replacement code or a $ eliminated a required related code

 ;;457^duplicate surg codes or dupe of one in Master in different position

 ;;471^updte without data in any field except control fields (one field reqrd

 ;;472^updte 431/432 date of surgery does not match date of surgery in 401/02

 ;;546^trans. 500 deleted the discharge 501 segment without replacement 501 

 ;;553^diagnostic code used without a required related code

 ;;555^a replacement code or a $ eliminated a required related code

 ;;557^duplicate diag codes or dupe of one in Master in different position

 ;;570^transaction does not match 101 transaction or Master Record

 ;;571^updte without data in any field except control fields (one field reqrd

 ;;572^update date of movement does not match date of movement in record

 ;;573^combined leave and pass days greater than total elapsed days

 ;;645^more than 32 transactions submitted

 ;;655^a replacement code or a $ eliminated a required related code

 ;;670^transaction does not match N101 transaction or Master Record

 ;;716^duplication of a report of death. Type of disposition '6' or '7'

 ;;718^701 without an "X" in ONLY-DX must be accompanied by a 702

 ;;719^trans. accompanied by 701 with "X" in ONLY-DX or "summary diag" codes

 ;;739^discharge segment already in Master Record

 ;;740^date of discharge is later than processing date

 ;;741^date of discharge does not equal last date of transfer

 ;;742^date of discharge for fiscal year before earlier than current FY

 ;;743^replacement date of discharge is earlier than latest date of surgery

 ;;770^no matching 101 transaction or Master Record

 ;;771^updte without data in any field except control fields (one field reqrd

 ;;772^update with matching 101 transaction but without a matching 701/2/3

 ;;775^invalid PHY LOC CDR code

 ;;776^invalid PHY CDE code

 ;;999^six unacceptable edit conditions

 ;;EXIT

 Q

DG53P640  ;BAY/JAT; UPDATE FILE #45.64;12/7/04 4:29pm ; 12/20/04 7:58pm

 +1       ;;5.3;Registration;**640,1015**;Aug 13,1993;Build 21

 +2        NEW LINE,X,DGCODE,DIC,DGDESC,Y,DGX,DGY,DGCNT

 +3        SET DGCNT=0

 +4        DO BMES^XPDUTL(">>> Adding new codes to file # 45.64")

 +5        FOR LINE=1:1

               SET X=$TEXT(ADD+LINE)

               SET DGCODE=$PIECE(X,";;",2)

               IF DGCODE="EXIT"

                   QUIT 

               Begin DoDot:1

 +6                SET DIC="^DGP(45.64,"

                   SET DIC(0)=""

 +7                SET DGDESC=$PIECE(DGCODE,U,2)

 +8                IF $LENGTH(DGDESC)>70

                       QUIT 

 +9                SET DIC("DR")=".02///"_DGDESC

 +10               SET X=$PIECE(DGCODE,U)

 +11               IF +$ORDER(^DGP(45.64,"B",X,0))

                       QUIT 

 +12               KILL DO

                   DO FILE^DICN

 +13               IF Y=-1

                       QUIT 

 +14               SET DGX=$PIECE(DGCODE,U)

                   SET DGY=$PIECE(DGCODE,U,2)

 +15               DO MES^XPDUTL("  CODE "_DGX_"     "_DGY_"     added.")

 +16               SET DGCNT=DGCNT+1

               End DoDot:1

 +17       IF DGCNT<39

               Begin DoDot:1

 +18               DO MES^XPDUTL("Code(s) missing. Compare with patch description.")

               End DoDot:1

 +19       QUIT 

ADD       ;new codes - descriptions cannot exceed 70 char.

 +1       ;;004^station number and suffix invalid

 +2       ;;070^transaction does not match N101 transaction or Master Record

 +3       ;;139^101 transaction equal to preceding 101 transaction or Master Record   

 +4       ;;141^replacement date of admission is later than first date of surgery

 +5       ;;142^replacement date of admission is later than first movement date

 +6       ;;170^transaction does not match 101 trans. or Master Record (131 trans only

 +7       ;;171^update without data in any field except control fields (131 trans only

 +8       ;;441^surgical date in N402 transaction not equal date of one 401

 +9       ;;455^a replacement code or a $ eliminated a required related code

 +10      ;;457^duplicate surg codes or dupe of one in Master in different position

 +11      ;;471^updte without data in any field except control fields (one field reqrd

 +12      ;;472^updte 431/432 date of surgery does not match date of surgery in 401/02

 +13      ;;546^trans. 500 deleted the discharge 501 segment without replacement 501 

 +14      ;;553^diagnostic code used without a required related code

 +15      ;;555^a replacement code or a $ eliminated a required related code

 +16      ;;557^duplicate diag codes or dupe of one in Master in different position

 +17      ;;570^transaction does not match 101 transaction or Master Record

 +18      ;;571^updte without data in any field except control fields (one field reqrd

 +19      ;;572^update date of movement does not match date of movement in record

 +20      ;;573^combined leave and pass days greater than total elapsed days

 +21      ;;645^more than 32 transactions submitted

 +22      ;;655^a replacement code or a $ eliminated a required related code

 +23      ;;670^transaction does not match N101 transaction or Master Record

 +24      ;;716^duplication of a report of death. Type of disposition '6' or '7'

 +25      ;;718^701 without an "X" in ONLY-DX must be accompanied by a 702

 +26      ;;719^trans. accompanied by 701 with "X" in ONLY-DX or "summary diag" codes

 +27      ;;739^discharge segment already in Master Record

 +28      ;;740^date of discharge is later than processing date

 +29      ;;741^date of discharge does not equal last date of transfer

 +30      ;;742^date of discharge for fiscal year before earlier than current FY

 +31      ;;743^replacement date of discharge is earlier than latest date of surgery

 +32      ;;770^no matching 101 transaction or Master Record

 +33      ;;771^updte without data in any field except control fields (one field reqrd

 +34      ;;772^update with matching 101 transaction but without a matching 701/2/3

 +35      ;;775^invalid PHY LOC CDR code

 +36      ;;776^invalid PHY CDE code

 +37      ;;999^six unacceptable edit conditions

 +38      ;;EXIT

 +39       QUIT