Routine: IB20PT89

Information

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

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

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