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

Package: Integrated Billing

Routine: IBTRH5F


Information

IBTRH5F ;ALB/FA - HCSR Create 278 Request ;15-SEP-2014

Source Information

Source file <IBTRH5F.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 FIELD^DID  UPDATE^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Integrated Billing 1 ($$ASKNEW,$$SELENT)^IBTRH5D  
Kernel 1 $$LJ^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
SELPT(IBTRIEN) ;EP
; Called from within Input template IB CREATE 278 REQUEST
; Provides the user with a quick view of currently entered Patient Transport
; 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 when creating a new entry
PTTYPE(IBTRIEN,REQ) ; Prompts the user to enter the .01 (Entity Identifier) field
; of the Patient Transport Information Multiple
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; REQ - 1 if field is required
; Optional, defaults to 0
; Returns: Selected Entity Identifier or "" of not entered
PTTYPE1 ; Looping tag
DELPT(IBTRIEN,IEN) ; Checks to see if the user entered 'NEW' to create a new
; Patient Transport Information Line and didn't enter any data for it OR
; selected a line to delete. If so, the Patient Transport 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) Patient Transport Information line is deleted (Potentially)
SELSAPI(IBTRIEN,SIEN) ;EP
; Called from within Input template IB CREATE 278 REQUEST
; Provides the user with a quick view of currently entered Service Line
; 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
; SIEN - IEN of the service line multiple being edited
; Returns: Value of the .01 field of the multiple to edit
; "" if creating a new multiple, -2 to exit multiple
; IBNEW=1 when creating a new entry
DELSAPI(IBTRIEN,SIEN,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 or selected
; a line to be deleted. If so, the empty or selected Additional Patient Information
; line is deleted
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; SIEN - IEN of the Service Line 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,SIEN) ; 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
; SIEN - IEN of the Service Line
; Returns: IEN of the selected Report Type or "" of not entered
SELSTI(IBTRIEN,SIEN) ;EP
; Called from within Input template IB CREATE 278 REQUEST
; Provides the user with a quick view of currently entered Service Line Tooth
; 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
; SIEN - Service Line Multiple IEN
; Returns: Value of the .01 field of the multiple to edit
; "" if creating a new multiple, -2 to exit multiple
; IBNEW=1 when creating a new entry
DELSTI(IBTRIEN,SIEN,IEN) ; Checks to see if the user entered 'NEW' to create a new
; Tooth Information Line and didn't enter any data for it OR selected a line
; to be deleted. If so, the Additional Tooth Information line with no data
; (or selected) is deleted
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; SIEN - IEN of the Service Line being edited
; Output: Empty (or selected) Tooth Information line is deleted (Potentially)
TTYPE(IBTRIEN,SIEN) ; Prompts the user to enter the .01 (Tooth) field of the
; Tooth Information multiple
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; SIEN - IEN of the Service Line
; Returns: IEN of the selected Tooth Type or "" of not entered

External References

Name Field # of Occurrence
FIELD^DID PTTYPE1+10
UPDATE^DIE SELPT+42, SELPT+50, SELPT+66, SELSAPI+46, SELSAPI+66, SELSTI+47, SELSTI+67
^DIK DELPT+13, DELPT+22, DELSAPI+14, DELSAPI+23, DELSTI+12, DELSTI+21
$$GET1^DIQ SELPT+25, SELPT+28, SELSAPI+27, SELSAPI+30, SELSAPI+33, SELSTI+26, SELSTI+27, SELSTI+29, SELSTI+31, SELSTI+33
, SELSTI+35
^DIR PTTYPE1+18, RTYPE+8, TTYPE+8
$$ASKNEW^IBTRH5D SELSAPI+40, SELSTI+41
$$SELENT^IBTRH5D SELPT+53, SELSAPI+53, SELSTI+54
$$LJ^XLFSTR SELPT+24, SELPT+27, SELPT+29, SELSAPI+25, SELSAPI+29, SELSAPI+32, SELSAPI+35, SELSTI+24, SELSTI+28, SELSTI+30
, SELSTI+32, SELSTI+34, SELSTI+36

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Two Patient Transport Information lines are required.",!
  • Line Location: SELPT+39
Function Call: WRITE
  • Prompt: !!,"Two Patient Transport Information lines are required.",!!
  • Line Location: SELPT+46
Function Call: WRITE
  • Prompt: !,L1,!,H1,!,H2,!,$P(PTDATA(1),"^",2),!!
  • Line Location: SELPT+47
Function Call: WRITE
  • Prompt: !,"Entry #",ENTNUM," has been deleted."
  • Line Location: SELPT+58
Function Call: WRITE
  • Prompt: !,*7," Entity Identifier is required.",!!
  • Line Location: PTTYPE1+20
Function Call: WRITE
  • Prompt: !!," No Additional Patient Information is currently on file.",!
  • Line Location: SELSAPI+39
Function Call: WRITE
  • Prompt: !,"Entry #",ENTNUM," has been deleted."
  • Line Location: SELSAPI+58
Function Call: WRITE
  • Prompt: !!," No Additional Patient Information is currently on file.",!
  • Line Location: SELSTI+40
Function Call: WRITE
  • Prompt: !,"Entry #",ENTNUM," has been deleted."
  • Line Location: SELSTI+59
Routine Call
  • DIE
  • Line Location:
    • SELPT+42
    • SELPT+50
    • SELPT+66
    • SELSAPI+46
    • SELSAPI+66
    • SELSTI+47
    • SELSTI+67
Routine Call
  • DIR
  • Line Location:
    • PTTYPE1+18
    • RTYPE+8
    • TTYPE+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.022 - [#356.022] GET1^DIQ
^IBT(356.22 - [#356.22] Classic Fileman Calls
356.2214 FIELD^DID,  GET1^DIQ
356.22164 GET1^DIQ
356.22166 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBT(356.22 - [#356.22] SELPT+15, SELPT+20, SELPT+23, PTTYPE1+4, PTTYPE1+6, DELPT+15, DELPT+17, SELSAPI+18, SELSAPI+22, DELSAPI+16
, DELSAPI+18, SELSTI+17, SELSTI+21, DELSTI+14, DELSTI+16

Label References

Name Line Occurrences
$$PTTYPE SELPT+40, SELPT+48, SELPT+61
$$RTYPE SELSAPI+42, SELSAPI+61
$$TTYPE SELSTI+43, SELSTI+62
DELPT SELPT+12, SELPT+57
DELSAPI SELSAPI+14, SELSAPI+57
DELSTI SELSTI+14, SELSTI+58
PTTYPE1 PTTYPE1+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIDATA SELSAPI+10~, SELSAPI+53
AIDATA( SELSAPI+36*, SELSAPI+56, SELSAPI+67
APIIEN DELSAPI+9~, DELSAPI+16*, DELSAPI+17, DELSAPI+18, DELSAPI+21
ARR PTTYPE+6~
ARR("POINTER" PTTYPE1+13, PTTYPE1+14
CNT SELPT+8~, SELPT+18*, SELPT+22*, SELPT+24, SELPT+30, SELPT+38, SELPT+45, SELSAPI+10~, SELSAPI+20*, SELSAPI+24*
, SELSAPI+25, SELSAPI+36, SELSAPI+38, SELSTI+10~, SELSTI+19*, SELSTI+23*, SELSTI+24, SELSTI+37, SELSTI+39
DA SELPT+25, SELPT+28, PTTYPE+6~, DELPT+8~, DELPT+11*, DELPT+20*, DELSAPI+9~, DELSAPI+12*, DELSAPI+21*, RTYPE+5~
, DELSTI+7~, DELSTI+10*, DELSTI+19*, TTYPE+5~
DA(1 PTTYPE1+8*, DELPT+11*, DELPT+20*, DELSAPI+12*, DELSAPI+21*, RTYPE+6*, DELSTI+10*, DELSTI+19*, TTYPE+6*
DA(2 DELSAPI+12*, DELSAPI+21*, RTYPE+6*, DELSTI+10*, DELSTI+19*, TTYPE+6*
DIK DELPT+8~, DELPT+12*, DELPT+21*, DELSAPI+9~, DELSAPI+13*, DELSAPI+22*, DELSTI+7~, DELSTI+11*, DELSTI+20*
DIR PTTYPE+6~, RTYPE+5~, TTYPE+5~
DIR("A" PTTYPE1+11*, RTYPE+7*, TTYPE+7*
DIR(0 PTTYPE1+17*, RTYPE+7*, TTYPE+7*
DIROUT PTTYPE+6~, RTYPE+5~, TTYPE+5~
DIRUT PTTYPE+6~, PTTYPE1+19, PTTYPE1+21, RTYPE+5~, RTYPE+9, TTYPE+5~, TTYPE+9
DTOUT PTTYPE+6~, RTYPE+5~, TTYPE+5~
DUOUT PTTYPE+6~, RTYPE+5~, TTYPE+5~
EIS PTTYPE+6~, PTTYPE1+2*, PTTYPE1+7*, PTTYPE1+9*, PTTYPE1+15
ENTNUM SELPT+8~, SELPT+55*, SELPT+58, SELSAPI+10~, SELSAPI+55*, SELSAPI+58, SELSTI+10~, SELSTI+56*, SELSTI+59
ERR PTTYPE+6~
FDA SELPT+8~, SELSAPI+10~
FDA( SELPT+41*, SELPT+49*, SELPT+65*, SELSAPI+45*, SELSAPI+65*, SELSTI+46*, SELSTI+66*
H1 SELPT+8~, SELPT+32*, SELPT+47, SELPT+53, SELSAPI+10~, SELSAPI+49*, SELSAPI+53, SELSTI+10~, SELSTI+50*, SELSTI+54
H2 SELPT+8~, SELPT+33*, SELPT+47, SELPT+53, SELSAPI+10~, SELSAPI+50*, SELSAPI+53, SELSTI+10~, SELSTI+51*, SELSTI+54
>> IBNEW SELPT+9*, SELPT+63*, SELSAPI+11*, SELSAPI+44*, SELSAPI+64*, SELSTI+11*, SELSTI+45*, SELSTI+64*
IBTRIEN SELPT~, SELPT+12, SELPT+15, SELPT+20, SELPT+23, SELPT+40, SELPT+41, SELPT+48, SELPT+49, SELPT+57
, SELPT+61, SELPT+65, PTTYPE~, PTTYPE1+4, PTTYPE1+6, PTTYPE1+8, DELPT~, DELPT+11, DELPT+15, DELPT+17
, DELPT+20, SELSAPI~, SELSAPI+14, SELSAPI+18, SELSAPI+22, SELSAPI+26, SELSAPI+42, SELSAPI+45, SELSAPI+57, SELSAPI+61
, SELSAPI+65, DELSAPI~, DELSAPI+12, DELSAPI+16, DELSAPI+18, DELSAPI+21, RTYPE~, RTYPE+6, SELSTI~, SELSTI+14
, SELSTI+17, SELSTI+21, SELSTI+25, SELSTI+43, SELSTI+46, SELSTI+58, SELSTI+62, SELSTI+66, DELSTI~, DELSTI+10
, DELSTI+14, DELSTI+16, DELSTI+19, TTYPE~, TTYPE+6
IEN SELPT+8~, SELPT+18*, SELPT+19, SELPT+20*, SELPT+21, SELPT+23, SELPT+25, SELPT+28, SELPT+30, DELPT~
, DELPT+9*, DELPT+10, DELPT+11, SELSAPI+10~, SELSAPI+20*, SELSAPI+21, SELSAPI+22*, SELSAPI+23, SELSAPI+26, SELSAPI+36
, DELSAPI~, DELSAPI+10*, DELSAPI+11, DELSAPI+12, SELSTI+10~, SELSTI+19*, SELSTI+20, SELSTI+21*, SELSTI+22, SELSTI+25
, SELSTI+37, DELSTI~, DELSTI+8*, DELSTI+9, DELSTI+10
IENS SELSAPI+10~, SELSAPI+26*, SELSAPI+27, SELSAPI+30, SELSAPI+33, SELSTI+10~, SELSTI+25*, SELSTI+26, SELSTI+29, SELSTI+31
, SELSTI+33, SELSTI+35
IX PTTYPE+6~, PTTYPE1+2*, PTTYPE1+3, PTTYPE1+4*, PTTYPE1+5, PTTYPE1+6, PTTYPE1+13*, PTTYPE1+14
L1 SELPT+8~, SELPT+34*, SELPT+47, SELPT+53, SELSAPI+10~, SELSAPI+51*, SELSAPI+53, SELSTI+10~, SELSTI+52*, SELSTI+54
L2 SELPT+8~, SELPT+35*, SELPT+53, SELSAPI+10~, SELSAPI+52*, SELSAPI+53, SELSTI+10~, SELSTI+53*, SELSTI+54
MAX SELPT+8~, SELPT+16*, SELPT+53, SELSAPI+10~, SELSAPI+19*, SELSAPI+53, SELSTI+10~, SELSTI+18*, SELSTI+54
PT SELPT+8~, SELPT+23*
PTDATA SELPT+8~, SELPT+53
PTDATA( SELPT+30*, SELPT+56, SELPT+67
PTDATA(1 SELPT+47
PTIEN DELPT+8~, DELPT+15*, DELPT+16, DELPT+17, DELPT+20
PTTYPE SELPT+8~, SELPT+40*, SELPT+41, SELPT+48*, SELPT+49, SELPT+61*, SELPT+62, SELPT+64, SELPT+65
REQ PTTYPE~, PTTYPE1+1*, PTTYPE1+17, PTTYPE1+19
RETIEN SELPT+8~, SELSAPI+10~, SELSTI+10~
RETIEN( SELPT+60, SELSAPI+38, SELSAPI+60, SELSTI+39, SELSTI+61
RETIEN(0 SELPT+38, SELPT+45, SELPT+60, SELSAPI+38, SELSAPI+60, SELSTI+39, SELSTI+61
RTYPE SELSAPI+10~, SELSAPI+42*, SELSAPI+43, SELSAPI+44, SELSAPI+45, SELSAPI+61*, SELSAPI+62, SELSAPI+63, SELSAPI+65
SECT SELPT+8~, SELPT+9*, SELPT+17*, SELPT+53, SELSAPI+10~, SELSAPI+11*, SELSAPI+53, SELSTI+10~, SELSTI+11*, SELSTI+54
SIEN SELSAPI~, SELSAPI+14, SELSAPI+18, SELSAPI+22, SELSAPI+26, SELSAPI+42, SELSAPI+45, SELSAPI+57, SELSAPI+61, SELSAPI+65
, DELSAPI~, DELSAPI+12, DELSAPI+16, DELSAPI+18, DELSAPI+21, RTYPE~, RTYPE+6, SELSTI~, SELSTI+14, SELSTI+17
, SELSTI+21, SELSTI+25, SELSTI+43, SELSTI+46, SELSTI+58, SELSTI+62, SELSTI+66, DELSTI~, DELSTI+10, DELSTI+14
, DELSTI+16, DELSTI+19, TTYPE~, TTYPE+6
TDATA SELSTI+10~
TIDATA SELSTI+10~, SELSTI+54
TIDATA( SELSTI+37*, SELSTI+57, SELSTI+68
TIIEN DELSTI+7~, DELSTI+14*, DELSTI+15, DELSTI+16, DELSTI+19
TTYPE SELSTI+10~, SELSTI+43*, SELSTI+44, SELSTI+45, SELSTI+46, SELSTI+62*, SELSTI+63, SELSTI+65, SELSTI+66
X SELPT+8~, PTTYPE+6~, DELPT+8~, SELSAPI+10~, DELSAPI+9~, RTYPE+5~, SELSTI+10~, DELSTI+7~, TTYPE+5~
XX SELPT+8~, SELPT+15*, SELPT+16, SELPT+24*, SELPT+27*, SELPT+29*, SELPT+30, SELPT+53*, SELPT+54, SELPT+55*
, SELPT+56*, SELPT+57, SELPT+59, SELPT+60, SELPT+62*, SELPT+64*, SELPT+67, PTTYPE+6~, PTTYPE1+6*, PTTYPE1+7
, PTTYPE1+12*, PTTYPE1+16*, PTTYPE1+17, DELPT+8~, DELPT+17*, DELPT+18*, DELPT+19, SELSAPI+10~, SELSAPI+18*, SELSAPI+19
, SELSAPI+25*, SELSAPI+29*, SELSAPI+32*, SELSAPI+35*, SELSAPI+36, SELSAPI+38, SELSAPI+40*, SELSAPI+41, SELSAPI+43*, SELSAPI+44*
, SELSAPI+53*, SELSAPI+54, SELSAPI+55*, SELSAPI+56*, SELSAPI+57, SELSAPI+59, SELSAPI+60, SELSAPI+62*, SELSAPI+63*, SELSAPI+67
, DELSAPI+9~, DELSAPI+18*, DELSAPI+19*, DELSAPI+20, SELSTI+10~, SELSTI+17*, SELSTI+18, SELSTI+24*, SELSTI+28*, SELSTI+30*
, SELSTI+32*, SELSTI+34*, SELSTI+36*, SELSTI+37, SELSTI+39, SELSTI+41*, SELSTI+42, SELSTI+44*, SELSTI+45*, SELSTI+54*
, SELSTI+55, SELSTI+56*, SELSTI+57*, SELSTI+58, SELSTI+60, SELSTI+61, SELSTI+63*, SELSTI+65*, SELSTI+68, DELSTI+7~
, DELSTI+16*, DELSTI+17*, DELSTI+18
Y SELPT+8~, PTTYPE1+22, DELPT+8~, SELSAPI+10~, DELSAPI+9~, RTYPE+5~, RTYPE+10, SELSTI+10~, DELSTI+7~, TTYPE+5~
, TTYPE+10
YY SELPT+8~, SELPT+25*, SELPT+26*, SELPT+27, SELPT+28*, SELPT+29, PTTYPE+6~, PTTYPE1+14*, PTTYPE1+15, PTTYPE1+16
, SELSAPI+10~, SELSAPI+27*, SELSAPI+28*, SELSAPI+29, SELSAPI+30*, SELSAPI+31*, SELSAPI+32, SELSAPI+33*, SELSAPI+34*, SELSAPI+35
, SELSTI+10~, SELSTI+26*, SELSTI+27*, SELSTI+28, SELSTI+29*, SELSTI+30, SELSTI+31*, SELSTI+32, SELSTI+33*, SELSTI+34
, SELSTI+35*, SELSTI+36
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All