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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGVPTIB6

Package: Registration

Routine: DGVPTIB6


Information

DGVPTIB6 ;alb/mjk - DGCRNS for export with PIMS v5.3; 4/21/93

Source Information

Source file <DGVPTIB6.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Integrated Billing 1 $$DAT1^IBOUTL  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
DISP ; -Display all insurance company information
; -input DFN
DGCRNS ;ALB/AAS - IS INSURANCE ACTIVE ; 22-JULY-91
HDR
DDQ
CHK ;
CHKQ
DISPQ
DD ; - called from input transform and x-refs for field 101,102,103
; - input requires da=internal entry number in 399
; - outputs dgcrdd(ins co.) array
D1

External References

Name Field # of Occurrence
HOME^%ZIS DISP+3
$$DAT1^IBOUTL D1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Insurance Information"
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !?4,"Insurance Co.",?22,"Policy #",?40,"Group",?52,"Holder",?60,"Effective",?70,"Expires"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !?4,X
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !?4,$S($D(^DIC(36,+IBINS,0)):$E($P(^(0),"^",1),1,16),1:"UNKNOWN")
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: ?52,$S(X="v":"SELF",X="s":"SPOUSE",1:"OTHER")
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: ?60,$$DAT1^IBOUTL($P(IBINS,"^",8)),?70,$$DAT1^IBOUTL($P(IBINS,"^",4))
  • Line Location: D1+4
Routine Call
  • %ZIS
  • Line Location:
    • DISP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DD+3
^DIC(36 - [#36] CHK+4, D1+1
^DPT - [#2] %+1

Label References

Name Line Occurrences
% DD+4
CHK %+1
CHKQ CHK+4, CHK+5, CHK+6, CHK+7, CHK+8
D1 DISP+9, DISP+10
DGCRNS DISP+4
DISPQ DISP+7
HDR DISP+6

Naked Globals

Name Field # of Occurrence
^("U" DD+3
^(0 %+1, CHK+4, D1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DD+3
DFN %+1, DD+3~*, DISP+3
DGCRDD %!, DISP+7, DISPQ!
DGCRDD( CHK+9*, CHKQ, DISP+9
DGCRDDI %!, DISP+7, DISPQ!
DGCRDDI( CHKQ*, DISP+10
DGCRINDT CHK+3, DD+3*, DDQ!
>> DGCRINS %*, CHK+9*
DGCROUTP CHK+3, DD+3*, DDQ!, DISP+4*
DGCRX DISPQ!
DT CHK+3, DD+3
>> IBINS DISP+9*, DISP+10*, D1, D1+1, D1+2, D1+3, D1+4
IOF DISP+3
IOM HDR
J %~, %+1*
X %~, %+1*, CHK+4, CHK+5, CHK+6, CHK+9, CHKQ, CHKQ+1!, DISP+9*, DISP+10*
, HDR*, D1~, D1+3*
X1 CHK+4*, CHK+7, CHK+8, CHKQ+1!
Z CHK+3*, CHK+5, CHK+6, CHKQ+1!
Z1 CHK+3*, CHK+9, CHKQ, CHKQ+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All