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

Package: Accounts Receivable

Routine: PRCABD


Information

PRCABD ;SF-ISC/RSD-DISPLAY/PRINT BILL ;12/15/95 10:54

Source Information

Source file <PRCABD.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 6 SVC^PRCABIL  BENEPRT^PRCABIL1  DE^PRCASIG  BILLN^PRCAUTL  $$DADD^RCAMADD  ($$SADD,$$SLH)^RCFN01  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 ^DIWP  

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

Package Total Caller Graph
Accounts Receivable 4 PRCA BIL PRNT  PRCABIL1  PRCABIL3  PRCAGF  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**29,57,104,109,154,233,315**;20-MAR-95;Build 67
DEV
EN
Q
DES(D0,PRCABT) ;also entry from letter routine
DESL
DESQ
FLN ;first line of detail after description
ASK
HDR
ADD
DT
EN1 ;PRINT/DISPLAY BILL
EN10
EN1Q

External References

Name Field # of Occurrence
^%ZIS DEV
^%ZISC Q
^%ZTLOAD DEV+1
^DIWP DESL+1
SVC^PRCABIL EN10
BENEPRT^PRCABIL1 EN+13
DE^PRCASIG EN+9
BILLN^PRCAUTL EN10+1
$$DADD^RCAMADD EN+3
$$SADD^RCFN01 EN+4
$$SLH^RCFN01 DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"BILL #: ",$P(PRCAD0,U,1),?30,"DATE: "
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?60,"TYPE: ",$P("1081^1080^1114","^",PRCABT),!,"DEBTOR: ",?40,"BILLING AGENCY: ",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?1
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: X(I)
  • Condition for execution: $D(X(I))
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: ?41
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: X(I+5)
  • Condition for execution: $D(X(I+5))
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"CONTROL POINT :"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: ?17,$P($G(^PRCA(430,D0,11)),U)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?40,"AGENCY LOCATION CODE: ",$P(PRCAD10,U,3)
  • Condition for execution: PRCABT=1
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"APPROVING OFFICIAL: "
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "/ES/ ",X," DATE: "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"FY: ",$P(X,U,1),?12,"APPR. SYMBOL: ",$P($G(^PRCA(430,D0,11)),U,17),?50,"AMOUNT: ",$J($P(X,U,2),10,2)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: DES+2
Function Call: WRITE
  • Prompt: !,?11,DIWF
  • Line Location: DESL+2
Function Call: WRITE
  • Prompt: ?11
  • Line Location: FLN+3
Function Call: WRITE
  • Prompt: DIWF
  • Line Location: FLN+3
Function Call: WRITE
  • Prompt: ?47,$J($P(PRCADI0,U,4),12,4)
  • Condition for execution: $P(PRCADI0,U,4)]""
  • Line Location: FLN+5
Function Call: WRITE
  • Prompt: ?62,$S($D(^PRCD(420.5,+$P(PRCADI0,U,5),0)):$P(^(0),U,1),1:"")
  • Line Location: FLN+5
Function Call: WRITE
  • Prompt: ?65,$J($P(PRCADI0,U,6),15,2)
  • Line Location: FLN+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"ORDER NO.",?11,"DATE",?37,"QUANTITY",?55,"COST",?61,"PER",?74,"AMOUNT"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !," DATE",?11,"DESCRIPTION",?37,"QUANTITY",?55,"COST",?61,"PER",?74,"AMOUNT"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,PRCADUL,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $$SLH^RCFN01(Y,"/")_" "
  • Line Location: DT+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] ENEN+7, EN+10, DESLDESL+1, EN10+1
^PRCD(420.5 - [#420.5] FLN+5
^RC(342.1 - [#342.1] EN+4
^RCD(340 - [#340] EN+2, EN+3
^UTILITY($J DESL!, DESL+2, DESL+4!

Label References

Name Line Occurrences
ADD EN+3, EN+4
ASK FLN+1
DES EN+11
DESL DESL+4
DESQ DESL
DEV EN10+1
DT EN+1, EN+9, FLN+2
EN DEV
EN10 EN10+1
EN1Q EN10EN10+1
FLN DESL+2, DESL+3
HDR DES+2, ASKASK+1
Q DEV+1, EN

Naked Globals

Name Field # of Occurrence
^( EN+10, DESLDESL+1, DESL+2
^(0 EN+2, EN+3, EN+10, DESL+1, FLN+5
^(100 EN
^(104 EN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV*, Q!
D0 ENEN+7, EN+9, EN+10, EN+11, DES~, DESLDESL+1, EN10+1*, EN1Q!
DA EN+9*, Q!
DIC EN1Q!
DIC("S" EN10*
DIWF Q!, DES+1~, DESL*, DESL+2*, FLN+3*
DIWL Q!, DES+1~, DESL*, DESL+2
DIWR Q!, DES+1~, DESL*
DTIME ASK
FLN Q!, DES+1~, DESL!, DESL+2, DESL+3, FLN+1*
I EN+4*, EN+10*, Q!, DESL+2*, ADD*
IO DEVDEV+2
>> IO("Q" DEV+1
>> IO(0 DEV
IOF EN+1, ASKASK+1
IOSL ASKASK+1
IOST ASKASK+1
J EN+3*, EN+4*, Q!, ADD*
P EN+9*, Q!
>> POP DEV
PRCA EN1Q!
PRCABN EN10+1, EN1Q!
PRCABT DEVDEV+1, EN+1, EN+8, EN+11, DES~, FLN+2, HDREN10+1*, EN1Q!
PRCAD Q!, DES+1~, DESL*, DESL+1*
PRCAD0 EN*, EN+1, EN+2, EN+3, EN+9, Q!
PRCAD10 EN*, EN+4, EN+8, Q!
PRCAD14 EN*, EN+9, Q!
PRCADB EN+3*!
PRCADFM Q!, EN10+1*, EN1Q!
PRCADI Q!, DES+1~, DES+2*, DESL*, DESL+1
PRCADI0 Q!, DES+1~, DESL*, FLN+2, FLN+4, FLN+5, FLN+6
PRCADQ Q!, DES+1~, DES+2*, DESL+2, DESL+4, FLN+1, ASK*
PRCADUL EN+1*, Q!, HDR+2*, HDR+3
PRCAP EN1Q!
PRCAP("S" EN10
PRCATY EN1Q!
U EN+1, EN+2, EN+4, EN+7, EN+8, EN+9, EN+10, FLN+2, FLN+4, FLN+5
FLN+6, ADD
X EN+2*, EN+3*, EN+4*, EN+9*, EN+10*, Q!, DESL+1*, ASK*, ADD
X( EN+4, ADD*
X(1 EN+2*
X(6 EN+4*
Y EN+1*, EN+2*, EN+4*, EN+9*, Q!, FLN+2*, DT
Z Q!
Z0 EN1Q!
ZTDTH DEV+1*, Q!
ZTRTN DEV+1*, Q!
ZTSAVE DEV!, Q!
ZTSAVE("D0" DEV+1*
ZTSAVE("PRCABT" DEV+1*
ZTSAVE("PRCADFM" DEV+1*
ZTSK EN1Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All