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 |  Local Variables  | All
Print Page as PDF
Routine: IBTRH5B

Package: Integrated Billing

Routine: IBTRH5B


Information

IBTRH5B ;ALB/FA - HCSR Create 278 Request ;12-AUG-2014

Source Information

Source file <IBTRH5B.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

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

Package Total Caller Graph
Integrated Billing 2 IB ADD/EDIT 278  IB CREATE 278 REQUEST  

Entry Points

Name Comments DBIA/ICR reference
OXYTTYPE(FIELD) ;EP
; Dictionary Screen function called from Home Oxygen Therapy Information fields:
; 8.01,8.02,8.03. Prevents the same Oxygen Equipment Type from being selected
; more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
OXYTTYPP(IBTRIEN,FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Oxygen Equipment Type
; fields. Checks to see if subsequent Oxygen Entry Equipment Type entries have
; values.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; FIELD - Field number of the field being checked
; Returns: 1 - Subsequent entries have values, 0 otherwise
OXYTFIND(FIELD) ;EP
; Dictionary Screen function called from Home Oxygen Therapy Information fields:
; 9.04,9.05,9.06. Prevents the same Oxygen Equipment Test finding from being
; selected more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
OXYTFNDP(IBTRIEN,FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Oxygen Test Finding
; fields. Checks to see if subsequent Oxygen Test Findings entries have
; values.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; FIELD - Field number of the field being checked
; Returns: 1 - Subsequent entries have values, 0 otherwise
OUDREASP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Other UMO Denial Reasons
; fields. Checks to see if subsequent Denial Reasons have values.
; Input: FIELD - Field number of the field being checked
; DA - IEN of the 356.2215 multiple entry being edited
; DA(1) - IEN of the Patient Event Entry
; Returns: 1 - Subsequent entries have values, 0 otherwise
ONESL(IBTRIEN,REQCAT,CERTCD,SLTYPE,IBSLCTR) ;EP
; Called from Input Template: IB CREATE 278 REQUEST
; Auto Files a new Profession, Institutional or Dental Service Line multiple
; into 356.22. Only auto files the .02, .03 and 1.12 field. Other specified
; fields are asked within the Input Template according to the Service Line
; Type.
; Input: IBTRIEN - IEN of the selected entry
; REQCAT - IEN of the Request Category to file in .01
; CERTCD - IEN of the Certification Code to file in .02
; SLTYPE - 'P' - Professional Service Line
; 'I' - Institutional Service Line
; 'D' - Dental Service Line
; IBSLCTR - Current number of Service Line multiples
; Output: Service Line multiple is filed into 356.2216
; IBSLCTR - Updated number of Service Line multiples
; Returns: 1 if a Provider Data multiple was filed, 0 otherwise
PITSL(IBREQCAT) ;EP
; Called from Input Template: IB CREATE 278 REQUEST
; Called when creating a new Service Line to determine the type of Service
; Line to be created
; Input: IBREQCAT - IEN of the Patient Event Request Category
; DA(1) - IEN of the selected entry
; DA - IEN of the Service Line Multiple
; Output: IBEXIT - 1 if user entered ^, timed out or answered E
; 0 otherwise.
; if 1 NO service line multiple is filed
; Service Line multiple is filed into 356.2216
; Returns: Label to jump to based upon the type of line selected
; Returns '0' to exit multiple if not entered
PITSL1 ; Looping Tag
PROC(FIELD) ;EP
; Dictionary Screen function called from the following fields in file 356.22:
; 10.07, 16,1.02, 16,1.03
; Prevents dictionary lookup into the wrong dictionary of the variable pointer
; field.
; Input: FIELD - Field # of the field being screened
; DA - IEN of the 356.22 entry if FIELD=10.07. Otherwise, IEN of
; the service line multiple
; DA(1) - IEN of the 356.22 entry being edited if FIELD'=10.07
; DIC - Contains the global ref of dictionary being checked
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
; NOTE: Dental search disabled for now
PROCTYPE() ;EP
; Dictionary Screen function called from field in file 356.2216, 1.01
; Prevents selection of 'ID' or 'ZZ' if entry is not for an inpatient
; Input: DA - IEN of the 356.22 entry if FIELD=10.07. Otherwise, IEN of
; the service line multiple
; DA(1) - IEN of the 356.22 entry being edited if FIELD'=10.07
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
PROCMOD(FIELD) ;EP
; Dictionary Screen function called from Service Line Procedure Modifier Fields:
; 32216,1.04, 32216,1.05, 32216,1.06, 32216,1.07.
; Prevents the same Procedure Modifier from being selected more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
PROCMODP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Service Line Procedure
; Modifier fields. Checks to see if subsequent Procedure Modifier entries have
; values.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Returns: 1 - Subsequent entries have values, 0 otherwise
SLDXP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Service Line Procedure
; Diagnosis fields. Checks to see if subsequent Procedure Diagnosis entries
; have values.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Returns: 1 - Subsequent entries have values, 0 otherwise
ORALCAV(FIELD) ;EP
; Dictionary Screen function called from Service Line Oral Cavity Fields:
; 32216,3.01, 32216,3.02, 32216,3.03, 32216,3.04, 32216,3.05.
; Prevents the same Oral Cavity from being selected more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
ORALCAVP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Service Line Oral Cavity
; fields. Checks to see if subsequent Oral Cavity entries have values.
; Input: DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Returns: 1 - Subsequent entries have values, 0 otherwise
TOOTHS(FIELD) ;EP
; Dictionary Screen function called from Dental Service Line Tooth fields:
; 22164,.02, 22614,.03, 22614,.04, 22614,.05, 22614,.06. Prevents the
; same Tooth Surface from being selected
; more than once.
; Input: FIELD - Field # of the field being checked
; DA - Tooth Surface multiple IEN
; DA(1) - Service Line multiple IEN
; DA(2) - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise

External References

Name Field # of Occurrence
FILE^DIE PITSL1+7
UPDATE^DIE ONESL+23
$$GET1^DIQ PITSL+20, PROC+16, PROC+18, PROC+19, PROCTYPE+11
^DIR PITSL1+1
$$CPT^ICPTCOD PROC+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.22 - [#356.22] GET1^DIQ
356.2216 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBT(356.22 - [#356.22] OXYTTYPE+9, OXYTTYPP+8, OXYTFIND+9, OXYTFNDP+8, OUDREASP+8, PROCTYPE+10, PROCTYPE+14, PROCMOD+10, PROCMODP+9, SLDXP+9
, ORALCAV+10, ORALCAVP+7, TOOTHS+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CERTCD ONESL~, ONESL+21
>> DA OXYTTYPE+9, OXYTFIND+9, OUDREASP+8, PITSL+20, PITSL1+6, PROC+16, PROC+18, PROC+19, PROCTYPE+10, PROCTYPE+11
, PROCMOD+10, PROCMODP+9, SLDXP+9, ORALCAV+10, ORALCAVP+7, TOOTHS+12
>> DA(1 OUDREASP+8, PITSL+20, PITSL1+6, PROC+18, PROC+19, PROCTYPE+10, PROCTYPE+11, PROCTYPE+14, PROCMOD+10, PROCMODP+9
, SLDXP+9, ORALCAV+10, ORALCAVP+7, TOOTHS+12
>> DA(2 TOOTHS+12
DENTAL PROC+13~, PROC+15*, PROC+19*, PROC+23, PROCTYPE+8~, PROCTYPE+10*, PROCTYPE+12, PROCTYPE+13
>> DIC PROC+23, PROC+26, PROC+31
DIR PITSL+13~
DIR("?" PITSL+25*
DIR("A" PITSL+26*
DIR(0 PITSL+22*
DIROUT PITSL+13~
DIRUT PITSL+13~
DTOUT PITSL+13~, PITSL1+2
DUOUT PITSL+13~, PITSL1+2
ERROR PITSL+13~
FDA ONESL+16~, PITSL+13~
FDA( ONESL+20*, ONESL+21*, ONESL+22*, PITSL1+6*
FIELD OXYTTYPE~, OXYTTYPE+14, OXYTTYPE+17, OXYTTYPE+20, OXYTTYPP~, OXYTTYPP+9, OXYTTYPP+10, OXYTFIND~, OXYTFIND+14, OXYTFIND+17
, OXYTFIND+20, OXYTFNDP~, OXYTFNDP+9, OXYTFNDP+10, OUDREASP~, OUDREASP+9, OUDREASP+14, OUDREASP+18, PROC~, PROC+16
, PROCMOD~, PROCMOD+15, PROCMOD+19, PROCMOD+23, PROCMOD+27, PROCMODP~, PROCMODP+10, PROCMODP+15, PROCMODP+19, SLDXP~
, SLDXP+10, SLDXP+15, SLDXP+19, ORALCAV~, ORALCAV+15, ORALCAV+20, ORALCAV+25, ORALCAV+30, ORALCAV+35, ORALCAVP~
, ORALCAVP+8, ORALCAVP+14, ORALCAVP+19, ORALCAVP+23, TOOTHS~, TOOTHS+17, TOOTHS+22, TOOTHS+27, TOOTHS+32, TOOTHS+37
>> IBEXIT PITSL1+2*
IBPSTAT PROCTYPE+8~, PROCTYPE+14*, PROCTYPE+16
IBREQCAT PITSL~
IBSLCTR ONESL~, ONESL+17*
IBTRIEN OXYTTYPP~, OXYTTYPP+8, OXYTFNDP~, OXYTFNDP+8, ONESL~, ONESL+20, ONESL+21, ONESL+22
NDE OXYTTYPE+8~, OXYTTYPE+9*, OXYTTYPE+15, OXYTTYPE+16, OXYTTYPE+18, OXYTTYPE+19, OXYTTYPE+21, OXYTTYPE+22, OXYTTYPP+7~, OXYTTYPP+8*
, OXYTTYPP+9, OXYTTYPP+10, OXYTFIND+8~, OXYTFIND+9*, OXYTFIND+15, OXYTFIND+16, OXYTFIND+18, OXYTFIND+19, OXYTFIND+21, OXYTFIND+22
, OXYTFNDP+7~, OXYTFNDP+8*, OXYTFNDP+9, OXYTFNDP+10, OUDREASP+7~, OUDREASP+8*, OUDREASP+10, OUDREASP+11, OUDREASP+12, OUDREASP+15
, OUDREASP+16, OUDREASP+18, PROCMOD+9~, PROCMOD+10*, PROCMOD+16, PROCMOD+17, PROCMOD+18, PROCMOD+20, PROCMOD+21, PROCMOD+22
, PROCMOD+24, PROCMOD+25, PROCMOD+26, PROCMOD+28, PROCMOD+29, PROCMOD+30, PROCMODP+8~, PROCMODP+9*, PROCMODP+11, PROCMODP+12
, PROCMODP+13, PROCMODP+16, PROCMODP+17, PROCMODP+19, SLDXP+8~, SLDXP+9*, SLDXP+11, SLDXP+12, SLDXP+13, SLDXP+16
, SLDXP+17, SLDXP+19, ORALCAV+9~, ORALCAV+10*, ORALCAV+16, ORALCAV+17, ORALCAV+18, ORALCAV+19, ORALCAV+21, ORALCAV+22
, ORALCAV+23, ORALCAV+24, ORALCAV+26, ORALCAV+27, ORALCAV+28, ORALCAV+29, ORALCAV+31, ORALCAV+32, ORALCAV+33, ORALCAV+34
, ORALCAV+36, ORALCAV+37, ORALCAV+38, ORALCAV+39, ORALCAVP+6~, ORALCAVP+7*, ORALCAVP+9, ORALCAVP+10, ORALCAVP+11, ORALCAVP+12
, ORALCAVP+15, ORALCAVP+16, ORALCAVP+17, ORALCAVP+20, ORALCAVP+21, ORALCAVP+23, TOOTHS+11~, TOOTHS+12*, TOOTHS+18, TOOTHS+19
, TOOTHS+20, TOOTHS+21, TOOTHS+23, TOOTHS+24, TOOTHS+25, TOOTHS+26, TOOTHS+28, TOOTHS+29, TOOTHS+30, TOOTHS+31
, TOOTHS+33, TOOTHS+34, TOOTHS+35, TOOTHS+36, TOOTHS+38, TOOTHS+39, TOOTHS+40, TOOTHS+41
PXTYPE PROC+13~, PROC+16*, PROC+18*, PROC+20, PROC+26, PROC+31
REQCAT ONESL~, ONESL+20
RETURN OXYTTYPE+8~, OXYTTYPE+10*, OXYTTYPE+14, OXYTTYPE+15*, OXYTTYPE+16*, OXYTTYPE+17, OXYTTYPE+18*, OXYTTYPE+19*, OXYTTYPE+20, OXYTTYPE+21*
, OXYTTYPE+22*, OXYTTYPE+23, OXYTFIND+8~, OXYTFIND+10*, OXYTFIND+14, OXYTFIND+15*, OXYTFIND+16*, OXYTFIND+17, OXYTFIND+18*, OXYTFIND+19*
, OXYTFIND+20, OXYTFIND+21*, OXYTFIND+22*, OXYTFIND+23, OUDREASP+7~, OUDREASP+9, OUDREASP+10*, OUDREASP+11*, OUDREASP+12*, OUDREASP+13*
, OUDREASP+14, OUDREASP+15*, OUDREASP+16*, OUDREASP+17*, PROCMOD+9~, PROCMOD+11*, PROCMOD+15, PROCMOD+16*, PROCMOD+17*, PROCMOD+18*
, PROCMOD+19, PROCMOD+20*, PROCMOD+21*, PROCMOD+22*, PROCMOD+23, PROCMOD+24*, PROCMOD+25*, PROCMOD+26*, PROCMOD+27, PROCMOD+28*
, PROCMOD+29*, PROCMOD+30*, PROCMOD+31, PROCMODP+8~, PROCMODP+10, PROCMODP+11*, PROCMODP+12*, PROCMODP+13*, PROCMODP+14*, PROCMODP+15
, PROCMODP+16*, PROCMODP+17*, PROCMODP+18*, SLDXP+8~, SLDXP+10, SLDXP+11*, SLDXP+12*, SLDXP+13*, SLDXP+14*, SLDXP+15
, SLDXP+16*, SLDXP+17*, SLDXP+18*, ORALCAV+9~, ORALCAV+11*, ORALCAV+15, ORALCAV+16*, ORALCAV+17*, ORALCAV+18*, ORALCAV+19*
, ORALCAV+20, ORALCAV+21*, ORALCAV+22*, ORALCAV+23*, ORALCAV+24*, ORALCAV+25, ORALCAV+26*, ORALCAV+27*, ORALCAV+28*, ORALCAV+29*
, ORALCAV+30, ORALCAV+31*, ORALCAV+32*, ORALCAV+33*, ORALCAV+34*, ORALCAV+35, ORALCAV+36*, ORALCAV+37*, ORALCAV+38*, ORALCAV+39*
, ORALCAV+40, ORALCAVP+6~, ORALCAVP+8, ORALCAVP+9*, ORALCAVP+10*, ORALCAVP+11*, ORALCAVP+12*, ORALCAVP+13*, ORALCAVP+14, ORALCAVP+15*
, ORALCAVP+16*, ORALCAVP+17*, ORALCAVP+18*, ORALCAVP+19, ORALCAVP+20*, ORALCAVP+21*, ORALCAVP+22*, TOOTHS+11~, TOOTHS+13*, TOOTHS+17
, TOOTHS+18*, TOOTHS+19*, TOOTHS+20*, TOOTHS+21*, TOOTHS+22, TOOTHS+23*, TOOTHS+24*, TOOTHS+25*, TOOTHS+26*, TOOTHS+27
, TOOTHS+28*, TOOTHS+29*, TOOTHS+30*, TOOTHS+31*, TOOTHS+32, TOOTHS+33*, TOOTHS+34*, TOOTHS+35*, TOOTHS+36*, TOOTHS+37
, TOOTHS+38*, TOOTHS+39*, TOOTHS+40*, TOOTHS+41*, TOOTHS+42
SLTYPE ONESL~, ONESL+22, PITSL+13~, PITSL+20*, PITSL+21, PITSL1+3*, PITSL1+6, PITSL1+8, PROCTYPE+8~, PROCTYPE+11*
, PROCTYPE+15, PROCTYPE+16
X PITSL+13~
XX PITSL+13~, PITSL+23*, PITSL+24*, PITSL+25
Y OXYTTYPE+11, OXYTTYPE+15, OXYTTYPE+16, OXYTTYPE+18, OXYTTYPE+19, OXYTTYPE+21, OXYTTYPE+22, OXYTFIND+11, OXYTFIND+15, OXYTFIND+16
, OXYTFIND+18, OXYTFIND+19, OXYTFIND+21, OXYTFIND+22, PITSL+13~, PITSL1+2, PITSL1+3, PROC+14, PROC+23, PROCTYPE+9
, PROCTYPE+12, PROCTYPE+13, PROCTYPE+15, PROCTYPE+16, PROCMOD+12, PROCMOD+16, PROCMOD+17, PROCMOD+18, PROCMOD+20, PROCMOD+21
, PROCMOD+22, PROCMOD+24, PROCMOD+25, PROCMOD+26, PROCMOD+28, PROCMOD+29, PROCMOD+30, ORALCAV+12, ORALCAV+16, ORALCAV+17
, ORALCAV+18, ORALCAV+19, ORALCAV+21, ORALCAV+22, ORALCAV+23, ORALCAV+24, ORALCAV+26, ORALCAV+27, ORALCAV+28, ORALCAV+29
, ORALCAV+31, ORALCAV+32, ORALCAV+33, ORALCAV+34, ORALCAV+36, ORALCAV+37, ORALCAV+38, ORALCAV+39, TOOTHS+14, TOOTHS+18
, TOOTHS+19, TOOTHS+20, TOOTHS+21, TOOTHS+23, TOOTHS+24, TOOTHS+25, TOOTHS+26, TOOTHS+28, TOOTHS+29, TOOTHS+30
, TOOTHS+31, TOOTHS+33, TOOTHS+34, TOOTHS+35, TOOTHS+36, TOOTHS+38, TOOTHS+39, TOOTHS+40, TOOTHS+41
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All