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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCABIL2

Package: Accounts Receivable

Routine: PRCABIL2


Information

PRCABIL2 ;SF-ISC/YJK-ENTER BILL INFO ;5/11/94 9:41 AM

Source Information

Source file <PRCABIL2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Accounts Receivable 4 SVC^PRCABIL  EN^PRCABIL1  BILLN^PRCAUTL  $$BNUM^RCMSNUM  
VA FileMan 2 ^DIC  ^DIE  

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

Package Total Caller Graph
Accounts Receivable 2 PRCA BIL AMEND  PRCABIL1  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN8 ;Amend the bill returned from Fiscal.
EN80
EN81
EN ;ENTER NEW BILL IN FILE 430
ENPO ;S DIC="^PRCA(430.4,",DIC(0)="QEMZ",DIC("S")="I +$P(^(0),U,1)=PRCA(""SITE""),+$P(^(0),U,5)=PRCAP(""S"")"
EN2 ;I $L(X)<4 S D="C" D IX^DIC G ENPO:Y<0,NUM
ENPO1
NUM ;L +^PRCA(430.4,+Y,0):1 G:'$T W1 S X=$P(Y,U,2),Z=$S(+$P(Y(0),U,4)<$P(Y(0),U,2):+$P(Y(0),U,2),1:+$P(Y(0),U,4)),L=$L(X)#2-3
Z ;G:Z>$P(Y(0),U,3) W2 S Z="000"_Z,Z=$E(Z,$L(Z)+L,$L(Z)),X=X_Z I $D(^PRCA(430,"B",X)) S Z=Z+1,X=$P(Y,U,2) G Z
W1 ;L -^PRCA(430.4,+Y,0) W !?3,"Bill Number series is being edited by another user, try later",*7 G ENPO
W2 ;L -^PRCA(430.4,+Y,0) W !?3,"UPPER BOUND NOT DEFINED FOR BILL NUMBER SERIES ",$P(Y,U,2),*7 G ENPO
W3
SVC
ENPOQ
Q

External References

Name Field # of Occurrence
^DIC ENPO1
^DIE EN81+2
SVC^PRCABIL EN80
EN^PRCABIL1 EN80+3
BILLN^PRCAUTL EN80+1
$$BNUM^RCMSNUM ENPO+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now amending bill...",!
  • Line Location: EN81+0
Function Call: READ
  • Formatting: !!
  • Prompt: "BILL NO. : "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENPO+1
Function Call: WRITE
  • Prompt: *7,!!,$P(X,"^",2),!
  • Line Location: ENPO+2
Function Call: WRITE
  • Prompt: *7,!!,"Please enter 7 character bill number.",!,"It must be in the following format: K400001, K481234 or '(N)ew' to get",!,"the next available number. (Enter ""^"" to exit)",!
  • Line Location: ENPO+5
Function Call: WRITE
  • Prompt: *7,!!,"SORRY ! THIS NUMBER HAS BEEN ALREADY ASSIGNED TO A BILL. USE EDIT OPTION",!
  • Line Location: ENPO+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENPO+7
Function Call: WRITE
  • Prompt: " ... Bill Number '",$P(^PRCA(430,PRCABN,0),"^"),"' assigned"
  • Line Location: ENPO1+3
Function Call: WRITE
  • Prompt: !?3,"Bill Number series is being edited by another user, try later",*7
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !?3,"UPPER BOUND NOT DEFINED FOR BILL NUMBER SERIES ",$P(Y,U,2),*7
  • Line Location: W2+0
Function Call: WRITE
  • Prompt: " Bill Number already exists, please try again ",*7
  • Line Location: W3+0
Function Call: WRITE
  • Prompt: !,"You must have a SERVICE/SECTION assigned to you in the NEW PERSON file.",!?3,"See your Site Manager."
  • Line Location: SVC+1
Routine Call
  • DIC
  • Line Location:
    • ENPO1
Routine Call
  • DIE
  • Line Location:
    • EN81+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] SVC
^PRCA(430 - [#430] EN81+3*, ENPO+6, ENPO1+2*, ENPO1+3
^PRCA(430.3 - [#430.3] EN80+2, EN80+4, EN81+1
^VA(200 - [#200] SVC

Label References

Name Line Occurrences
EN80 EN80+5
EN81 EN80+4
ENPO ENPO+2, ENPO+5, ENPO+6, ENPO1+1, W3
ENPOQ ENPO1+4
Q EN80+1
SVC EN+1
W3 ENPO1+1

Naked Globals

Name Field # of Occurrence
^(5 SVC

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
%DT ENPOQ!
A Q!
B Q!
C Q!
D0 Q!
DA EN81+2*, EN+1!, ENPO1+2*, Q!
DIC EN+1!, ENPO1*, ENPOQ!, Q!
DIC("DR" ENPO1*
DIC("S" EN80*, ENPO1!
DIC(0 EN2+1*
DIE EN81+2*!, Q!
DIK Q!
DLAYGO EN+1!, ENPO1*, ENPOQ!
DR EN81+2*!, Q!
DTIME ENPO+1
DUZ EN81+3, EN+1, SVC
I Q!
L ENPOQ!
PRCA Q!
PRCA("SITE" EN+1, ENPO+6, EN2+1
PRCA("STATUS" EN80+1, EN81+1*, EN81+2
PRCABC Q!
PRCABILN EN8+1~, EN80+1*, EN80+4!
PRCABN EN80+1, EN80+4*, EN81+2, EN81+3, EN+1!, ENPO1+2*, ENPO1+3, Q!
PRCABT Q!
PRCADFM Q!
PRCAI Q!
PRCAKSTA EN8+1~, EN80+1*, EN80+2, EN80+4!, EN81+2
PRCAMT Q!
PRCAMT1 Q!
PRCAMT2 Q!
PRCANM Q!
PRCAP EN+1!, ENPOQ!, Q!
PRCAP("NEW" ENPO1*
PRCAP("S" EN80, EN+1, ENPO1, ENPO1+2, SVC!*
PRCAQ Q!
PRCAT Q!
PRCATY Q!
PRCAX Q!
RCAMEND EN8+1~, EN80+2*
U EN80+2, EN80+4, EN81+3, ENPO1+1, ENPO1+2
X ENPO+1*, ENPO+2, ENPO+3*, ENPO+4*, ENPO+5, ENPO+6, EN2+1*, Q!
Y ENPO1+1, ENPO1+2, Q!
Z ENPOQ!
Z0 Q!
ZRTN Q!
ZTSK Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All