IBCSC4F ;ALB/ARH - GET PTF DIAGNOSIS ;10-OCT-1998
Source file <IBCSC4F.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | SETPOA+5 |
| ^DGPT - [#45] | PTFDX+21, PTFDX+25, PTFDX+26, PTFDX+29, PTFDX+39 |
| ^DSIPPOA( | SETPOA+8, SETPOA+15 |
| ^DSIPPOA("B" | SETPOA+7 |
| ^IBA(362.3 - [#362.3] | SETPOA+10, SETPOA+11, SETPOA+15*, MAXECODE+4 |
| ^TMP($J | PTFDXDT+3!, PTFDXDT+8, PTFDXDT+13!, PTFDXDT+14!, PTFDXDT+19, PTFDXDT+21!, PTFDXDT+22!, PTFDX+19!, PTFDX+24*, PTFDX+31* , PTFDX+35*, PTFDX+38*, PTFDX+43*, PTFDX+47*, PTFDX+52, PTFDX+53, PTFDX+54, PTFDX+56, PTFDX+59*, PTFDX+62 , PTFDX+63, PTFDX+64, PTFDX+66, PTFDX+70* |
| Name | Line Occurrences |
|---|---|
| $$PTFDDRG | PTFDX+39 |
| PTFCDS | PTFDX+33, PTFDX+45 |
| PTFDX | PTFDXDT+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | MAXECODE+1~, MAXECODE+3*, MAXECODE+4*, MAXECODE+5 |
| DFN | PTFDX+19~, PTFDDRG+1~ |
| DGDAT | PTFDDRG+1~ |
| DGPMAN | PTFDDRG+1~, PTFCDS+6~ |
| DGPMCA | PTFDDRG+1~, PTFCDS+6~ |
| DGPTDAT | PTFDDRG+1~ |
| DGPTTMP | PTFDDRG+1~ |
| DGTMP | PTFDDRG+1~ |
| DGVAR | PTFDX+19~, PTFDDRG+1~ |
| DIAG | SETPOA+1~, SETPOA+8*, SETPOA+15 |
| DIEN | SETPOA+1~, SETPOA+7*, SETPOA+8, SETPOA+15 |
| DRG | PTFDX+19~, PTFDDRG+1~ |
| DRGCAL | PTFDX+19~, PTFDDRG+1~ |
| DT | PTFDXDT+14 |
| EFFDATE | PTFDDRG+1~ |
| IBADM | PTFDXDT+3~, PTFDXDT+8*, PTFDXDT+10, PTFDXDT+11 |
| IBCNT | PTFDX+19~, PTFDX+34*, PTFDX+35, PTFDX+46*, PTFDX+47 |
| IBD0 | PTFDX+18~, PTFDX+39*, PTFDX+40, PTFDX+41 |
| IBDATE | MAXECODE+1~, MAXECODE+3*, MAXECODE+4 |
| IBDBS | PTFDX+18~, PTFDX+41*, PTFDX+43 |
| IBDDRG | PTFDX+18~, PTFDX+39*, PTFDX+43 |
| IBDDT | PTFDX+18~, PTFDX+40*, PTFDX+43, PTFDX+62*, PTFDX+63, PTFDX+64, PTFDX+66, PTFDX+70 |
| IBDDX | PTFDX+18~, PTFDX+46*, PTFDX+47, PTFDX+64*, PTFDX+67, PTFDX+68 |
| IBDPRV | PTFDX+18~, PTFDX+39*, PTFDX+43 |
| IBDSC | PTFDX+18~, PTFDX+41*, PTFDX+43, PTFDX+66*, PTFDX+67*, PTFDX+68*, PTFDX+70 |
| IBDSCH | PTFDXDT+3~, PTFDXDT+8*, PTFDXDT+10, PTFDXDT+11, PTFDXDT+13, PTFDXDT+14 |
| IBDT | PTFDXDT+3~, PTFDXDT+19*, PTFDXDT+20, PTFDXDT+21, PTFDXDT+22, PTFDX+18~, PTFDX+27*, PTFDX+31, PTFDX+35, PTFDX+40* , PTFDX+43, PTFDX+47 |
| IBDT1 | PTFDXDT~, PTFDXDT+4*, PTFDXDT+11, PTFDXDT+21 |
| IBDT2 | PTFDXDT~, PTFDXDT+4*, PTFDXDT+11, PTFDXDT+13, PTFDXDT+14, PTFDXDT+17*, PTFDXDT+22 |
| IBDX | MAXECODE+1~, MAXECODE+3*, MAXECODE+4* |
| IBI | PTFDX+19~, PTFDX+34*, PTFDX+46*, PTFDX+53*, PTFDX+54, PTFDX+59, PTFDX+63*, PTFDX+64, PTFDX+70, PTFDDRG+1~ , PTFDDRG+4*, PTFDDRG+5 |
| IBIFN | SETPOA~, SETPOA+3, SETPOA+5, SETPOA+10, SETPOA+11, MAXECODE~, MAXECODE+2, MAXECODE+3, MAXECODE+4 |
| IBLAST | PTFDXDT+3~, PTFDXDT+19*, PTFDXDT+22 |
| IBM0 | PTFDX+18~, PTFDX+26*, PTFDX+27, PTFDX+28 |
| IBMBS | PTFDX+18~, PTFDX+28*, PTFDX+31 |
| IBMDRG | PTFDX+18~, PTFDX+29*, PTFDX+31 |
| IBMDT | PTFDXDT+3~, PTFDXDT+20*, PTFDXDT+21, PTFDX+18~, PTFDX+27*, PTFDX+31, PTFDX+52*, PTFDX+53, PTFDX+54, PTFDX+56 , PTFDX+59 |
| IBMDX | PTFDX+18~, PTFDX+34*, PTFDX+35, PTFDX+54*, PTFDX+57 |
| IBMI | PTFDX+18~, PTFDX+25*, PTFDX+26, PTFDX+29, PTFDX+33 |
| IBMP | PTFDX+18~, PTFDX+29* |
| IBMPRV | PTFDX+18~, PTFDX+29*, PTFDX+31 |
| IBMSC | PTFDX+18~, PTFDX+28*, PTFDX+31, PTFDX+35, PTFDX+56*, PTFDX+57*, PTFDX+59 |
| IBPTF | PTFDXDT~, PTFDXDT+3, PTFDXDT+6, PTFDX~, PTFDX+19, PTFDX+21, PTFDX+25, PTFDX+26, PTFDX+29, PTFDX+33 , PTFDX+39, PTFDX+45, SETPOA+1~, SETPOA+5*, SETPOA+7 |
| IBSTAY | PTFDXDT+3~, PTFDXDT+8*, PTFDX+18~, PTFDX+21*, PTFDX+24, PTFDX+38 |
| IBTMP | PTFDX+19~ |
| IBTMP("DXSC" | PTFDX+35*, PTFDX+57, PTFDX+67, PTFDX+68 |
| ICD10ORNIT | PTFDDRG+2~ |
| ICD10ORT | PTFDDRG+2~ |
| ICD10SDT | PTFDDRG+2~ |
| ICDCAL | PTFDX+19~, PTFDDRG+2~ |
| ICDCDSY | PTFDDRG+2~ |
| ICDCSYS | PTFDDRG+2~ |
| ICDDA | PTFDDRG+2~ |
| ICDDATE | PTFDDRG+2~ |
| ICDIEN | PTFDDRG+2~ |
| ICDPOA | PTFDDRG+2~ |
| ICDRG | PTFDDRG+2~ |
| ICDTMP | PTFDDRG+2~ |
| ICDX | PTFDDRG+2~ |
| IEN362 | SETPOA+1~, SETPOA+11*, SETPOA+15 |
| IMPDATE | PTFDDRG+2~ |
| NODE | PTFCDS~, PTFCDS+8*, PTFCDS+10 |
| ORDER | SETPOA+1~, SETPOA+10*, SETPOA+11 |
| POASET | SETPOA+1~, SETPOA+10*, SETPOA+15* |
| PTF | PTFDX+19~, PTFDDRG~, PTFDDRG+4, PTFCDS~, PTFCDS+6, PTFCDS+10 |
| PTFARR | PTFCDS~, PTFCDS+6!*, PTFCDS+10 |
| PTFCOD | PTFDX+19~, PTFDX+33!, PTFDX+45! |
| PTFCOD( | PTFDX+34, PTFDX+46 |
| TF | PTFDXDT~, PTFDXDT+17* |
| TYPE | PTFCDS~, PTFCDS+7*, PTFCDS+8, PTFCDS+10 |
| U | PTFDXDT+8, PTFDX+21, PTFDX+27, PTFDX+28, PTFDX+29, PTFDX+31, PTFDX+35, PTFDX+39, PTFDX+40, PTFDX+41 , PTFDX+43, PTFDX+47, PTFDX+56, PTFDX+59, PTFDX+66, PTFDX+70, SETPOA+5, SETPOA+8, SETPOA+15 |
