ACRFUTL1 ;IHS/OIRM/DSD/AEF - VARIOUS UTILITY SUBROUTINES [ 07/20/2006 8:00 AM ]
Source file <ACRFUTL1.m>
Package | Total | Call Graph |
---|---|---|
Commitment Register | 2 | $$UPPER^ACRFUTL $$NAME2^ACRFUTL1 |
Kernel | 1 | $$NAMEFMT^XLFNAME1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CC(X) | ;EP -- IS THIS A REQUEST FOR CREDIT CARD PURCHASE/PAY WITH CC
; INPUT X = DOCUMENT IEN ; OUTPUT Y = IS THERE A FORM? ; 1 = YES ; 0 = NO |
|
NAME(X) | ;EP -- RETURNS EXTERNAL PERSON FILE 200 NAME ;ACR*2.1*5.15
|
|
OBJDA(X) | ;EP -- RETURNS IEN OF OBJECT CLASS CODE ;ACR*2.1*16.06 IM15505
|
|
STRIPLB(X) | ;EP - STRIP LEADING BLANKS FROM STRING - ACR*2.1*20.14
|
|
NAME3(X) | ;EP; EXTRINSIC FUNCTION ;ACR*2.1*19.02 IM16848
; X = IEN TO NEW PERSON FILE ; RETURNS NAME IN FIRST MIDDLE LAST SUFFIX DEGREE FORMAT ; FROM NAME COMPONENTS FILE |
|
STRIPTB(X) | ;EP - STRIP TRAILING BLANKS FROM STRING - ACR*2.1*20.14
|
|
PA(X) | ;EP -- PURCHASING AGENT
|
|
FORM(X) | ;EP -- IS THERE A FORM FOR THIS INPUT TEMPLATE?
; INPUT X = DR (Input Template and Form name should be the same) ; OUTPUT Y = IS THERE A FORM? ; 1 = YES ; 0 = NO |
|
NAMEFT(X) | ;EP; EXTRINSIC FUNCTION
; X = FREE TEXT NAME ; ATTEMPTS TO RETURN LAST,FIRST |
|
NAME2(X) | ;EP; EXTRINSIC FUNCTION ;ACR*2.1*19.02 IM16848
; X = IEN TO NEW PERSON FILE ; RETURNS NAME IN LAST,FIRST MIDDLE SUFFIX DEGREE FORMAT ; FROM NAME COMPONENTS FILE |
|
FYFUN(X) | ;EP -- RETURNS FISCAL YEAR OF FUNDS ; ACR*2.1*13.05 IM10810
|
|
NOTA(X) | ;----- ALLOW/DISALLOW TRAVEL ADVANCE
; USED BY INPUT TRANSFORM ON FMS DOCUMENT FIELD TRAVEL ADVANCE ; ALLOWED |
|
SCREEN() | ;EP -- RETURNS IF USER CAN USE SCREENMAN
; INPUT none ; OUTPUT Y = USER USE SCREENMAN? ; 1 = YES ; 0 = NO |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACRAU - [#9002185.3] | SCREEN+10 |
^ACRDOC - [#9002196] | NOTA+15, NOTA+18, PA+6, CC+7 |
^ACRLOCB - [#9002188] | FYFUN+6 |
^ACRSYS(1 | SCREEN+7, SCREEN+9 |
^AUTTCAN - [#9999999.57] | NOTA+19 |
^AUTTOBJC("C" | OBJDA+6 |
^DIST( | FORM+9 |
^VA(20 - [#20] | NAME2+21, NAME2+23 |
^VA(200 - [#200] | NAME2+17 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACRCAN | NOTA+11~, NOTA+18*, NOTA+19* |
ACRLEN | STRIPTB+1~, STRIPTB+3, STRIPTB+5*, STRIPTB+6, STRIPLB+1~, STRIPLB+3*, STRIPLB+4, STRIPLB+6 |
DUZ | SCREEN+10 |
I | STRIPTB+1~, STRIPTB+3*, STRIPTB+4, STRIPTB+5, STRIPLB+1~, STRIPLB+4*, STRIPLB+5, STRIPLB+6 |
P1 | NAMEFT+4~, NAMEFT+15*, NAMEFT+16 |
P2 | NAMEFT+4~, NAMEFT+14*, NAMEFT+16 |
PL | NAMEFT+4~, NAMEFT+11*, NAMEFT+13*, NAMEFT+14, NAMEFT+15 |
U | NOTA+15, NOTA+18, NOTA+19, NAME2+17, NAME2+23, FYFUN+6, SCREEN+9, SCREEN+10, PA+6, CC+7 |
X | NOTA~, NOTA+15, NOTA+18, NAME~, NAME+7, NAME2~, NAME2+5, NAME2+10, NAME3~, NAME3+5 , NAME3+10, NAMEFT~, NAMEFT+6, NAMEFT+7, NAMEFT+8, NAMEFT+9*, NAMEFT+10, NAMEFT+11, NAMEFT+12, NAMEFT+13* , NAMEFT+14, NAMEFT+15, FYFUN~, FYFUN+6, OBJDA~, OBJDA+6, FORM~, FORM+7, FORM+8*, FORM+9 , PA~, PA+6, STRIPTB~, STRIPTB+2, STRIPTB+3, STRIPTB+4, STRIPTB+6*, STRIPTB+7, STRIPLB~, STRIPLB+2 , STRIPLB+3, STRIPLB+4, STRIPLB+5, STRIPLB+6*, STRIPLB+7, CC~, CC+7 |
XUNAME | NAME2+7!, NAME2+13, NAME3+7!, NAME3+13 |
XUNAME("FIELD" | NAME2+9*, NAME2+21, NAME3+9* |
XUNAME("FILE" | NAME2+8*, NAME2+21, NAME3+8* |
XUNAME("IENS" | NAME2+10*, NAME2+17, NAME2+21, NAME3+10* |
Y | NOTA+11~, NOTA+12*, NOTA+15*, NOTA+22, NAME+4~, NAME+5*, NAME+7*, NAME+8, NAME2+6~, NAME2+13* , NAME2+16, NAME2+17*, NAME2+18*, NAME2+20, NAME2+24, NAME2+25*, NAME2+26, NAME3+6~, NAME3+13*, NAME3+14 , NAMEFT+4~, NAMEFT+5*, NAMEFT+6, NAMEFT+7, NAMEFT+8, NAMEFT+16*, NAMEFT+17, FYFUN+4~, FYFUN+5*, FYFUN+6* , FYFUN+7, OBJDA+4~, OBJDA+5*, OBJDA+6*, OBJDA+7, SCREEN+5~, SCREEN+6*, SCREEN+7*, SCREEN+8, SCREEN+11* , SCREEN+12, FORM+5~, FORM+6*, FORM+9*, FORM+10, PA+4~, PA+5*, PA+6*, PA+7, CC+5~ , CC+8*, CC+9 |
YY | NAME2+6~, NAME2+24*, NAME2+25 |
Z | NAME+4~, NAME2+6~, NAME2+21*, NAME2+22, NAME2+23*, NAME2+24, NAME2+25, CC+5~, CC+6*, CC+7* , CC+8 |