source: FOIAVistA/trunk/r/QUASAR-ACKQ/ACKQPCE2.m@ 1654

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

initial load of FOIAVistA 6/30/08 version
File size: 6.1 KB
Line 
1ACKQPCE2 ; HCIOFO/AG - Quasar/PCE Interface - Error Processing; August 1999
2 ;;3.0;QUASAR;;Feb 11, 2000
3 Q
4 ;
5CONVERT(ACKPROB,ACKAPI,ACKRSN) ; convert the error array ACKPROB into a list of errors
6 ;
7 ; this label is called from the main Overnight Interface program
8 ; ^ACKQPCE if the DATA2PCE^PXAPI returns any errors or warnings.
9 ; this routine will format the errors and place them in the local
10 ; array ACKRSN. a separate call to label FILE will add them on the
11 ; database.
12 ;
13 ; requires ACKPROB - array generated by DATA2PCE^PXAPI
14 ; ACKAPI - global ref of encounter data passed in to DATA2PCE
15 ; .ACKRSN - (by reference) - the output array
16 ;
17 ; returns ACKRSN=n and ACKRSN(n)=text where each error is formatted
18 ; to FIELD^INTERNAL VALUE^EXTERNAL VALUE^ERROR/WARNING MESSAGE
19 ; eg ACKRSN(1)="PRIMARY PROVIDER^1234^BLOGGS,FRED^The Provider...
20 ; ...does not have an ACTIVE person class!
21 ;
22 N ACKI
23 N ACKDEBUG S ACKDEBUG="CONVERT"
24 K ACKRSN S ACKRSN=0
25 F ACKI=1:1 Q:'$D(ACKPROB($J,ACKI)) D
26 . I $D(ACKPROB($J,ACKI,"ERROR1")) D ERROR1
27 . K ACKPROB($J,ACKI) ; only error1 messages are kept, all others ignored
28 Q
29 ;
30ERROR1 ; process an Error 1
31 N ACKMSG,ACKEXT,ACKINT,ACKNUM,ACKTYP,ACKFLD,ACKSUB
32 ;
33 ; check for error with visit date
34 I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","ENC D/T",1)) D
35 . S ACKINT=@ACKAPI@("ENCOUNTER",1,"ENC D/T")
36 . S ACKEXT=$$DATETIME(ACKINT)
37 . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","ENC D/T",1)
38 . D ADDRSN("ENC D/T",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
39 . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","ENC D/T",1)
40 ;
41 ; check for error with patient
42 I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","PATIENT",1)) D
43 . S ACKINT=@ACKAPI@("ENCOUNTER",1,"PATIENT")
44 . S ACKEXT=$$PATIENT(ACKINT)
45 . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","PATIENT",1)
46 . D ADDRSN("PATIENT",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
47 . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","PATIENT",1)
48 ;
49 ; check for error with clinic
50 I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","HOS LOC",1)) D
51 . S ACKINT=@ACKAPI@("ENCOUNTER",1,"HOS LOC")
52 . S ACKEXT=$$CLINIC(ACKINT)
53 . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","HOS LOC",1)
54 . D ADDRSN("CLINIC",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
55 . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","HOS LOC",1)
56 ;
57 ; check for any other "ENCOUNTER" errors
58 S ACKFLD="" F S ACKFLD=$O(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD)) Q:ACKFLD="" D
59 . I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD,1))#10=0 Q
60 . I $D(@ACKAPI@("ENCOUNTER",1,ACKFLD))#10=0 Q
61 . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD,1)
62 . S ACKINT=@ACKAPI@("ENCOUNTER",1,ACKFLD)
63 . D ADDRSN(ACKFLD,ACKINT,"",ACKMSG,.ACKRSN)
64 . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD,1)
65 ;
66 ; check for provider name errors
67 I $D(ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME")) D
68 . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME",ACKNUM)) Q:ACKNUM="" D
69 . . S ACKINT=@ACKAPI@("PROVIDER",ACKNUM,"NAME")
70 . . S ACKEXT=$$PRVNAME(ACKINT)
71 . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME",ACKNUM)
72 . . S ACKFLD=$S($D(@ACKAPI@("PROVIDER",ACKNUM,"PRIMARY")):"PRIMARY ",1:"")_"PROVIDER"
73 . . D ADDRSN(ACKFLD,ACKINT,ACKEXT,ACKMSG,.ACKRSN)
74 . . K ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME",ACKNUM)
75 ;
76 ; check for Procedure code errors
77 I $D(ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE")) D
78 . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE",ACKNUM)) Q:ACKNUM="" D
79 . . S ACKINT=@ACKAPI@("PROCEDURE",ACKNUM,"PROCEDURE")
80 . . S ACKEXT=$$CPTNAME(ACKINT)
81 . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE",ACKNUM)
82 . . D ADDRSN("PROCEDURE",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
83 . . K ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE",ACKNUM)
84 ;
85 ; check for Modifier errors
86 S ACKSUB="MODIFIER"
87 F S ACKSUB=$O(ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB)) Q:$E(ACKSUB,1,8)'="MODIFIER" D
88 . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB,ACKNUM)) Q:ACKNUM="" D
89 . . S ACKINT="",ACKEXT=$P(ACKSUB,",",2)
90 . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB,ACKNUM)
91 . . S ACKMSG=ACKMSG_" (Procedure="_$G(@ACKAPI@("PROCEDURE",ACKNUM,"PROCEDURE"))_")"
92 . . D ADDRSN("MODIFIER",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
93 . . K ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB,ACKNUM)
94 ;
95 ; check for Diagnosis code errors
96 I $D(ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS")) D
97 . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS",ACKNUM)) Q:ACKNUM="" D
98 . . S ACKINT=@ACKAPI@("DX/PL",ACKNUM,"DIAGNOSIS")
99 . . S ACKEXT=$$ICDNAME(ACKINT)
100 . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS",ACKNUM)
101 . . D ADDRSN("DIAGNOSIS",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
102 . . K ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS",ACKNUM)
103 ;
104 ; check for any remaining errors not coded for
105 S ACKTYP="" F S ACKTYP=$O(ACKPROB($J,ACKI,"ERROR1",ACKTYP)) Q:ACKTYP="" D
106 . S ACKFLD="" F S ACKFLD=$O(ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD)) Q:ACKFLD="" D
107 . . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM)) Q:ACKNUM="" D
108 . . . I $D(@ACKAPI@(ACKTYP,ACKNUM,ACKFLD))#10=0 Q
109 . . . I $D(ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM))#10=0 Q
110 . . . S ACKINT=@ACKAPI@(ACKTYP,ACKNUM,ACKFLD)
111 . . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM)
112 . . . D ADDRSN(ACKTYP_":"_ACKFLD,ACKINT,"",ACKMSG,.ACKRSN)
113 . . . K ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM)
114 ;
115 ; end of processing errors
116 Q
117 ;
118 ;
119ADDRSN(FLD,INT,EXT,MSG,ACKRSN) ; add erorr to the output array
120 I +$G(ACKRSN)=0 K ACKRSN S ACKRSN=0 ; if count=0 make sure array empty
121 S ACKRSN=ACKRSN+1
122 S $P(ACKRSN(ACKRSN,0),U,1)=ACKRSN ; error number
123 S $P(ACKRSN(ACKRSN,0),U,2)=FLD ; field name
124 S $P(ACKRSN(ACKRSN,0),U,3)=INT ; internal format
125 S $P(ACKRSN(ACKRSN,0),U,4)=EXT ; external format
126 S ACKRSN(ACKRSN,1)=MSG ; error message
127 Q
128PATIENT(ACKPAT) ; get patient name
129 Q $$GET1^DIQ(509850.2,ACKPAT_",",.01,"E")
130PRVNAME(ACKPRV) ; get provider name
131 Q $$GET1^DIQ(200,ACKPRV_",",.01,"E")
132CLINIC(ACKCLN) ; get clinic name
133 Q $$GET1^DIQ(44,ACKCLN_",",.01,"E")
134CPTNAME(ACKCPT) ; get CPT procedure name
135 Q $$GET1^DIQ(509850.4,ACKCPT_",",.01,"E")
136ICDNAME(ACKICD) ; get ICD diagnosis name
137 Q $$GET1^DIQ(509850.1,ACKICD_",",.01,"E")
138DATETIME(Y) ; convert date/time to external
139 D DD^%DT
140 Q Y
Note: See TracBrowser for help on using the repository browser.