ACRFNEW1 ;IHS/OIRM/DSD/THL,AEF - CREATE NEW DOCUMENT - UTILITY; [ 10/27/2004 4:15 PM ]
Source file <ACRFNEW1.m>
Package | Total | Caller Graph |
---|---|---|
Commitment Register | 3 | ACRFBPA ACRFNEW1 ACRFNEWD |
Name | Comments | DBIA/ICR reference |
---|---|---|
CALLNUM(ACRBPA) | ;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 |
Name | Field # of Occurrence |
---|---|
$$NUM^ACRFNEW1 | CALLNUM+8 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACRDOC - [#9002196] | CALLNUM+6, CALLNUM+7, CALLNUM+9*, CALLNUM+10, LASTBPA+12, AMEND+12 |
^ACRDOC("BPA" | NUM+4 |
^ACRDOC("C" | LASTBPA+15 |
^ACROBL - [#9002189] | AMEND+17 |
Name | Line Occurrences |
---|---|
$$C1 | CALLNUM+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACRAPV | AMEND+11~, AMEND+17*, AMEND+18 |
ACRBPA | CALLNUM~, CALLNUM+6, CALLNUM+7, CALLNUM+8, CALLNUM+9, CALLNUM+10, NUM~, NUM+4 |
ACRCALL | CALLNUM+5*, CALLNUM+6, CALLNUM+7*, CALLNUM+9, CALLNUM+11, C1~, C1+8, C1+9*, C1+10*, C1+12 , C1+13, C1+20*, C1+21 |
ACRDOC | AMEND+11~, AMEND+14*, AMEND+15 |
ACRDOC0 | AMEND+11~, AMEND+12*, AMEND+13, AMEND+14, AMEND+16 |
ACRREF | AMEND+11~ |
ACRTCALL | CALLNUM+4~, CALLNUM+8*, CALLNUM+9, C1~, C1+8*, C1+9, C1+10, NUM+3*, NUM+4*, NUM+5 |
I | NUM+2~, NUM+3*, NUM+4* |
U | CALLNUM+7, CALLNUM+9, LASTBPA+12, AMEND+13, AMEND+14, AMEND+16, AMEND+18 |
X | LASTBPA~, LASTBPA+12 |
X1 | C1+11~, C1+12*, C1+19*, C1+20 |
X2 | C1+11~, C1+13*, C1+15*, C1+16*, C1+17*, C1+18*, C1+19, C1+20 |
Y | AMEND~, AMEND+12, AMEND+17 |
Z | LASTBPA+11~, LASTBPA+12*, LASTBPA+13, LASTBPA+14*, LASTBPA+15 |