;EP; EXTRINSIC FUNCTION TO CALCULATE CALL NUMBER ACR*2.1*14.03 IM13538
; Enter with FMS Document ien for BPA
; Returns next extension for call number
C
;S $P(^ACRDOC(ACRBPA,0),U,20)=ACRCALL
C1(ACRTCALL,ACRCALL)
; LOCAL ENTRY; EXTRINSIC FUNCTION TO CALCULATE BPA EXTENSION; ACR*2.1*14.03 IM13538
; --------ENTERS
; ACRTCALL=NEXT CALL NUMBER
; ACRCALL= LAST CALL NUMBER
LASTBPA(X)
NUM(ACRBPA)
;LOCAL ENTRY; EXTRINSIC FUNCTION TO CALCULATE NUMBER OF CALLS TO DATE; ACR*2.1*14.03 IM13538
; RETURNS NUMBER OF CALL DOCUMENTS IN BPA CROSS-REFERENCE
AMEND(Y)
;EP; ; ACR*2.1*14.02 IM13539
; - DETERMINES IF DOCUMENT HAS ALREADY BEEN AMENDED
; - AND DISALLOWS THE AMENDING OF AMENDMENTS