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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Income Verification Match 3 INIT^IVMLINS  (ASK,DOD)^IVMLINS2  $$DAT2^IVMUFNC4  
List Manager 2 CLEAR^VALM1  EN^VALM2  
Health Level Seven 1 ($$FMDATE,$$FMNAME)^HLFNC  
Registration 1 DISP^DGIBDSP  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Income Verification Match 3 IVMLI DISPLAY ENTRY  IVMLINS3  IVMPREC3  

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

External References

Name Field # of Occurrence
DISP^DGIBDSP ALL+7
^DIR DE+34
$$FMDATE^HLFNC DISP1+3
$$FMNAME^HLFNC DISP1+23, DISP1+25
INIT^IVMLINS IVMQ+4
ASK^IVMLINS2 DE+37
DOD^IVMLINS2 DE+28
$$DAT2^IVMUFNC4 DISP1+9, DISP1+10
CLEAR^VALM1 DE+31
EN^VALM2 DE+9

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
Routine Call
  • DIR
  • Line Location:
    • DE+34

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DE+28
^IBE(355.1 - [#355.1] DISP1+6
^IVM(301.5 - [#301.5] GETIN1+1, GETIN1+3
^TMP("IVMIUPL" DE+23
^TMP("IVMLST" DE+14, IVMQ+3

Label References

Name Line Occurrences
$$GETIN1 DE+25
ALL DE+31
DISP1 DE+33
HDR DE+33
IVMQ DEQ+1

Naked Globals

Name Field # of Occurrence
^("ST1" GETIN1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA IVMQ+7!
DFN DE+23*, DE+28, IVMQ+7!
DIR DE+34!
DIR("A" DE+34*
DIR(0 DE+34*
>> HLECH DE+17*, DISP1+12, DISP1+13, DISP1+14, DISP1+15, DISP1+16, DISP1+17, DISP1+18, DISP1+19, DISP1+21
DISP2+2, DISP2+3, DISP2+4, DISP2+5, DISP2+6, DISP2+7, DISP2+8, DISP2+9
>> HLFS DE+17*, DISP1+3, DISP1+6, DISP1+9, DISP1+10, DISP1+11, DISP1+12, DISP1+20, DISP1+21, DISP1+22
DISP1+23, DISP1+24, DISP1+25, DISP2+1
IVM0NOD IVMQ+7!
IVMADD DISP1+5*, DISP1+12, DISP1+13, DISP1+14, DISP1+15, DISP1+16, DISP1+17, DISP1+18, DISP1+19, DISP1+21
DISP2+2, DISP2+3, DISP2+4, DISP2+5, DISP2+6, DISP2+7, DISP2+8, DISP2+9, IVMQ+7!
IVMDND DE+23*, DE+28, IVMQ+7!
IVMDONE DE+6*, IVMQ+4, IVMQ+7!
IVMEFF DISP1+3*, DISP1+9, IVMQ+7!
IVMENT DE+11*, DE+14, IVMQ+7!
IVMEXP DISP1+3*, DISP1+10, IVMQ+7!
IVMI DE+20*, DE+23, DE+25, GETIN1~, GETIN1+1, GETIN1+3, IVMQ+8!
IVMIDX DE+14*, DE+20, IVMQ+8!
IVMIN1 DE+25*, GETIN1+1*, GETIN1+3*, GETIN1+5, DISP1+3, DISP1+5, DISP1+6, DISP1+9, DISP1+10, DISP1+11
DISP1+12, DISP1+20, DISP1+21, DISP1+22, DISP1+23, DISP1+24, DISP1+25*, DISP2+1, IVMQ+8!
IVMJ DE+20*, DE+23, DE+25, GETIN1~, GETIN1+1, GETIN1+3, IVMQ+8!
IVMNAME DE+20*, DE+23, DISP1+23, IVMQ+8!
IVMPLAN DISP1+6*, DISP1+26, IVMQ+8!
IVMSSN DE+20*, IVMQ+8!
>> VALMBCK IVMQ+6*
>> VALMY DE+10
>> VALMY( DE+11
>> XQORNOD(0 DE+9
Y DE+34, IVMQ+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All