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

Package: Registration

Routine: DG3PR1


Information

DG3PR1 ;ALB/JDS/MIR - 3rd PARTY REIMBURSEMENT SORT/PRINT ; 3 MAY 90@8P

Source Information

Source file <DG3PR1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 Q^DG3PR  ^DG3PR2  PID^VADPT6  ZIPOUT^VAFADDR  
VA FileMan 2 NOW^%DTC  ^DIR  
Integrated Billing 1 $$INSUR^IBBAPI  

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

Package Total Caller Graph
Registration 1 DG3PR  

Entry Points

Name Comments DBIA/ICR reference
SORT
PRINT ;OUTPUT

External References

Name Field # of Occurrence
NOW^%DTC PRINT+6
Q^DG3PR SORT+1
^DG3PR2 PRINT+13
^DIR PRINT+5
$$INSUR^IBBAPI PRINT+4
PID^VADPT6 PRINT+9
ZIPOUT^VAFADDR PRINT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"THIRD PARTY REIMBURSEMENT",?49,"PRINTED: "
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,$P(^DPT(DFN,0),"^",1),?39,"EMPLOYMENT STATUS: "
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: $S(X1=1:"EMPLOYED FULL TIME",X1=2:"EMPLOYED PART TIME",X1=3:"NOT EMPLOYED",X1=4:"SELF EMPLOYED",X1=5:"RETIRED",X1=6:"ACTIVE MILITARY DUTY",1:"UNKNOWN")
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"(PT ID: ",VA("PID"),")",?48,"EMPLOYER: ",$P(DGX,"^",1)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,$P(X,"^",1),?46,"OCCUPATION: ",$P(^DPT(DFN,0),"^",7)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,$P(X,"^",2)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,$P(X,"^",3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,$P(X,"^",4),", ",$S($D(^DIC(5,+$P(X,"^",5),0)):$P(^(0),"^",1),1:"")," "
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT+12
Routine Call
  • DIR
  • Line Location:
    • PRINT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+6
^DGPM - [#405] SORTPRINT+1, PRINT+2
^DIC(5 - [#5] PRINT+11
^DPT - [#2] PRINT+4, PRINT+7, PRINT+9

Label References

Name Line Occurrences
PRINT SORT

Naked Globals

Name Field # of Occurrence
^( PRINT+7, PRINT+9
^("VET" PRINT+4
^(0 PRINT+1, PRINT+2, PRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+6
>> DFN PRINT+3*, PRINT+4, PRINT+7, PRINT+9
>> DGAD PRINT+1*, PRINT+2*, PRINT+3
>> DGBY SORTPRINT+1, PRINT+2
>> DGCA PRINT+1*, PRINT+2*
>> DGDC PRINT+1*, PRINT+2*
>> DGFL SORT*, PRINT+5*
>> DGFR SORT
>> DGI SORT*
>> DGJ SORT*, PRINT+1, PRINT+2
>> DGNOW PRINT+6*
>> DGTIME SORT*, PRINT+5, PRINT+6*
>> DGTO SORT
>> DGX PRINT+7*, PRINT+9
>> DIR(0 PRINT+5*
IOF PRINT+6
IOST PRINT+5
U PRINT+12
>> VA("PID" PRINT+9
>> X PRINT+9*, PRINT+10, PRINT+11, PRINT+12
>> X1 PRINT+7*, PRINT+8
>> Y PRINT+5, PRINT+6*, PRINT+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All