Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACKQPCE2

ACKQPCE2.m

Go to the documentation of this file.
  1. ACKQPCE2 ; HCIOFO/AG - Quasar/PCE Interface - Error Processing; August 1999
  1. ;;3.0;QUASAR;;Feb 11, 2000
  1. Q
  1. ;
  1. CONVERT(ACKPROB,ACKAPI,ACKRSN) ; convert the error array ACKPROB into a list of errors
  1. ;
  1. ; this label is called from the main Overnight Interface program
  1. ; ^ACKQPCE if the DATA2PCE^PXAPI returns any errors or warnings.
  1. ; this routine will format the errors and place them in the local
  1. ; array ACKRSN. a separate call to label FILE will add them on the
  1. ; database.
  1. ;
  1. ; requires ACKPROB - array generated by DATA2PCE^PXAPI
  1. ; ACKAPI - global ref of encounter data passed in to DATA2PCE
  1. ; .ACKRSN - (by reference) - the output array
  1. ;
  1. ; returns ACKRSN=n and ACKRSN(n)=text where each error is formatted
  1. ; to FIELD^INTERNAL VALUE^EXTERNAL VALUE^ERROR/WARNING MESSAGE
  1. ; eg ACKRSN(1)="PRIMARY PROVIDER^1234^BLOGGS,FRED^The Provider...
  1. ; ...does not have an ACTIVE person class!
  1. ;
  1. N ACKI
  1. N ACKDEBUG S ACKDEBUG="CONVERT"
  1. K ACKRSN S ACKRSN=0
  1. F ACKI=1:1 Q:'$D(ACKPROB($J,ACKI)) D
  1. . I $D(ACKPROB($J,ACKI,"ERROR1")) D ERROR1
  1. . K ACKPROB($J,ACKI) ; only error1 messages are kept, all others ignored
  1. Q
  1. ;
  1. ERROR1 ; process an Error 1
  1. N ACKMSG,ACKEXT,ACKINT,ACKNUM,ACKTYP,ACKFLD,ACKSUB
  1. ;
  1. ; check for error with visit date
  1. I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","ENC D/T",1)) D
  1. . S ACKINT=@ACKAPI@("ENCOUNTER",1,"ENC D/T")
  1. . S ACKEXT=$$DATETIME(ACKINT)
  1. . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","ENC D/T",1)
  1. . D ADDRSN("ENC D/T",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
  1. . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","ENC D/T",1)
  1. ;
  1. ; check for error with patient
  1. I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","PATIENT",1)) D
  1. . S ACKINT=@ACKAPI@("ENCOUNTER",1,"PATIENT")
  1. . S ACKEXT=$$PATIENT(ACKINT)
  1. . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","PATIENT",1)
  1. . D ADDRSN("PATIENT",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
  1. . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","PATIENT",1)
  1. ;
  1. ; check for error with clinic
  1. I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","HOS LOC",1)) D
  1. . S ACKINT=@ACKAPI@("ENCOUNTER",1,"HOS LOC")
  1. . S ACKEXT=$$CLINIC(ACKINT)
  1. . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","HOS LOC",1)
  1. . D ADDRSN("CLINIC",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
  1. . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER","HOS LOC",1)
  1. ;
  1. ; check for any other "ENCOUNTER" errors
  1. S ACKFLD="" F S ACKFLD=$O(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD)) Q:ACKFLD="" D
  1. . I $D(ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD,1))#10=0 Q
  1. . I $D(@ACKAPI@("ENCOUNTER",1,ACKFLD))#10=0 Q
  1. . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD,1)
  1. . S ACKINT=@ACKAPI@("ENCOUNTER",1,ACKFLD)
  1. . D ADDRSN(ACKFLD,ACKINT,"",ACKMSG,.ACKRSN)
  1. . K ACKPROB($J,ACKI,"ERROR1","ENCOUNTER",ACKFLD,1)
  1. ;
  1. ; check for provider name errors
  1. I $D(ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME")) D
  1. . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME",ACKNUM)) Q:ACKNUM="" D
  1. . . S ACKINT=@ACKAPI@("PROVIDER",ACKNUM,"NAME")
  1. . . S ACKEXT=$$PRVNAME(ACKINT)
  1. . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME",ACKNUM)
  1. . . S ACKFLD=$S($D(@ACKAPI@("PROVIDER",ACKNUM,"PRIMARY")):"PRIMARY ",1:"")_"PROVIDER"
  1. . . D ADDRSN(ACKFLD,ACKINT,ACKEXT,ACKMSG,.ACKRSN)
  1. . . K ACKPROB($J,ACKI,"ERROR1","PROVIDER","NAME",ACKNUM)
  1. ;
  1. ; check for Procedure code errors
  1. I $D(ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE")) D
  1. . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE",ACKNUM)) Q:ACKNUM="" D
  1. . . S ACKINT=@ACKAPI@("PROCEDURE",ACKNUM,"PROCEDURE")
  1. . . S ACKEXT=$$CPTNAME(ACKINT)
  1. . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE",ACKNUM)
  1. . . D ADDRSN("PROCEDURE",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
  1. . . K ACKPROB($J,ACKI,"ERROR1","PROCEDURE","PROCEDURE",ACKNUM)
  1. ;
  1. ; check for Modifier errors
  1. S ACKSUB="MODIFIER"
  1. F S ACKSUB=$O(ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB)) Q:$E(ACKSUB,1,8)'="MODIFIER" D
  1. . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB,ACKNUM)) Q:ACKNUM="" D
  1. . . S ACKINT="",ACKEXT=$P(ACKSUB,",",2)
  1. . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB,ACKNUM)
  1. . . S ACKMSG=ACKMSG_" (Procedure="_$G(@ACKAPI@("PROCEDURE",ACKNUM,"PROCEDURE"))_")"
  1. . . D ADDRSN("MODIFIER",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
  1. . . K ACKPROB($J,ACKI,"ERROR1","PROCEDURE",ACKSUB,ACKNUM)
  1. ;
  1. ; check for Diagnosis code errors
  1. I $D(ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS")) D
  1. . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS",ACKNUM)) Q:ACKNUM="" D
  1. . . S ACKINT=@ACKAPI@("DX/PL",ACKNUM,"DIAGNOSIS")
  1. . . S ACKEXT=$$ICDNAME(ACKINT)
  1. . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS",ACKNUM)
  1. . . D ADDRSN("DIAGNOSIS",ACKINT,ACKEXT,ACKMSG,.ACKRSN)
  1. . . K ACKPROB($J,ACKI,"ERROR1","DX/PL","DIAGNOSIS",ACKNUM)
  1. ;
  1. ; check for any remaining errors not coded for
  1. S ACKTYP="" F S ACKTYP=$O(ACKPROB($J,ACKI,"ERROR1",ACKTYP)) Q:ACKTYP="" D
  1. . S ACKFLD="" F S ACKFLD=$O(ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD)) Q:ACKFLD="" D
  1. . . S ACKNUM="" F S ACKNUM=$O(ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM)) Q:ACKNUM="" D
  1. . . . I $D(@ACKAPI@(ACKTYP,ACKNUM,ACKFLD))#10=0 Q
  1. . . . I $D(ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM))#10=0 Q
  1. . . . S ACKINT=@ACKAPI@(ACKTYP,ACKNUM,ACKFLD)
  1. . . . S ACKMSG=ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM)
  1. . . . D ADDRSN(ACKTYP_":"_ACKFLD,ACKINT,"",ACKMSG,.ACKRSN)
  1. . . . K ACKPROB($J,ACKI,"ERROR1",ACKTYP,ACKFLD,ACKNUM)
  1. ;
  1. ; end of processing errors
  1. Q
  1. ;
  1. ;
  1. ADDRSN(FLD,INT,EXT,MSG,ACKRSN) ; add erorr to the output array
  1. I +$G(ACKRSN)=0 K ACKRSN S ACKRSN=0 ; if count=0 make sure array empty
  1. S ACKRSN=ACKRSN+1
  1. S $P(ACKRSN(ACKRSN,0),U,1)=ACKRSN ; error number
  1. S $P(ACKRSN(ACKRSN,0),U,2)=FLD ; field name
  1. S $P(ACKRSN(ACKRSN,0),U,3)=INT ; internal format
  1. S $P(ACKRSN(ACKRSN,0),U,4)=EXT ; external format
  1. S ACKRSN(ACKRSN,1)=MSG ; error message
  1. Q
  1. PATIENT(ACKPAT) ; get patient name
  1. Q $$GET1^DIQ(509850.2,ACKPAT_",",.01,"E")
  1. PRVNAME(ACKPRV) ; get provider name
  1. Q $$GET1^DIQ(200,ACKPRV_",",.01,"E")
  1. CLINIC(ACKCLN) ; get clinic name
  1. Q $$GET1^DIQ(44,ACKCLN_",",.01,"E")
  1. CPTNAME(ACKCPT) ; get CPT procedure name
  1. Q $$GET1^DIQ(509850.4,ACKCPT_",",.01,"E")
  1. ICDNAME(ACKICD) ; get ICD diagnosis name
  1. Q $$GET1^DIQ(509850.1,ACKICD_",",.01,"E")
  1. DATETIME(Y) ; convert date/time to external
  1. D DD^%DT
  1. Q Y