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

Entry Points

Name Comments DBIA/ICR reference
SORT
PRINT ;OUTPUT

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