Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call