IBCSC4F ;ALB/ARH - GET PTF DIAGNOSIS ;10-OCT-1998
Source file <IBCSC4F.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTFDXDT(IBPTF,IBDT1,IBDT2,TF) | ; collect PTF Transfer (501) and Discharge (701) movements and diagnosis within a date range
; if end date is before Discharge date delete Discharge Diagnosis ; if bill is an interim first or interim continuous then the last date on the bill is included in the bill |
|
| PTFDX(IBPTF) | ; collect all PTF Transfer (501) and Discharge (701) movements and diagnosis and try to assign SC
; PTF movements are assigned SC or NSC but diagnosis are not ; this routine 'interprets' this PTF data and 'assigns' SC/NSC to individual Diagnosis ; Movement (501) Diagnosis: all Dx on SC movements are assigned SC ; a Dx on an NSC movement that is also the first Dx on an SC move is assigned SC ; Discharge (701) Diagnosis: if admit is for SC care all discharge Dx are assigned SC ; if the Dx is also the first Dx on an SC movement then is assigned SC ; a Dx on an SC movement only is assigned SC |
|
| SETPOA(IBIFN) | ; get POAs from file 19640.1 and put them into file 362.3
|
|
| MAXECODE(IBIFN) | ; returns 1 if there are already 3 Ecode diagnoses on the claim, 0 otherwise
|
|
| PTFDDRG(PTF) | ; Returns PTF Discharge DRG (#45, 9) calculated field (clean up DG and ICD variables)
|
|
| PTFCDS(PTF,TYPE,NODE,PTFARR) | ; Get PTF Diagnosis (501, 701) and PTF ICD Procedures (401, 601) Codes DBIA ICR #6130
; returns codes for a single event: Discharge, one Movement, one Procedure or one Surgery ; Input: PTF #, TYPE: 701, 501, 401, 601, NODE: subfile IEN requested (501, 401, 601) ; Output: PTFARR returned array of Diagnosis or Procedure codes found for event, pass by reference ; PTFARR(x) = Dx IEN ^ POA ^ ... for 701 and 501, PTFARR(x) = ICD Prc IEN ^ ... for 401 and 601 ; |
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | GET1^DIQ |
