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

Package: Accounts Receivable

Routine: PRCADR1


Information

PRCADR1 ;SF-ISC/YJK-PRINT ADDRESS,APPROPR.CDS ;8/16/96 1:02 PM

Source Information

Source file <PRCADR1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**49,138,233**;Mar 20, 1995;Build 4
EN1 ;print the appropriation,pat ref #. (multiple) and amount.
END1
WRPAT
EN2 ;PRINT DEBTOR'S ADDRESS - VENDOR
WR
END2
EN4 ;Print the debtor's other bills.
END4
EN41
END41
EN5 ;Print interest/admin rate date and rate.
EN51 ;
W5
PATNM ;write a patient name for the 3rd party
EN6 ;Insurance insured's information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ORIGINAL AMOUNT: ",$J($P(^PRCA(430,D0,0),U,3),0,2)
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,"MEDICARE CONTRACTUAL ADJUSTMENT: ",$J($P($G(^PRCA(430,D0,13)),"^"),0,2)
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"UNREIMBURSED MEDICARE EXPENSE: ",$J($P($G(^PRCA(430,D0,13)),"^",2),0,2)
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"FISCAL YEAR",?15,"APPROP. CODE",?38,"PAT REFERENCE #",?66,"AMOUNT"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"-----------",?15,"------------",?38,"---------------",?66,"------"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !,?5,PRCAFY,?18,$E(PRCAPPR,1,10),?40,PRCAPAT,?60,$J(PRCAMT,12,2)
  • Line Location: WRPAT+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PRCALN<1
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !,?PRCALN,$P(PRCAGL,U,1)
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: ", ",PRCASTE," ",$P(PRCAGL,U,6)
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: " PHONE NO.:",$P(PRCAGL,U,9)
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: !,"Statement date: "
  • Line Location: EN4+4
Function Call: WRITE
  • Prompt: $S($L(Y)>4:Y,1:"N/A")
  • Line Location: EN4+4
Function Call: WRITE
  • Prompt: !,"OTHER BILLS:",!?2
  • Line Location: EN4+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN4+7
Function Call: WRITE
  • Prompt: !!,"INTEREST EFFECTIVE RATE DATE: ",PRCA("INTD"),?45,"ANNUAL INTEREST RATE: ",PRCA("INTR")
  • Line Location: W5+0
Function Call: WRITE
  • Prompt: !,"ADMIN EFFECTIVE RATE DATE: ",PRCA("ADMD"),?45,"MONTHLY ADMIN RATE: ",PRCA("ADMR")
  • Line Location: W5+1
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$S($D(VADM):VADM(1),1:""),?45,"SSN: ",$S($D(VADM):$P(VADM(2),U,2),1:""),!
  • Line Location: PATNM+3
Function Call: WRITE
  • Prompt: !!,"INSURED'S NAME",?28,"ID NO.",?45,"GROUP NAME",?62,"GROUP NO."
  • Line Location: EN6+2
Function Call: WRITE
  • Prompt: !,?2,$P(Z,U,1),?29,$P(Z,U,4),?46,$P(Z,U,5),?63,$P(Z,U,6)
  • Line Location: EN6+3
Info |  Source |  Entry Points |  Interaction Calls