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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBTRH5I

Package: Integrated Billing

Routine: IBTRH5I


Information

IBTRH5I ;ALB/FA - HCSR Create 278 Request ;18-NOV-2014

Source Information

Source file <IBTRH5I.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Integrated Billing 9 FSTRNG^IBJU1  PRMARK1^IBTRH1  $$STATUS^IBTRH2  $$GTXNMY^IBTRH3  $$OXYET^IBTRH5C  JUMPERR^IBTRH5H  REQMISS^IBTRH5J  ($$CLRASK,CLRENTRY)^IBTRH5K  
$$PRVDATA^IBTRHLO2  
VA FileMan 4 ^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 3 HOME^%ZIS  ENS^%ZISS  $$FMTE^XLFDT  
List Manager 1 FULL^VALM1  
Registration 1 (DEM,IN5)^VADPT  

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: 3

Package Total Caller Graph
Integrated Billing 3 IB ADD/EDIT 278  IB CREATE 278 REQUEST SHORT  IBTRH2  

Entry Points

Name Comments DBIA/ICR reference
CONTINFO(IBTRIEN,CNARY) ;EP
; Retrieves Contact related information for the specified entry
; Input: IBTRIEN - IEN of the entry to retrieve information from
; Output: CNARY - Array of populated information
SEND278() ;EP
; Called from the input template to allow the user to send a brief 278 request
; transmission, continue answering all questions in the template or skip to
; Service level information
; Input: None
; Returns: 0 - User either wants to send a brief 278 or exit the input
; template
; 255 - User tried to field jump
; 1 - User wants to continue entering info
; 1400 - User wants to skip to Service Detail Information
SVCTYPE()
UDREASN(FIELD)
CHK(NUM) ;
TIMEPDQ()
PDATA(PROV) ; EP
; Retrieves the NPI and Taxonomy codes for the requested Provider
; PROV - Provider to retrieve codes for
; Output: NPI^Taxonomy number
REFDATA(IBTRIEN)
REQMISS(IBTRIEN,IBEXIT) ;EP
; Checks to see if all required fields in the request
; been answered and the user did not '^' the input template
; Input: IBTRIEN - IEN of the entry being checked
; IBEXIT - 0 if user '^' exited the template, 1 otherwise
; Returns: 0 if all required fields have been entered and no '^' exit
; 1 if missing required fields and/or '^' exit. All missing fields
; will be displayed in a warnings message.
DIAGMISS(IBTRIEN,MISSING)
SVCMISS(IBTRIEN,MISSING)
SLINE(IBTRIEN,SIEN) ; Returns the Service line number for a line
; Input: IBTRIEN - IEN of the entry being checked
; SIEN - IEN of the service line being checked
; Returns: Service line number
ATTMISS(IBTRIEN,MISSING)
PERSON(PROV)
CRT278(IBTRIEN) ;EP
; Creates a 278 Request for the selected worklist event
; Input: IBTRIEN - Internal IEN of the selected event
; Output: 278 Request created for the selected worklist event.
; Returns: 1 - if the user exited 'normally', 0 if user '^' exited
COMQUAL()
MISSING(SUB,DESC) ; Function to generate MISSING array
; Input: SUB - subscript of MISSING array
; DESC - description of error condition
; Returns: MISSING array

External References

Name Field # of Occurrence
HOME^%ZIS CRT278+15
ENS^%ZISS CRT278+17
^DIE CRT278+49
$$EXTERNAL^DILFD CONTINFO+7
$$GET1^DIQ REQMISS+10, REQMISS+12, REQMISS+16, REQMISS+18, REQMISS+20, REQMISS+23, REQMISS+24, REQMISS+30, REQMISS+31, DIAGMISS+9
, DIAGMISS+10, DIAGMISS+11, DIAGMISS+13, DIAGMISS+17, DIAGMISS+20, DIAGMISS+23, DIAGMISS+24, SVCMISS+10, SVCMISS+11, SVCMISS+12
, SVCMISS+13, SVCMISS+14, SVCMISS+24, SVCMISS+28, SVCMISS+32, SVCMISS+37, SVCMISS+41, SVCMISS+42, ATTMISS+6, ATTMISS+11
, ATTMISS+12, ATTMISS+14, PERSON+9, CRT278+20, CRT278+32, CRT278+33, CRT278+38
^DIR SEND278+18
FSTRNG^IBJU1 REQMISS+57
PRMARK1^IBTRH1 CRT278+28
$$STATUS^IBTRH2 CRT278+28, CRT278+51
$$GTXNMY^IBTRH3 PDATA+6
$$OXYET^IBTRH5C CRT278+31
JUMPERR^IBTRH5H SEND278+19
REQMISS^IBTRH5J REQMISS+26
$$CLRASK^IBTRH5K CRT278+51
CLRENTRY^IBTRH5K CRT278+51
$$PRVDATA^IBTRHLO2 PDATA+5
DEM^VADPT CRT278+23
IN5^VADPT CRT278+43
FULL^VALM1 CRT278+18
$$FMTE^XLFDT CRT278+37, CRT278+39, CRT278+46, CRT278+47

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: REQMISS+44
Function Call: WRITE
  • Prompt: !,*7,"'^' exit from the template has been detected. You must complete"
  • Line Location: REQMISS+46
Function Call: WRITE
  • Prompt: !,"the entire 278 request before sending it. Currently entered information"
  • Line Location: REQMISS+47
Function Call: WRITE
  • Prompt: !,"has been saved. Use the SR action to finish entering data to send the request."
  • Line Location: REQMISS+48
Function Call: WRITE
  • Prompt: !!,*7,"The following required fields are missing or incorrect:"
  • Line Location: REQMISS+50
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: REQMISS+55
Function Call: WRITE
  • Prompt: !,TEXT(XX1)
  • Line Location: REQMISS+58
Function Call: WRITE
  • Prompt: !!,"A 278 request cannot be sent with missing required fields."
  • Line Location: REQMISS+61
Function Call: WRITE
  • Prompt: !,"Use the AD action to enter required data"
  • Line Location: REQMISS+62
Function Call: WRITE
  • Prompt: !,"Currently entered information has been saved. Use the SR action to finish"
  • Line Location: REQMISS+63
Function Call: WRITE
  • Prompt: !,"entering data to send the request."
  • Line Location: REQMISS+64
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CRT278+26
Routine Call
  • %ZIS
  • Line Location:
    • CRT278+15
Routine Call
  • DIE
  • Line Location:
    • CRT278+49
Routine Call
  • DIR
  • Line Location:
    • SEND278+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.93 - [#355.93] GET1^DIQ
^IBT(356.22 - [#356.22] EXTERNAL^DILFD,  GET1^DIQ
356.2213 GET1^DIQ
356.2216 GET1^DIQ
356.22164 GET1^DIQ
356.22166 GET1^DIQ
356.223 GET1^DIQ
^IBE(365.022 - [#365.022] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(365.013 - [#365.013] SVCTYPE+9, SVCTYPE+12, SVCTYPE+15, SVCTYPE+18, SVCTYPE+21
^IBE(365.015 - [#365.015] TIMEPDQ+10
^IBE(365.021 - [#365.021] COMQUAL+13
^IBT(356.22 - [#356.22] CONTINFO+5, CONTINFO+8, SEND278+10, UDREASN+12, REFDATA+3, REQMISS+14, REQMISS+35, REQMISS+37, REQMISS+39, DIAGMISS+7
, DIAGMISS+8, SVCMISS+7, SVCMISS+34, SVCMISS+36, SVCMISS+38, SVCMISS+40, SLINE+7, ATTMISS+9, CRT278+13, CRT278+30

Label References

Name Line Occurrences
$$SLINE SVCMISS+9
ATTMISS REQMISS+41
CHK UDREASN+15, UDREASN+17, UDREASN+19, UDREASN+21
DIAGMISS REQMISS+37
MISSING REQMISS+11, REQMISS+13, REQMISS+17, REQMISS+19, REQMISS+21, REQMISS+23, REQMISS+24, REQMISS+35, SVCMISS+26, SVCMISS+27
, SVCMISS+30, SVCMISS+31, SVCMISS+33, SVCMISS+37, SVCMISS+41, SVCMISS+42
SVCMISS REQMISS+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AT SVCMISS+39~, SVCMISS+40*, SVCMISS+41, SVCMISS+42
CDE SVCTYPE+6~, SVCTYPE+8*, SVCTYPE+9, SVCTYPE+11*, SVCTYPE+12, SVCTYPE+14*, SVCTYPE+15, SVCTYPE+17*, SVCTYPE+18, SVCTYPE+20*
, SVCTYPE+21, TIMEPDQ+7~, TIMEPDQ+9*, TIMEPDQ+10, COMQUAL+10~, COMQUAL+12*, COMQUAL+13
CNARY CONTINFO~, CRT278+5~
CNARY( CONTINFO+8*
CNT SLINE+4~, SLINE+5*, SLINE+9*, SLINE+10
COUNT SVCMISS+4~, SVCMISS+24*, SVCMISS+25, SVCMISS+28*, SVCMISS+29
CTC REQMISS+8~, REQMISS+12*
DA SEND278+10, UDREASN+12, CRT278+5~, CRT278+12*
DA(1 UDREASN+12
DESC MISSING~, MISSING+6
DFN CRT278+5~, CRT278+20*, CRT278+22
DIE CRT278+5~, CRT278+12*
DIR SEND278+11~
DIR("?" SEND278+17*
DIR("A" SEND278+13*
DIR(0 SEND278+13*
DIROUT SEND278+11~
DIRUT SEND278+11~
DR CRT278+5~, CRT278+12*
DTOUT SEND278+11~, CRT278+5~
DUOUT SEND278+11~, SEND278+20, CRT278+48!
DXCODE DIAGMISS+6~, DIAGMISS+10*, DIAGMISS+16, ATTMISS+5~
DXDATE DIAGMISS+6~, DIAGMISS+11*, DIAGMISS+20, ATTMISS+5~
DXTYPE DIAGMISS+6~, DIAGMISS+9*, DIAGMISS+12, DIAGMISS+23, ATTMISS+5~
FIELD UDREASN~, UDREASN+14, UDREASN+16, UDREASN+18, UDREASN+20
FOUND ATTMISS+5~, ATTMISS+7*, ATTMISS+8, ATTMISS+14*, ATTMISS+15
IBBACK CRT278+5~
IBCCAT CRT278+5~
IBCERTCD CRT278+5~
IBDISDT CRT278+5~, CRT278+34*, CRT278+37*, CRT278+38*, CRT278+39*, CRT278+44*, CRT278+45, CRT278+46*
IBDXCTR CRT278+5~
IBEVDT CRT278+5~, CRT278+33*, CRT278+34, CRT278+35*, CRT278+42, CRT278+47*
IBEXIT REQMISS~, REQMISS+43, REQMISS+45, REQMISS+60, CRT278+6~
IBFILT CRT278+6~
IBMLN CRT278+6~
IBNEW CRT278+6~
IBOXYET CRT278+6~, CRT278+31*
IBPSTAT CRT278+6~, CRT278+32*, CRT278+36
IBREQCAT CRT278+6~
IBRESP CRT278+6~, CRT278+30*
IBSSTYP CRT278+6~
IBSTYP CRT278+6~
IBTEMP CRT278+6~
>> IBTRENT REQMISS+62
IBTRIEN CONTINFO~, CONTINFO+5, CONTINFO+8, REFDATA~, REFDATA+3, REQMISS~, REQMISS+9, REQMISS+14, REQMISS+35, REQMISS+37
, REQMISS+39, REQMISS+41, DIAGMISS~, DIAGMISS+7, DIAGMISS+8, DIAGMISS+9, DIAGMISS+10, DIAGMISS+11, DIAGMISS+24, SVCMISS~
, SVCMISS+7, SVCMISS+9, SVCMISS+10, SVCMISS+11, SVCMISS+12, SVCMISS+13, SVCMISS+14, SVCMISS+34, SVCMISS+36, SVCMISS+38
, SVCMISS+40, SLINE~, SLINE+7, ATTMISS~, ATTMISS+6, ATTMISS+9, ATTMISS+11, ATTMISS+14, CRT278~, CRT278+12
, CRT278+13, CRT278+20, CRT278+28, CRT278+30, CRT278+31, CRT278+32, CRT278+33, CRT278+38, CRT278+51
IBUPOUT CRT278+7~, CRT278+12*, CRT278+50
IEN SVCTYPE+6~, SVCTYPE+9*, SVCTYPE+10, SVCTYPE+12*, SVCTYPE+13, SVCTYPE+15*, SVCTYPE+16, SVCTYPE+18*, SVCTYPE+19, SVCTYPE+21*
, SVCTYPE+22, TIMEPDQ+7~, TIMEPDQ+10*, TIMEPDQ+11, SLINE+4~, SLINE+5*, SLINE+6, SLINE+7*, SLINE+8, ATTMISS+5~
, ATTMISS+7*, ATTMISS+8, ATTMISS+9*, ATTMISS+10, ATTMISS+11, ATTMISS+14, COMQUAL+10~, COMQUAL+13*, COMQUAL+14
IENS SVCTYPE+6~, TIMEPDQ+7~, REQMISS+8~, REQMISS+9*, REQMISS+10, REQMISS+12, REQMISS+16, REQMISS+18, REQMISS+20, REQMISS+23
, REQMISS+24, REQMISS+30, REQMISS+31, DIAGMISS+13, DIAGMISS+17, DIAGMISS+20, DIAGMISS+23, SVCMISS+24, SVCMISS+28, SVCMISS+32
, SVCMISS+37, SVCMISS+41, SVCMISS+42, COMQUAL+10~
IENS( SVCTYPE+10*, SVCTYPE+13*, SVCTYPE+16*, SVCTYPE+19*, SVCTYPE+22*, SVCTYPE+23, TIMEPDQ+11*, TIMEPDQ+12, COMQUAL+14*, COMQUAL+15
IOF CRT278+26
IOHTS CRT278+9~
IOHUP CRT278+9~
IOICH CRT278+9~
IOIND CRT278+9~
IOINH CRT278+9~
IOINLOW CRT278+9~
IOINORM CRT278+9~
IOINSERT CRT278+9~
IOIRM0 CRT278+9~
IOIRM1 CRT278+9~
IOKP0 CRT278+10~
IOKP1 CRT278+10~
IOKP4 CRT278+10~
IOKP5 CRT278+10~
IOPK2 CRT278+10~
IOPK3 CRT278+10~
IOREMOVE CRT278+10~
IORESET CRT278+10~
IORLF CRT278+10~
IORVOFF CRT278+10~
IORVON CRT278+10~
IOSC CRT278+11~
IOSELECT CRT278+11~
IOSGR0 CRT278+11~
IOSMPLX CRT278+11~
IOSTBM CRT278+11~
IOSWL CRT278+11~
IOTBC CRT278+11~
IOTBCALL CRT278+11~
IOUOFF CRT278+11~
IOUON CRT278+11~
IOUPAR CRT278+11~
MISSING REQMISS+8~, REQMISS+9*, REQMISS+32*, REQMISS+37, REQMISS+39, REQMISS+41, REQMISS+43, REQMISS+49, DIAGMISS~, DIAGMISS+15*
, DIAGMISS+19*, DIAGMISS+22*, DIAGMISS+26*, SVCMISS~, SVCMISS+18*, SVCMISS+22*, ATTMISS~, ATTMISS+18*, MISSING+5*
MISSING( REQMISS+53, REQMISS+55, REQMISS+57, SVCMISS+18*, SVCMISS+22*, MISSING+6*
MISSING("Atte nding Physician" , ATTMISS+18*
MISSING("Diag nosis Code " , DIAGMISS+19*, nosis Date Known " , DIAGMISS+22*, nosis Type " , DIAGMISS+15*, nosis Type" , DIAGMISS+26*
MISSING("Prognosis" REQMISS+34*
NDE UDREASN+9~, UDREASN+12*, CHK+1
NODE19 CONTINFO+4~, CONTINFO+5*, CONTINFO+7, CRT278+7~, CRT278+13*
NUM CHK~, CHK+1
PATLINE CRT278+7~, CRT278+24*, CRT278+25*
PCODE SVCMISS+4~, SVCMISS+11*, SVCMISS+12*, SVCMISS+19
PROV PDATA~, PDATA+5, PDATA+6, PERSON~, PERSON+5, PERSON+8
PTYP SVCMISS+4~
PTYPE SVCMISS+10*, SVCMISS+11, SVCMISS+15, PERSON+4~, PERSON+9*, PERSON+10
QUAL CONTINFO+4~, CONTINFO+7*, CONTINFO+8
REFINFO REFDATA+2~, REFDATA+3*, REFDATA+5
RET UDREASN+9~, UDREASN+10*, UDREASN+14, UDREASN+16, UDREASN+18, UDREASN+20, UDREASN+22, CHK+1*
REV SVCMISS+4~, SVCMISS+14*, SVCMISS+16, SVCMISS+20
RIEN REFDATA+2~, REFDATA+4*
SEL SEND278+11~
SIEN SVCMISS+4~, SVCMISS+5*, SVCMISS+6, SVCMISS+7*, SVCMISS+8, SVCMISS+9, SVCMISS+10, SVCMISS+11, SVCMISS+12, SVCMISS+13
, SVCMISS+14, SVCMISS+24, SVCMISS+28, SVCMISS+32, SVCMISS+34, SVCMISS+36, SVCMISS+37, SVCMISS+38, SVCMISS+40, SVCMISS+41
, SVCMISS+42, SLINE~, SLINE+6
START DIAGMISS+6~, DIAGMISS+7*, DIAGMISS+13, DIAGMISS+17, DIAGMISS+20, DIAGMISS+23
SUB MISSING~, MISSING+6
TEXT REQMISS+56~, REQMISS+57
TEXT( REQMISS+58
TOO SVCMISS+35~, SVCMISS+36*, SVCMISS+37
TYPE REQMISS+8~, REQMISS+18*, REQMISS+20, REQMISS+22, SVCMISS+4~, SVCMISS+13*, SVCMISS+16, SVCMISS+20, SVCMISS+23
U SEND278+10, CRT278+51
UNIT SVCMISS+4~, SVCMISS+24*, SVCMISS+25, SVCMISS+26, SVCMISS+28*, SVCMISS+29, SVCMISS+30
VADM CRT278+7~
VADM(1 CRT278+24
VADM(2 CRT278+24
VADM(3 CRT278+25
VADM(4 CRT278+25
VAIP CRT278+41~
VAIP("D" CRT278+42*
VAIP(17 CRT278+44
X SEND278+19, CRT278+7~, CRT278+16*
XX SEND278+11~, SEND278+12*, SEND278+13, SEND278+14*, SEND278+15*, SEND278+16*, SEND278+17, PDATA+4~, PDATA+6*, PDATA+7*
, PDATA+8, REFDATA+2~, REFDATA+3*, REFDATA+4, REQMISS+8~, REQMISS+14*, REQMISS+15, REQMISS+33*, REQMISS+34, REQMISS+51*
, REQMISS+52, REQMISS+53*, REQMISS+54, REQMISS+55, REQMISS+57, DIAGMISS+6~, DIAGMISS+7*, DIAGMISS+8*, DIAGMISS+9, DIAGMISS+10
, DIAGMISS+11, DIAGMISS+13, DIAGMISS+14, DIAGMISS+15, DIAGMISS+17, DIAGMISS+18, DIAGMISS+19, DIAGMISS+20, DIAGMISS+22, DIAGMISS+23
, DIAGMISS+24, DIAGMISS+25*, DIAGMISS+26, SVCMISS+4~, SVCMISS+17*, SVCMISS+18, SVCMISS+21*, SVCMISS+22, ATTMISS+5~, ATTMISS+11*
, ATTMISS+12*, ATTMISS+13, ATTMISS+17*, ATTMISS+18, PERSON+4~, PERSON+5*, PERSON+6, PERSON+7, PERSON+8*, PERSON+9
, CRT278+7~, CRT278+50*, CRT278+51, CRT278+52
XX1 REQMISS+56~, REQMISS+58*, DIAGMISS+6~, DIAGMISS+13*, DIAGMISS+14*, DIAGMISS+15, DIAGMISS+17*, DIAGMISS+18*, DIAGMISS+19, DIAGMISS+21*
, DIAGMISS+22
XX2 CRT278+7~
Y SEND278+20*, SEND278+21, SVCTYPE+23, UDREASN+11, CHK+1, TIMEPDQ+12, CRT278+7~, CRT278+50, COMQUAL+15
YY REQMISS+8~, DIAGMISS+6~, DIAGMISS+24*, DIAGMISS+25, SVCMISS+4~, SVCMISS+9*, SVCMISS+17, SVCMISS+18, SVCMISS+21, SVCMISS+22
, SVCMISS+26, SVCMISS+27, SVCMISS+30, SVCMISS+31, SVCMISS+33, SVCMISS+37, SVCMISS+41, SVCMISS+42, ATTMISS+5~, CRT278+7~
YY1 REQMISS+8~
YY2 REQMISS+8~
Z CONTINFO+4~, CONTINFO+6*, CONTINFO+7, CONTINFO+8, UDREASN+9~, UDREASN+15*, UDREASN+17*, UDREASN+19*, UDREASN+21*, CRT278+7~
, CRT278+21*, CRT278+24*
ZZ PDATA+4~, PDATA+5*, PDATA+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All