PRCABIL2 ;SF-ISC/YJK-ENTER BILL INFO ;5/11/94 9:41 AM
Source file <PRCABIL2.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PRCA(430 - [#430] | Classic Fileman Calls |