source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P640.m@ 1334

Last change on this file since 1334 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.1 KB
Line 
1DG53P640 ;BAY/JAT; UPDATE FILE #45.64;12/7/04 4:29pm ; 12/20/04 7:58pm
2 ;;5.3;Registration;**640**;Aug 13,1993
3 N LINE,X,DGCODE,DIC,DGDESC,Y,DGX,DGY,DGCNT
4 S DGCNT=0
5 D BMES^XPDUTL(">>> Adding new codes to file # 45.64")
6 F LINE=1:1 S X=$T(ADD+LINE) S DGCODE=$P(X,";;",2) Q:DGCODE="EXIT" D
7 .S DIC="^DGP(45.64,",DIC(0)=""
8 .S DGDESC=$P(DGCODE,U,2)
9 .I $L(DGDESC)>70 Q
10 .S DIC("DR")=".02///"_DGDESC
11 .S X=$P(DGCODE,U)
12 .I +$O(^DGP(45.64,"B",X,0)) Q
13 .K DO D FILE^DICN
14 .I Y=-1 Q
15 .S DGX=$P(DGCODE,U),DGY=$P(DGCODE,U,2)
16 .D MES^XPDUTL(" CODE "_DGX_" "_DGY_" added.")
17 .S DGCNT=DGCNT+1
18 I DGCNT<39 D
19 .D MES^XPDUTL("Code(s) missing. Compare with patch description.")
20 Q
21ADD ;new codes - descriptions cannot exceed 70 char.
22 ;;004^station number and suffix invalid
23 ;;070^transaction does not match N101 transaction or Master Record
24 ;;139^101 transaction equal to preceding 101 transaction or Master Record
25 ;;141^replacement date of admission is later than first date of surgery
26 ;;142^replacement date of admission is later than first movement date
27 ;;170^transaction does not match 101 trans. or Master Record (131 trans only
28 ;;171^update without data in any field except control fields (131 trans only
29 ;;441^surgical date in N402 transaction not equal date of one 401
30 ;;455^a replacement code or a $ eliminated a required related code
31 ;;457^duplicate surg codes or dupe of one in Master in different position
32 ;;471^updte without data in any field except control fields (one field reqrd
33 ;;472^updte 431/432 date of surgery does not match date of surgery in 401/02
34 ;;546^trans. 500 deleted the discharge 501 segment without replacement 501
35 ;;553^diagnostic code used without a required related code
36 ;;555^a replacement code or a $ eliminated a required related code
37 ;;557^duplicate diag codes or dupe of one in Master in different position
38 ;;570^transaction does not match 101 transaction or Master Record
39 ;;571^updte without data in any field except control fields (one field reqrd
40 ;;572^update date of movement does not match date of movement in record
41 ;;573^combined leave and pass days greater than total elapsed days
42 ;;645^more than 32 transactions submitted
43 ;;655^a replacement code or a $ eliminated a required related code
44 ;;670^transaction does not match N101 transaction or Master Record
45 ;;716^duplication of a report of death. Type of disposition '6' or '7'
46 ;;718^701 without an "X" in ONLY-DX must be accompanied by a 702
47 ;;719^trans. accompanied by 701 with "X" in ONLY-DX or "summary diag" codes
48 ;;739^discharge segment already in Master Record
49 ;;740^date of discharge is later than processing date
50 ;;741^date of discharge does not equal last date of transfer
51 ;;742^date of discharge for fiscal year before earlier than current FY
52 ;;743^replacement date of discharge is earlier than latest date of surgery
53 ;;770^no matching 101 transaction or Master Record
54 ;;771^updte without data in any field except control fields (one field reqrd
55 ;;772^update with matching 101 transaction but without a matching 701/2/3
56 ;;775^invalid PHY LOC CDR code
57 ;;776^invalid PHY CDE code
58 ;;999^six unacceptable edit conditions
59 ;;EXIT
60 Q
Note: See TracBrowser for help on using the repository browser.