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
Print Page as PDF
Routine: IBTRC2

Package: Integrated Billing

Routine: IBTRC2


Information

IBTRC2 ;ALB/AAS - INSURANCE POLICY CALLS FROM FILE 356.2 DD ; 22-JULY-91

Source Information

Source file <IBTRC2.m>

Entry Points

Name Comments DBIA/ICR reference
DD(IBX,IBDA) ; - called from input transform for field 1.05
; -- input ibx = x from input transform
; ibda = internal entry in 356.2
; -- output returns x=internal entry in 2.3121 (ins. Mult.) if valid
;
DDQ
VAR
SEL(IBX,DFN,INSDT,ACTIVE) ; -- Select insurance policy
; -- Input IBX = x from input transform
; DFN = patient
; INSDT = (optional) Active date of ins. (default = dt)
; ACTIVE = (optional) 1 if want active (default)
; = 2 if want all ins returned
SELQ
BLD
CHK(IBCDFN,ACTIVE,INSDT) ; -- see if active
CQ
CHKQ
DDHELP(IBDA) ; -- Executable help
; -- write out list to choose from
DDHQ
TRANS(IBDA,Y) ; -- output transform
INSCO(IBDA,IBCDFN) ; -- return pointer value of 36 from pt. file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Insurance Policies to Select From"
  • Line Location: DDHELP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DDHELP+8
Info |  Source |  Entry Points |  Interaction Calls