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

Package: Accounts Receivable

Routine: PRCAGST


Information

PRCAGST ;WASH-ISC@ALTOONA,PA/CMS-Print Patient Statement ;12/12/96 9:39 AM

Source Information

Source file <PRCAGST.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**34,181,190,249,405,406**;Mar 20, 1995;Build 5
EN(DEB,TBAL,PDAT,PBAL,LDT) ;
LB
MES ;text for no amount due
GMT(PRDEB)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"Department of Veterans Affairs",?35,"Acct No.: ",$$ACCT^PRCAAPR1(RCDFN)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,$G(ADD(1))
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,$G(ADD(2)),?50
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: "Due: UPON RECEIPT"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,$G(ADD(3)),?50,$S(TBAL>0:"Amount Due: $"_$J(TBAL,0,2),1:"NO AMOUNT DUE")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,$G(ADD(5)),?50,"Today's Date: "
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,?2,"Please Make your Check or Money Order payable to the ""Department of Veterans"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,?2,"Affairs"" and send payment to the attention of the Agent Cashier at the above"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !,?2,"address. If you have any questions regarding this statement, please call"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,?2,"1-866-400-1238.",!!!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,?7,NAM
  • Line Location: LB+1
Function Call: WRITE
  • Prompt: !,?7,$E(ADD(X),1,40)
  • Line Location: LB+5
Function Call: WRITE
  • Prompt: ?50
  • Line Location: LB+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LB+6
Function Call: WRITE
  • Prompt: !,?2,SITE("COM1")
  • Line Location: LB+7
Function Call: WRITE
  • Prompt: !,?2,"REDUCTION OF INPATIENT COPAYMENT DUE TO GEOGRAPHIC MEANS TEST STATUS"
  • Line Location: LB+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: LB+9
Function Call: WRITE
  • Prompt: !,?10,"Please Detach and Return Top Portion with Payment"
  • Line Location: LB+9
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: LB+10
Function Call: WRITE
  • Prompt: !,"IMPORTANT: Please read the Notice of Rights accompanying this statement!",!
  • Line Location: LB+11
Function Call: WRITE
  • Prompt: !!,?2,"This statement is being sent to you to provide you with information"
  • Line Location: MES+1
Function Call: WRITE
  • Prompt: !,?2,"concerning transactions affecting your account. If a prepayment offset"
  • Line Location: MES+2
Function Call: WRITE
  • Prompt: !,?2,"a bill or you have made one or more payments or charges were removed,"
  • Line Location: MES+3
Function Call: WRITE
  • Prompt: !,?2,"from your account, you are being sent this statement to confirm these actions.",!!
  • Line Location: MES+4
Info |  Source |  Entry Points |  Interaction Calls