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

Package: Integrated Billing

Routine: IB20PT89


Information

IB20PT89 ;ALB/CPM - EXPORT ROUTINE 'DG3PR1' ; 24-FEB-94

Source Information

Source file <IB20PT89.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 4 Q^DG3PR  ^DG3PR2  PID^VADPT6  ZIPOUT^VAFADDR  
VA FileMan 2 NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DG3PR1 ;ALB/JDS/MIR - 3rd PARTY REIMBURSEMENT SORT/PRINT ; 3 MAY 90@8P
SORT
PRINT ;OUTPUT

External References

Name Field # of Occurrence
NOW^%DTC PRINT+5
Q^DG3PR SORT+1
^DG3PR2 PRINT+12
^DIR PRINT+4
PID^VADPT6 PRINT+8
ZIPOUT^VAFADDR PRINT+11

Interaction Calls

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
PRINT SORT

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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