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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call