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

Package: Registration

Routine: DGCRNS


Information

DGCRNS ;ALB/AAS - IS INSURANCE ACTIVE ; 22-JULY-91

Source Information

Source file <DGCRNS.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;
CHKQ
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
DDQ
DISP ; -Display all insurance company information
; -input DFN
DISPQ
HDR
D1

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
Info |  Source |  Entry Points |  Interaction Calls