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

Package: Accounts Receivable

Routine: PRCAXP


Information

PRCAXP ;WASH-ISC@ALTOONA,PA/TJK-PRINT RX-COPAY EXEMPTION REPORT ;10/23/93 10:01 AM

Source Information

Source file <PRCAXP.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**315**;Mar 20, 1995;Build 67
BEG
DQ ;ENTRY POINT FROM TASK MANAGER FOR PRINTING REPORT
COMPUTE ;SETS TEMPORARY GLOBAL FOR PRINTING
PRINT ;PRINT REPORT
Q
FNDBIL(TRNO,TTYPE) ;
DATA ; SET UP DATA
SET(RX) ;
HEAD ;PRINTS HEADING
SCR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !!,"NO EXEMPTIONS FOR THIS TIME PERIOD"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?115,"-------------",!,?115,$J(+PTOT,13,2),!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: $P(REC,"^",4),$E(PTNM,1,25)," ",?28,$P(REC,U,2),?35,BILL,?48,TRNO,?56,$P(REC,U,3)
  • Condition for execution: $D(CONTINUE)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?115,$J(TRAMT,13,2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"* -indicates patient is deceased"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !!,"EXEMPTION TYPES AND TOTALS"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !!,"D=DECREASE ADJUSTMENT ",?35,$J(TOT("D"),13,2),!,"E=INTEREST/ADMIN EXEMPTION ",?35,$J(TOT("E"),13,2),!,"I=INCREASE ADJUSTMENT FOR REFUND ",?35,$J(TOT("I"),13,2)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,"UNK=EXEMPTION TYPE UNKNOWN",?35,$J(TOT("UNK"),13,2)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,?35,"-------------",!,?35,$J(PGTOT,13,2)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!,"Pg. "_PG,?130-$L(TODAY),TODAY
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,PRCAHDR,!,?53,BEGPR,"-",ENDPR
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,?35,"BILL",?48,"TRAN.",?56,"EXP",?90,"FILL/",?100,"EFFECTIVE"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"PATIENT",?28,"ID",?35,"NUMBER",?48,"NUMBER",?56,"TYP",?60,"RX",?70,"DRUG NAME",?90,"REFL DT",?102,"DATE",?120,"AMOUNT"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,PRCA
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SCR+3
Info |  Source |  Entry Points |  Interaction Calls