Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCSC4F

Package: Integrated Billing

Routine: IBCSC4F


Information

IBCSC4F ;ALB/ARH - GET PTF DIAGNOSIS ;10-OCT-1998

Source Information

Source file <IBCSC4F.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 ($$BDATE,$$CSVDATE,$$ICD9)^IBACSV  $$MVDRG^IBCRBG  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
Registration 1 PTFICD^DGPTFUT  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Integrated Billing 6 IBCD4  IBCRBG  IBCSC4A  IBCSC4D  IBCSC4E  IBOMHC  

Entry Points

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
;

External References

Name Field # of Occurrence
PTFICD^DGPTFUT PTFCDS+10
$$GET1^DIQ PTFDDRG+4
$$BDATE^IBACSV SETPOA+3, MAXECODE+3
$$CSVDATE^IBACSV SETPOA+3
$$ICD9^IBACSV MAXECODE+4
$$MVDRG^IBCRBG PTFDX+29
$$FMADD^XLFDT PTFDXDT+17
$$NOW^XLFDT PTFDX+27, PTFDX+40

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] GET1^DIQ

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
$$PTFDDRG PTFDX+39
PTFCDS PTFDX+33, PTFDX+45
PTFDX PTFDXDT+6

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All