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

Package: Integrated Billing

Routine: IBTRH5D


Information

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

Source Information

Source file <IBTRH5D.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 UPDATE^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Integrated Billing 1 JUMPERR^IBTRH5H  
Kernel 1 ($$LJ,$$UP)^XLFSTR  

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

Package Total Caller Graph
Integrated Billing 4 IB CREATE 278 REQUEST SHORT  IBCU72  IBTRH5E  IBTRH5F  

Entry Points

Name Comments DBIA/ICR reference
SELAPI(IBTRIEN) ;EP
; Called from within Input template IB CREATE 278 REQUEST
; Provides the user with a quick view of currently entered Additional Patient
; Information multiples and allows them to select one to edit or enter a new
; one.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; Returns: Value of the .01 field of the multiple to edit
; "" if creating a new multiple, -2 to exit template
; IBNEW - 1 if creating a new entry
DELAPI(IBTRIEN,IEN) ; Checks to see if the user entered 'NEW' to create a new
; Additional Patient Information Line and didn't enter any data for it. Also
; checks to see if user selected to delete a specified line. If so, the
; Additional Patient Information line with no data (or selected) is deleted
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; IEN - Optional, IEN of the multiple to be deleted if passed
; defaults to ""
; Output: Empty or selected Additional Patient Information line is deleted (Potentially)
RTYPE(IBTRIEN) ; Prompts the user to enter the .01 (Report Type) field of the
; Additional Patient Information multiple
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; Returns: IEN of the selected Report Type or "" of not entered
SELPD(IBTRIEN) ;EP
; Called from within Input template IB CREATE 278 REQUEST
; Provides the user with a quick view of currently entered Provider Data
; multiples and allows them to select one to edit or enter a new one.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; IBTRBRF - 1 if this display is being used from the brief template
; 0 or undefined otherwise
; Returns: Value of the .01 field of the multiple to edit
; "" if creating a new multiple, -2 to exit template
; IBNEW=1 when creating a new entry
DELPD(IBTRIEN,IEN) ; Checks to see if the user entered 'NEW' to create a new
; Provider Data Line and didn't enter any data for it or selected a line to
; be deleted. If so, the empty or selected Provider Data line is deleted
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; IEN - Optional, IEN of the multiple to be deleted if passed
; defaults to ""
; Output: Empty or selected Provider Data line is deleted (Potentially)
PTYPE(IBTRIEN) ; Prompts the user to enter the .01 (Provider Type) field of the
; Provider Data multiple
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; Returns: IEN of the selected Provider Type or "" of not entered
SELDX(IBTRIEN) ;EP
; Called from within Input template IB CREATE 278 REQUEST
; Provides the user with a quick view of currently entered Diagnoses and
; allows them to select one to edit or enter a new diagnosis.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; IBTRBRF - 1 if this display is being used from the brief template
; 0 or undefined other otherwise
; Returns: Value of the .01 field of the multiple to edit
; "" if creating a new multiple, -2 to exit template
; -3 if a if a line was deleted
; IBNEW=1 when creating a new entry
DXTYPE(IBTRIEN) ; Prompts the user to enter the .01 (Diagnosis Type) field of
; the diagnosis multiple
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; Returns: IEN of the selected Diagnosis Type or "" of not entered
DELDX(IBTRIEN,IEN) ; Checks to see if the user entered 'NEW' to create a new
; Diagnosis Line and didn't enter any data for it or selected a multiple to
; to be deleted. If so, the empty or selected multiple is deleted
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; IEN - Optional, IEN of the multiple to be deleted if passed
; defaults to ""
; Output: Empty or selected Diagnosis line is deleted (Potentially)
ASKNEW(PROMPT,DEFAULT) ;EP
; Ask if user wants to create a new entry
; Input: PROMPT - Yes/No question to ask the user
; DEFALT - Default Answer
; Optional, if not passed, set to 'YES'
; Returns: 0 - User wants to add a new Entry
; -1 - User doesn't want to add a new entry
; -2 - User wants to exit template
A1 ;
SELENT(ARRAY,H1,H2,L1,L2,MAX,INDENT,SECT) ; Select an entry to add/edit from a list
; Input: ARRAY() - Array of multiple lines to be displayed
; H1 - 1st line of Header Information
; H2 - 2nd line of Header Information
; L1 - 1st line of DIR display
; L2 - Selection line text
; MAX - Multiple Description
; If passed, entering a new line is not allowed
; Optional, defaults to "" if not passed
; INDENT - 1 to indent 2 spaces
; Optional, defaults to 0
; SECT - Section Header
; Returns: # - User wants to edit Entry #
; 0 - User wants to Add a new Entry
; -1 - User wants to skip this section
; -2 - User wants to exit template
SELE1 ;
SELERR(INDENT)

External References

Name Field # of Occurrence
UPDATE^DIE SELAPI+44, SELAPI+64, SELPD+48, SELPD+73, SELDX+48, SELDX+71
^DIK DELAPI+13, DELAPI+22, DELPD+12, DELPD+21, DELDX+12, DELDX+21
$$GET1^DIQ SELAPI+25, SELAPI+28, SELAPI+31, SELPD+25, SELPD+31, SELPD+33, SELDX+26, SELDX+27, SELDX+29, SELDX+32
^DIR RTYPE+7, PTYPE+7, DXTYPE+7, A1+1, SELE1+5
JUMPERR^IBTRH5H A1+2, SELE1+14
$$LJ^XLFSTR SELAPI+24, SELAPI+27, SELAPI+30, SELAPI+33, SELPD+24, SELPD+27, SELPD+32, SELPD+34, SELDX+25, SELDX+28
, SELDX+30, SELDX+33
$$UP^XLFSTR SELE1+7, SELE1+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Additional Patient Information is currently on file.",!
  • Line Location: SELAPI+37
Function Call: WRITE
  • Prompt: !,"Entry #",ENTNUM," has been deleted."
  • Line Location: SELAPI+56
Function Call: WRITE
  • Prompt: !,"Entry #",ENTNUM," has been deleted."
  • Line Location: SELPD+65
Function Call: WRITE
  • Prompt: !,"Entry #",ENTNUM," has been deleted."
  • Line Location: SELDX+63
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELENT+33
Function Call: WRITE
  • Prompt: *7,!!,$S(INDENT:" ",1:"")
  • Line Location: SELE1+21
Function Call: WRITE
  • Prompt: "The maximum Number of "_MAX_" have already been entered.",!
  • Line Location: SELE1+22
Function Call: WRITE
  • Prompt: !!,*7,$S(INDENT:" ",1:"")
  • Line Location: SELERR+2
Function Call: WRITE
  • Prompt: "Enter a number from 1-",CNT,". Enter NEW to enter a new entry."
  • Line Location: SELERR+3
Function Call: WRITE
  • Prompt: !,$S(INDENT:" ",1:"")
  • Line Location: SELERR+4
Function Call: WRITE
  • Prompt: "To delete an entry from the list, select D followed by the "
  • Line Location: SELERR+5
Function Call: WRITE
  • Prompt: !,$S(INDENT:" ",1:"")
  • Line Location: SELERR+6
Function Call: WRITE
  • Prompt: "number of the entry you wish to remove. Press return to skip selection."
  • Line Location: SELERR+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELERR+8
Routine Call
  • DIE
  • Line Location:
    • SELAPI+44
    • SELAPI+64
    • SELPD+48
    • SELPD+73
    • SELDX+48
    • SELDX+71
Routine Call
  • DIR
  • Line Location:
    • RTYPE+7
    • PTYPE+7
    • DXTYPE+7
    • A1+1
    • SELE1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.006 - [#356.006] GET1^DIQ
^IBT(356.22 - [#356.22] Classic Fileman Calls
356.2211 GET1^DIQ
356.2213 GET1^DIQ
356.223 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBT(356.22 - [#356.22] SELAPI+17, SELAPI+21, DELAPI+15, DELAPI+17, SELPD+17, SELPD+21, DELPD+14, DELPD+16, SELDX+18, SELDX+22
, DXTYPE+5, DELDX+14, DELDX+16

Label References

Name Line Occurrences
$$ASKNEW SELAPI+38, SELPD+40, SELDX+40
$$DXTYPE SELDX+44, SELDX+66
$$PTYPE SELPD+44, SELPD+68
$$RTYPE SELAPI+40, SELAPI+59
$$SELENT SELAPI+51, SELPD+60, SELDX+58
A1 A1+2
DELAPI SELAPI+13, SELAPI+55
DELDX SELDX+15, SELDX+62
DELPD SELPD+14, SELPD+64
SELE1 SELE1+13, SELE1+14, SELE1+20, SELE1+28
SELERR SELE1+12, SELE1+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIDATA SELAPI+9~, SELAPI+51
AIDATA( SELAPI+34*, SELAPI+54, SELAPI+65
APIIEN DELAPI+8~, DELAPI+15*, DELAPI+16, DELAPI+17, DELAPI+20
ARRAY SELENT~
ARRAY( SELENT+27, SELENT+29
CNT SELAPI+9~, SELAPI+19*, SELAPI+23*, SELAPI+24, SELAPI+34, SELAPI+36, SELPD+10~, SELPD+19*, SELPD+23*, SELPD+24
, SELPD+35, SELPD+37, SELDX+11~, SELDX+20*, SELDX+24*, SELDX+25, SELDX+34, SELDX+37, SELE1+10, SELE1+24
SELE1+26, SELERR+3
DA SELAPI+25, SELAPI+28, SELAPI+31, DELAPI+8~, DELAPI+11*, DELAPI+20*, RTYPE+4~, SELPD+25, SELPD+31, SELPD+33
, DELPD+7~, DELPD+10*, DELPD+19*, PTYPE+4~, SELDX+26, SELDX+29, SELDX+32, DXTYPE+4~, DXTYPE+5*, DELDX+7~
, DELDX+10*, DELDX+19*
DA(1 DELAPI+11*, DELAPI+20*, RTYPE+5*, DELPD+10*, DELPD+19*, PTYPE+5*, DXTYPE+5*, DELDX+10*, DELDX+19*
DEFAULT ASKNEW~, ASKNEW+9*, ASKNEW+12
DEL SELENT+16~
DIK DELAPI+8~, DELAPI+12*, DELAPI+21*, DELPD+7~, DELPD+11*, DELPD+20*, DELDX+7~, DELDX+11*, DELDX+20*
DIR RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, SELENT+16~
DIR("?" ASKNEW+11*, SELE1+4*
DIR("A" RTYPE+6*, PTYPE+6*, DXTYPE+6*, ASKNEW+12*, SELENT+21*, SELENT+22*, SELENT+23*, SELENT+24*, SELENT+29*, SELENT+30*
, SELENT+31*, SELENT+32*
DIR("B" ASKNEW+12*
DIR(0 RTYPE+6*, PTYPE+6*, DXTYPE+6*, ASKNEW+12*, SELENT+20*
DIROUT RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, SELENT+16~
DIRUT RTYPE+4~, RTYPE+8, PTYPE+4~, PTYPE+8, DXTYPE+4~, DXTYPE+8, ASKNEW+8~, SELENT+16~
DOK SELENT+16~, SELE1+6*, SELE1+8, SELE1+11*, SELE1+13
DTOUT RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, A1+4, SELENT+16~, SELE1+16
DUOUT RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, A1+3, SELENT+16~, SELE1+15
DXDATA SELDX+11~, SELDX+58
DXDATA( SELDX+34*, SELDX+61, SELDX+72
DXIEN DELDX+7~, DELDX+14*, DELDX+15, DELDX+16, DELDX+19
DXTYPE SELDX+11~, SELDX+44*, SELDX+45, SELDX+46, SELDX+47, SELDX+66*, SELDX+67, SELDX+68, SELDX+70
ENTNUM SELAPI+9~, SELAPI+53*, SELAPI+56, SELPD+10~, SELPD+62*, SELPD+65, SELDX+11~, SELDX+60*, SELDX+63
FDA SELAPI+9~, SELPD+10~, SELDX+11~
FDA( SELAPI+43*, SELAPI+63*, SELPD+47*, SELPD+72*, SELDX+47*, SELDX+70*
H1 SELAPI+9~, SELAPI+47*, SELAPI+51, SELPD+10~, SELPD+52*, SELPD+53*, SELPD+54*, SELPD+60, SELDX+11~, SELDX+52*
, SELDX+53*, SELDX+58, SELENT~, SELENT+23
H2 SELAPI+9~, SELAPI+48*, SELAPI+51, SELPD+10~, SELPD+55*, SELPD+56*, SELPD+57*, SELPD+60, SELDX+11~, SELDX+54*
, SELDX+55*, SELDX+58, SELENT~, SELENT+24
>> IBNEW SELAPI+10*, SELAPI+42*, SELAPI+61*, SELPD+11*, SELPD+46*, SELPD+71*, SELDX+12*, SELDX+46*, SELDX+69*
>> IBTRBRF SELPD+30, SELPD+38, SELPD+42, SELPD+53, SELPD+56, SELDX+31, SELDX+38, SELDX+42, SELDX+53, SELDX+55
IBTRIEN SELAPI~, SELAPI+13, SELAPI+17, SELAPI+21, SELAPI+40, SELAPI+43, SELAPI+55, SELAPI+59, SELAPI+63, DELAPI~
, DELAPI+11, DELAPI+15, DELAPI+17, DELAPI+20, RTYPE~, RTYPE+5, SELPD~, SELPD+14, SELPD+17, SELPD+21
, SELPD+44, SELPD+47, SELPD+64, SELPD+68, SELPD+72, DELPD~, DELPD+10, DELPD+14, DELPD+16, DELPD+19
, PTYPE~, PTYPE+5, SELDX~, SELDX+15, SELDX+18, SELDX+22, SELDX+44, SELDX+47, SELDX+62, SELDX+66
, SELDX+70, DXTYPE~, DXTYPE+5, DELDX~, DELDX+10, DELDX+14, DELDX+16, DELDX+19
IEN SELAPI+9~, SELAPI+19*, SELAPI+20, SELAPI+21*, SELAPI+22, SELAPI+25, SELAPI+28, SELAPI+31, SELAPI+34, DELAPI~
, DELAPI+9*, DELAPI+10, DELAPI+11, SELPD+10~, SELPD+19*, SELPD+20, SELPD+21*, SELPD+22, SELPD+25, SELPD+31
, SELPD+33, SELPD+35, DELPD~, DELPD+8*, DELPD+9, DELPD+10, SELDX+11~, SELDX+20*, SELDX+21, SELDX+22*
, SELDX+23, SELDX+26, SELDX+29, SELDX+32, SELDX+34, DELDX~, DELDX+8*, DELDX+9, DELDX+10
INDENT SELENT~, SELENT+18*, SELENT+32, SELE1+12, SELE1+21, SELE1+27, SELERR~, SELERR+2, SELERR+4, SELERR+6
IX SELENT+16~, SELENT+25*, SELENT+26, SELENT+27*, SELENT+28, SELENT+29
L1 SELAPI+9~, SELAPI+49*, SELAPI+51, SELPD+10~, SELPD+58*, SELPD+60, SELDX+11~, SELDX+56*, SELDX+58, SELENT~
, SELENT+21
L2 SELAPI+9~, SELAPI+50*, SELAPI+51, SELPD+10~, SELPD+59*, SELPD+60, SELDX+11~, SELDX+57*, SELDX+58, SELENT~
, SELENT+31
LN SELENT+16~, SELENT+20*, SELENT+21*, SELENT+22*, SELENT+23*, SELENT+24*, SELENT+29*, SELENT+30*, SELENT+31*
MAX SELAPI+9~, SELAPI+18*, SELAPI+51, SELPD+10~, SELPD+18*, SELPD+60, SELDX+11~, SELDX+19*, SELDX+58, SELENT~
, SELENT+17*, SELE1+20, SELE1+22
PDDATA SELPD+10~, SELPD+60
PDDATA( SELPD+35*, SELPD+63, SELPD+74
PDIEN DELPD+7~, DELPD+14*, DELPD+15, DELPD+16, DELPD+19
PROMPT ASKNEW~, ASKNEW+10, ASKNEW+12
PTYPE SELPD+10~, SELPD+44*, SELPD+45, SELPD+46, SELPD+47, SELPD+68*, SELPD+69, SELPD+70, SELPD+72
RETIEN SELAPI+9~, SELPD+10~, SELDX+11~
RETIEN( SELAPI+36, SELAPI+58, SELPD+37, SELPD+67, SELDX+37, SELDX+65
RETIEN(0 SELAPI+36, SELAPI+58, SELPD+37, SELPD+67, SELDX+37, SELDX+65
RTYPE SELAPI+9~, SELAPI+40*, SELAPI+41, SELAPI+42, SELAPI+43, SELAPI+59*, SELAPI+60, SELAPI+62, SELAPI+63
SECT SELAPI+9~, SELAPI+10*, SELAPI+51, SELPD+10~, SELPD+11*, SELPD+60, SELDX+11~, SELDX+12*, SELDX+58, SELENT~
, SELENT+19*
U SELAPI+54, SELPD+63, SELDX+61
X SELAPI+9~, DELAPI+8~, RTYPE+4~, SELPD+10~, DELPD+7~, PTYPE+4~, SELDX+11~, DXTYPE+4~, DELDX+7~, ASKNEW+8~
, SELENT+16~, SELE1+24*
XX SELAPI+9~, SELAPI+17*, SELAPI+18, SELAPI+24*, SELAPI+27*, SELAPI+30*, SELAPI+33*, SELAPI+34, SELAPI+36, SELAPI+38*
, SELAPI+39, SELAPI+41*, SELAPI+42*, SELAPI+51*, SELAPI+52, SELAPI+53*, SELAPI+54*, SELAPI+55, SELAPI+57, SELAPI+58
, SELAPI+60*, SELAPI+62*, SELAPI+65, DELAPI+8~, DELAPI+17*, DELAPI+18*, DELAPI+19, SELPD+10~, SELPD+17*, SELPD+18
, SELPD+24*, SELPD+27*, SELPD+32*, SELPD+34*, SELPD+35, SELPD+37, SELPD+40*, SELPD+42*, SELPD+43, SELPD+45*
, SELPD+46*, SELPD+60*, SELPD+61, SELPD+62*, SELPD+63*, SELPD+64, SELPD+66, SELPD+67, SELPD+69*, SELPD+70*
, SELPD+74, DELPD+7~, DELPD+16*, DELPD+17*, DELPD+18, SELDX+11~, SELDX+18*, SELDX+19, SELDX+25*, SELDX+28*
, SELDX+30*, SELDX+33*, SELDX+34, SELDX+37, SELDX+40*, SELDX+42*, SELDX+43, SELDX+45*, SELDX+46*, SELDX+58*
, SELDX+59, SELDX+60*, SELDX+61*, SELDX+62, SELDX+64, SELDX+65, SELDX+67*, SELDX+68*, SELDX+72, DELDX+7~
, DELDX+16*, DELDX+17*, DELDX+18, ASKNEW+8~, ASKNEW+10*, ASKNEW+11, SELENT+16~, SELE1+2*, SELE1+3*, SELE1+4
SELE1+9*, SELE1+10, SELE1+18*, SELE1+19, SELE1+26
Y SELAPI+9~, DELAPI+8~, RTYPE+4~, RTYPE+9, SELPD+10~, DELPD+7~, PTYPE+4~, PTYPE+9, SELDX+11~, DXTYPE+4~
, DXTYPE+9, DELDX+7~, ASKNEW+8~, A1+2, A1+5, SELENT+16~, SELE1+7*, SELE1+8, SELE1+9, SELE1+14
SELE1+17, SELE1+18
YY SELAPI+9~, SELAPI+25*, SELAPI+26*, SELAPI+27, SELAPI+28*, SELAPI+29*, SELAPI+30, SELAPI+31*, SELAPI+32*, SELAPI+33
, SELPD+10~, SELPD+25*, SELPD+26*, SELPD+27, SELPD+31*, SELPD+32, SELPD+33*, SELPD+34, SELDX+11~, SELDX+26*
, SELDX+27*, SELDX+28, SELDX+29*, SELDX+30, SELDX+32*, SELDX+33, SELENT+16~, SELE1+19*, SELE1+20, SELE1+25
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