Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^%DT  NOW^%DTC  ^DIR  
Outpatient Pharmacy 1 $$GET1^PSODI  
Registration 1 (DEM,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Accounts Receivable 1 PRCAX CO-PAY EXEMPTION REPORT  

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 ;

External References

Name Field # of Occurrence
^%DT BEG, BEG+1
NOW^%DTC BEG
^%ZIS BEG+3
^%ZISC Q
^%ZTLOAD BEG+4
^DIR SCR+4
$$GET1^PSODI DATA+4, DATA+5, DATA+6, DATA+7
DEM^VADPT COMPUTE+9
KVAR^VADPT COMPUTE+9
$$FMTE^XLFDT FNDBIL+12, DATA+8

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
Routine Call
  • DIR
  • Line Location:
    • SCR+4
Routine Call
  • %ZIS
  • Line Location:
    • BEG+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+2, PRINT+3, PRINT+4
^IB - [#350] FNDBIL+4
^IB("ABIL" FNDBIL+3
^PRCA(430 - [#430] COMPUTE+7
^PRCA(433 - [#433] COMPUTE+2, COMPUTE+3, COMPUTE+4
^RCD(340 - [#340] COMPUTE+8
^TMP($J COMPUTE+1!, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11, PRINT+12, DATA+9, SET+1*

Label References

Name Line Occurrences
DATA FNDBIL+7, FNDBIL+8
FNDBIL COMPUTE+10
HEAD PRINT+4, PRINT+15, PRINT+18
PRINT COMPUTE+2
Q BEG, BEG+1, BEG+3, BEG+4, PRINT+5, PRINT+16
SCR HEAD+1
SET FNDBIL+13, DATA+10

Naked Globals

Name Field # of Occurrence
^(1 COMPUTE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% V+2~, BEG
%DT V+2~, BEG*, BEG+1*
%DT("A" BEG*, BEG+1*
%DT("B" BEG+1*
%DT(0 BEG*
%ZIS V+2~, BEG+3*
ARTRN FNDBIL+1~, FNDBIL+4*, FNDBIL+7, FNDBIL+8, SET+1
BEG V+2~, BEG*, COMPUTE+1, PRINT+2, PRINT+23!
BEGPR DQ+1~, PRINT+2*, HEAD+5
BILL DQ+1~, COMPUTE+7*, PRINT+8*, PRINT+9, PRINT+11, PRINT+12, FNDBIL+3, DATA+9, SET+1
BLNO DQ+2~, COMPUTE+5*, COMPUTE+7
CNT FNDBIL+1~, FNDBIL+2*, FNDBIL+9, DATA+2*
CONTINUE DQ+1~, PRINT+7*, PRINT+10*, PRINT+12, PRINT+13, PRINT+14, PRINT+15!, HEAD+9*
DFN DQ+1~, COMPUTE+7*, COMPUTE+8*, PRINT+7*, PRINT+8, PRINT+9, PRINT+11, PRINT+12, DATA+9, SET+1
DIR SCR+2~
DIR(0 SCR+4*
DIROUT SCR+2~
DIRUT SCR+2~, SCR+4
DRUG FNDBIL+1~, DATA+4*, SET+1
DT PRINT+4
DTH DQ+2~, COMPUTE+9*, SET+1
DTOUT SCR+2~, SCR+4
DUOUT SCR+2~
EDT FNDBIL+1~, FNDBIL+2*, FNDBIL+4*, FNDBIL+5*, FNDBIL+6*, FNDBIL+10*, FNDBIL+11*, FNDBIL+12, DATA+8
EFDT DQ+2~, COMPUTE+5*, FNDBIL+5, FNDBIL+10
EFFDT FNDBIL+1~, FNDBIL+12*, DATA+8*, SET+1
END V+2~, BEG+1*, COMPUTE+2, PRINT+3, PRINT+23!
ENDPR DQ+1~, PRINT+3*, HEAD+5
FLDT FNDBIL+1~, DATA+6*, DATA+7*, DATA+8*, SET+1
FOUND FNDBIL+1~, FNDBIL+2*, FNDBIL+7*, FNDBIL+8
I DQ+1~
IB0 FNDBIL+1~, FNDBIL+4*
IBAMT FNDBIL+1~, FNDBIL+4*
IBAS FNDBIL+1~, SET+1
IBN COMPUTE+7*, FNDBIL+1~, FNDBIL+2*, FNDBIL+3*, FNDBIL+4, SET+1
ID DQ+2~, COMPUTE+9*, SET+1
IO BEG+5
IO("Q" BEG+3!, BEG+4, PRINT+23!
IOF HEAD+2
IOP V+2~
IOSL PRINT+15, PRINT+18, SCR+3
IOST HEAD+1, SCR+1
LAST DQ+2~, PRINT+1*, PRINT+13, PRINT+14, PRINT+15*
OUT DQ+1~, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11, PRINT+16, HEAD+1, SCR+4*
>> P0 COMPUTE+7*
PG DQ+1~, PRINT+4*, HEAD+1, HEAD+2*, HEAD+3
PGTOT DQ+2~, PRINT+14*, PRINT+22
POP V+2~, BEG+3
PRCA DQ+1~, HEAD+4*, HEAD+8*
PRCAHDR DQ+1~, HEAD+4*, HEAD+5
PTNM DQ+1~, COMPUTE+9*, PRINT+6*, PRINT+7, PRINT+8, PRINT+9, PRINT+11, PRINT+12, DATA+9, SET+1
PTOT DQ+2~, PRINT+7*, PRINT+14*
REC DQ+2~, PRINT+12*, PRINT+13, PRINT+14
RFL DATA+1~, DATA+3*, DATA+6, DATA+7
RIEN DATA+1~, DATA+3*, DATA+4, DATA+5, DATA+6, DATA+7
RR FNDBIL+1~, FNDBIL+4*, DATA+3
RX PRINT+11*, PRINT+12, PRINT+13, FNDBIL+1~, FNDBIL+2*, FNDBIL+9, DATA+5*, DATA+9, DATA+10, SET~
, SET+1
T0 DQ+1~, COMPUTE+4*, COMPUTE+5
T1 DQ+1~, COMPUTE+4*, COMPUTE+5
TODAY DQ+1~, PRINT+4*, HEAD+3
TOT DQ+2~
TOT( PRINT+14*
TOT("D" COMPUTE+1*, PRINT+20
TOT("E" COMPUTE+1*, PRINT+20
TOT("I" COMPUTE+1*, PRINT+20
TOT("UNK" PRINT+21
TRAMT DQ+1~, COMPUTE+5*, PRINT+12*, PRINT+13, PRINT+14, SET+1
TRDATE DQ+1~, COMPUTE+1*, COMPUTE+2*, COMPUTE+3, FNDBIL+6, FNDBIL+11
TRNO DQ+1~, COMPUTE+2*, COMPUTE+3*, COMPUTE+4, COMPUTE+10, PRINT+9*, PRINT+11, PRINT+12, PRINT+13, PRINT+14
, PRINT+15, FNDBIL~, FNDBIL+7, DATA+9, SET+1
TTYPE DQ+2~, COMPUTE+5*, COMPUTE+10, FNDBIL~, SET+1
U COMPUTE+1*, COMPUTE+5, COMPUTE+7, COMPUTE+8, PRINT+12, PRINT+13, PRINT+14, FNDBIL+4, DATA+4, DATA+5
, DATA+6, DATA+7, SET+1
VA DQ+2~
VA("BID" COMPUTE+9
>> VADM(1 COMPUTE+9
>> VADM(6 COMPUTE+9
X SCR+2~
Y V+2~, BEG, BEG+1, DQ+1~, PRINT+2*, PRINT+3*, PRINT+4*, SCR+2~
YY SCR+2~, SCR+3*
>> ZTRTN BEG+4*
>> ZTSAVE("BEG" BEG+4*
>> ZTSAVE("END" BEG+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All