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

Package: Income Verification Match

Routine: IVMLINS1


Information

IVMLINS1 ;ALB/KCL,TDM - IVM INSURANCE DISPLAY POLICY ; 12/23/08 3:44pm

Source Information

Source file <IVMLINS1.m>

Entry Points

Name Comments DBIA/ICR reference
DE ; - select patient for insurance information upload/purge
DEQ ; - clean up variables
GETIN1(IVMI,IVMJ) ; get IN1 segment from (#301.5) file containing ins data
ALL ; - display all insurance company information for patient in DHCP
HDR ; - header for insurance data received from HEC
DISP1 ; - display insurance fields from IN1 segment
DISP2 ; - display ins co. name and address
IVMQ ; - kill variables used from all protocols

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?22,"INSURANCE POLICIES CURRENTLY ON FILE"
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !,?7,$TR($J("",66)," ","*")
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+8
Function Call: WRITE
  • Prompt: !,?23,"INSURANCE POLICY RECEIVED FROM HEC"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?7,$TR($J("",66)," ","*")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?2,"Company: ",?9,$E($P(IVMIN1,HLFS,4),1,32),?45,"Effective Date: ",?62,$$DAT2^IVMUFNC4(IVMEFF)
  • Line Location: DISP1+9
Function Call: WRITE
  • Prompt: !,?2,"Phone #: ",?9,$E($P(IVMIN1,HLFS,7),1,25),?45,"Expiration Date: ",?62,$$DAT2^IVMUFNC4(IVMEXP)
  • Line Location: DISP1+10
Function Call: WRITE
  • Prompt: !,?2,"Address: ",?45,"Subscriber ID: "
  • Line Location: DISP1+11
Function Call: WRITE
  • Prompt: ?59,$E($P(IVMIN1,HLFS,36),1,20)
  • Condition for execution: $P(IVMIN1,HLFS,36)]""
  • Line Location: DISP1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP1+11
Function Call: WRITE
  • Prompt: ?4,$E($P(IVMADD,HLECH,1),1,35)
  • Condition for execution: $P(IVMADD,HLECH,1)]""
  • Line Location: DISP1+12
Function Call: WRITE
  • Prompt: ?45,"Policy Holder: "
  • Line Location: DISP1+12
Function Call: WRITE
  • Prompt: ?59,$S($P(IVMIN1,HLFS,17)="v":"SELF",$P(IVMIN1,HLFS,17)="s":"SPOUSE",1:"OTHER")
  • Condition for execution: $P(IVMIN1,HLFS,17)]""
  • Line Location: DISP1+12
Function Call: WRITE
  • Prompt: $P(IVMADD,HLECH,5)
  • Line Location: DISP1+18
Function Call: WRITE
  • Prompt: !,?45,"Group Number: "
  • Line Location: DISP1+22
Function Call: WRITE
  • Prompt: ?59,$E($P(IVMIN1,HLFS,8),1,20)
  • Condition for execution: $P(IVMIN1,HLFS,8)]""
  • Line Location: DISP1+22
Function Call: WRITE
  • Prompt: ?45,"Pre-Cert. Req?: "
  • Line Location: DISP1+24
Function Call: WRITE
  • Prompt: ?60,$S($P(IVMIN1,HLFS,28)=1:"YES",$P(IVMIN1,HLFS,28)=0:"NO",1:"")
  • Condition for execution: $P(IVMIN1,HLFS,28)]""
  • Line Location: DISP1+24
Function Call: WRITE
  • Prompt: !,?45,"Plan Type: ",?55,$E(IVMPLAN,1,23)
  • Line Location: DISP1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP1+26
Function Call: WRITE
  • Prompt: !,?4,"Insurance Company: ",$E($P(IVMIN1,HLFS,4),1,45),!
  • Line Location: DISP2+1
Function Call: WRITE
  • Prompt: !,?4,"Company Address: "
  • Line Location: DISP2+2
Function Call: WRITE
  • Prompt: ?23,$E($P(IVMADD,HLECH,1),1,35)
  • Condition for execution: $P(IVMADD,HLECH,1)]""
  • Line Location: DISP2+2
Function Call: WRITE
  • Prompt: $P(IVMADD,HLECH,3)
  • Line Location: DISP2+6
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(IVMADD,HLECH,3)]""&($P(IVMADD,HLECH,4)]"")
  • Line Location: DISP2+6
Function Call: WRITE
  • Prompt: $E($P(IVMADD,HLECH,4),1,2)
  • Line Location: DISP2+7
Function Call: WRITE
  • Prompt: $P(IVMADD,HLECH,5)
  • Line Location: DISP2+9
Info |  Source |  Entry Points |  Interaction Calls