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 |