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

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+7
Q^DG3PR SORT+1
^DG3PR2 PRINT+14
^DIR PRINT+6
$$INSUR^IBBAPI PRINT+5
PID^VADPT6 PRINT+10
ZIPOUT^VAFADDR PRINT+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"THIRD PARTY REIMBURSEMENT",?49,"PRINTED: "
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,$P(^DPT(DFN,0),"^",1),?39,"EMPLOYMENT STATUS: "
  • Line Location: PRINT+8
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+9
Function Call: WRITE
  • Prompt: !,"(PT ID: ",VA("PID"),")",?48,"EMPLOYER: ",$P(DGX,"^",1)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,$P(X,"^",1),?46,"OCCUPATION: ",$P(^DPT(DFN,0),"^",7)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,$P(X,"^",2)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,$P(X,"^",3)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,$P(X,"^",4),", ",$S($D(^DIC(5,+$P(X,"^",5),0)):$P(^(0),"^",1),1:"")," "
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT+13
Routine Call
  • DIR
  • Line Location:
    • PRINT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+7
^DGPM - [#405] SORT, PRINT+2, PRINT+3
^DIC(5 - [#5] PRINT+12
^DPT - [#2] PRINT+5, PRINT+8, PRINT+10

Label References

Name Line Occurrences
PRINT SORT

Naked Globals

Name Field # of Occurrence
^( PRINT+8, PRINT+10
^("VET" PRINT+5
^(0 PRINT+2, PRINT+3, PRINT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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