Routine: ACRFPO2

Package	Total	Call Graph
Commitment Register	9	^ACRFCTL1 (DIC,DIE,DIR)^ACRFDIC SET^ACRFEA SETDOC^ACRFEA1 ^ACRFEA4 ASSIGN^ACRFPO1 LOOKUP^ACRFPO3 $$NAME2^ACRFUTL1 PAUSE^ACRFWARN

Package	Total	Caller Graph
Commitment Register	2	ACRFPO ACRFSS2

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;EP;
VENDOR	;EP;INCLUDE VENDOR NAME ON DISPLAY
TEMP	;EP;TEMP MESSAGE
EDIT	;EP;
T2
T1
AGENT	;EP;TO SELECT PURCHASING AGENT FOR PO REVIEW
ONE	;EP;
EXIT	;EP;
ASSONE	;EP;TO ASSIGN ONE DOCUMENT ONLY
OBJ	;EP;DETERMINE OBJECT CLASS CODE
TRANS	;EP;TO TRANSFER ALL ACTIVE/UNSIGNED PO'S TO NEW PA
SELECT	;EP;TO SELECT PURCHASE ORDER

External References

Name	Field # of Occurrence
^ACRFCTL1	EDIT+1
DIC^ACRFDIC	AGENT+13, TRANS+6, TRANS+13
DIE^ACRFDIC	T2+5
DIR^ACRFDIC	VENDOR+6, SELECT+9, AGENT+6, ASSONE+5, T1+12
SET^ACRFEA	EDIT+4
SETDOC^ACRFEA1	SELECT+21
^ACRFEA4	EDIT+5
ASSIGN^ACRFPO1	SELECT+26, ONE+6
LOOKUP^ACRFPO3	ONE+1
$$NAME2^ACRFUTL1	T1+5, T1+6, T2+7
PAUSE^ACRFWARN	SELECT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: VENDOR+5
Function Call: WRITE	Prompt: ! Line Location: SELECT+8
Function Call: WRITE	Prompt: ! Line Location: AGENT+5
Function Call: WRITE	Prompt: ! Line Location: AGENT+12
Function Call: WRITE	Prompt: @IOF,7,7,*7 Line Location: TEMP+1
Function Call: WRITE	Prompt: !?10,"* PURCHASING SUPERVISOR PLEASE NOTE THE FOLLOWING *" Line Location: TEMP+2
Function Call: WRITE	Prompt: !?5,"A slight modification has been made to allow ARMS to work better with" Line Location: TEMP+3
Function Call: WRITE	Prompt: !?5,"requisitions created to produce CONTRACTs rather than PURCHASE ORDERs." Line Location: TEMP+4
Function Call: WRITE	Prompt: !!?5,"The CONTRACT module of ARMS is still not yet completed. However," Line Location: TEMP+5
Function Call: WRITE	Prompt: !?5,"if you select '2' below for requisitions which are intended to initiate a" Line Location: TEMP+6
Function Call: WRITE	Prompt: !?5,"CONTRACT action, ARMS will allow you to proceed with assigning the document" Line Location: TEMP+7
Function Call: WRITE	Prompt: !?5,"to a contract or purchasing agent. The BASIC data can be completed and" Line Location: TEMP+8
Function Call: WRITE	Prompt: !?5,"the document sent for approval and 'signed.' This will allow the initiator" Line Location: TEMP+9
Function Call: WRITE	Prompt: !?5,"to use ARMS to initiate and track the document throughout the process" Line Location: TEMP+10
Function Call: WRITE	Prompt: !?5,"and get the dollars recorded against their DEPARTMENT ACCOUNT." Line Location: TEMP+11
Function Call: WRITE	Prompt: !?5,"However, NO CIS (Contract Information System) entry will be created." Line Location: TEMP+12
Function Call: WRITE	Prompt: !?5,"The document will be 'set aside' by ARMS and can be processed manually" Line Location: TEMP+13
Function Call: WRITE	Prompt: !?5,"as a new CONTRACT or CONTRACT action." Line Location: TEMP+14
Function Call: WRITE	Prompt: !!?5,"Therefore, ALL ARMS requisitions which are intended to initiate a" Line Location: TEMP+15
Function Call: WRITE	Prompt: !?5,"CONTRACT action should be coded as a '2' for 'Contract'd." Line Location: TEMP+16
Function Call: WRITE	Prompt: $S($D(ACRPO)!$D(ACRPPO):"Select PURCHASE ORDER:",1:"Select REQUEST to ASSIGN TO PURCHASING AGENT") Line Location: HEAD+2
Function Call: WRITE	Prompt: !!?2,"NO." Line Location: HEAD+3
Function Call: WRITE	Prompt: ?9,"REQUEST NO." Line Location: HEAD+4
Function Call: WRITE	Prompt: ?24,"RQD BY/OBJ CD/$$" Line Location: HEAD+5
Function Call: WRITE	Prompt: ?40,"\| NO." Line Location: HEAD+6
Function Call: WRITE	Prompt: ?50,"REQUEST NO." Line Location: HEAD+7
Function Call: WRITE	Prompt: ?65,"RQD BY/OBJ CD/$" Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"------" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?7,"----------------" Line Location: HEAD+10
Function Call: WRITE	Prompt: ?24,"----------------" Line Location: HEAD+11
Function Call: WRITE	Prompt: ?40,"\|------" Line Location: HEAD+12
Function Call: WRITE	Prompt: ?48,"----------------" Line Location: HEAD+13
Function Call: WRITE	Prompt: ?65,"---------------" Line Location: HEAD+14
Function Call: WRITE	Prompt: ! Line Location: ASSONE+4
Function Call: WRITE	Prompt: !!,"Transfer PO's FROM" Line Location: TRANS+5
Function Call: WRITE	Prompt: !,"No Purchasing Agent selected." Line Location: TRANS+7
Function Call: WRITE	Prompt: !!,"Transfer PO's TO" Line Location: TRANS+12
Function Call: WRITE	Prompt: !,"No Purchasing Agent selected." Line Location: TRANS+14
Function Call: WRITE	Prompt: !!?10,"All ",@ACRON,ACRJ,@ACROF," unsigned PO's" Line Location: T1+2
Function Call: WRITE	Prompt: !?10,"currently assigned to: ",$$NAME2^ACRFUTL1(ACRPA1) Line Location: T1+5
Function Call: WRITE	Prompt: !?10,"will be re-assigned to: ",$$NAME2^ACRFUTL1(ACRPA2) Line Location: T1+6
Function Call: WRITE	Prompt: ! Line Location: T1+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRDOC - [#9002196]	Classic Fileman Calls
^ACRPA - [#9002199]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDOC - [#9002196]	T2+7
^ACRDOC("PA"	T1+1, T2+1
^ACROBL - [#9002189]	T1+1, T2+1
^ACRSS - [#9002193]	OBJ+5, OBJ+6
^ACRSS("J"	OBJ+4
^AUTTDOCR - [#9999999.63]	SELECT+23
^AUTTOBJC - [#9999999.59]	OBJ+8
^TMP("ACRDATA"	SELECT+18, SELECT+19, SELECT+20

Label References

Name	Line Occurrences
EDIT	SELECT+30
T1	TRANS+16
T2	T1+14
TRANS	ASSONE+8

Naked Globals

Name	Field # of Occurrence
^("APV"	T1+1, T2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACR("OBJ"	OBJ+11, OBJ+12, OBJ+15, OBJ+17, OBJ+20!
ACRAPDA	EXIT+1!
ACRAPV	ONE+2!
ACRAPVT	EXIT+1!
ACRDA	EXIT+1!
ACRDAT2	EXIT+1!
ACRDATA	EXIT+1!
ACRDATA1	EXIT+1!
ACRDATX	EXIT+1!
ACRDOC	EXIT+1!, SELECT+19*
>> ACRDOC0	SELECT+22, SELECT+23
ACRDOC1	EXIT+1!
ACRDOCDA	EXIT+1!, OBJ+4, SELECT+18, T1, T1+1, T2, T2+1*, T2+2, T2+7
ACRDUZ	AGENT+8!, AGENT+15*
ACRENTRY	SELECT+16~, SELECT+17, ONE+4~, ONE+5, EDIT+1*
>> ACRFDNO(1	EXIT+2!
ACRGREF	EXIT+1!
ACRI	SELECT+11~
ACRIPO	SELECT+34!
>> ACRJ	T1, T1+1, T1+2
ACRLBDA	EXIT+1!
ACRMAX	EXIT+1!, SELECT+1, SELECT+6
ACRNOW	EXIT+1!
ACRNUM	EXIT+1!
ACROBJ	OBJ+1!, OBJ+19*
>> ACROF	T1+2
>> ACRON	T1+2
>> ACRONE	ONE+5*
ACRORD	EXIT+1!
>> ACROUT	VENDOR+7, SELECT+10, SELECT+13, AGENT+7, ASSONE+6, ONE+3
ACRPA	EXIT+2!
ACRPA1	TRANS+1~, TRANS+8*, T1+1, T1+5, T2+1
ACRPA2	TRANS+1~, TRANS+15*, T1+6, T2+4, T2+7
ACRPO	EXIT+2!, SELECT+7, SELECT+28!, SELECT+29, SELECT+32, AGENT+16, HEAD+2, ASSONE+1!, EDIT+2*
ACRPOA	EXIT+2!, SELECT+25, SELECT+27, SELECT+31!, ASSONE+2, EDIT+3!
ACRPPO	EXIT+2!, SELECT+29, HEAD+2
ACRPRCS	EDIT+6!
ACRPRIOR	EXIT+1!
ACRPRT	EXIT+1!
ACRQUIT	EXIT+1!, VENDOR+7, SELECT+4, SELECT+5!, SELECT+10, AGENT+7, AGENT+14, ASSONE+6, ONE+3!, TRANS+17 , T1+13*
ACRRDATE	EXIT+1!
ACRREF	EXIT+1!
ACRREF1	EXIT+1!
ACRREFDA	EXIT+1!
>> ACRREFX	SELECT+22, SELECT+23
ACRREFZ	ONE+2!
ACRREV	AGENT+8!, HEAD+1
ACRSCRL	EXIT+2!, VENDOR+8, VENDOR+9
ACRSIG	EXIT+1!
ACRSIGG	EXIT+1!
ACRSIGP	EXIT+2!
ACRSIGZ	EXIT+2!
ACRSIGZZ	EXIT+2!
>> ACRTRANS	SELECT+24, HEAD+1
ACRTXTYP	EXIT+1!, SELECT+20*
ACRW	OBJ+6*, OBJ+12, OBJ+13!
ACRX	EXIT+1!, SELECT+13, SELECT+14, SELECT+15, SELECT+18, SELECT+19, SELECT+20, SELECT+33*
ACRXMY	EXIT+2!
ACRXPO	SELECT+15*, SELECT+33, SELECT+34!
ACRY	EXIT+1!, SELECT+11~, SELECT+12*, SELECT+13
>> ACRZDA	SELECT+18*
ACRZI	SELECT+11~, SELECT+13*
>> DA	SELECT+18, T2+2
>> DIC	AGENT+9, TRANS+2, TRANS+9*
>> DIC("A"	AGENT+10, TRANS+4, TRANS+11*
>> DIC(0	AGENT+11, TRANS+3, TRANS+10*
>> DIE	T2+3*
>> DIR("?"	VENDOR+4, AGENT+4
>> DIR("A"	VENDOR+2, SELECT+7, AGENT+2, T1+8, T1+9*
>> DIR("B"	VENDOR+3, AGENT+3, T1+10*
>> DIR(0	VENDOR+1, SELECT+6, AGENT+1, ASSONE+3, T1+7*
>> DR	T2+4*
>> DTOUT	AGENT+14
>> DUOUT	AGENT+14
IOF	TEMP+1, HEAD+1
U	OBJ+5, OBJ+6, OBJ+9, SELECT+18, SELECT+19, SELECT+20, SELECT+22, SELECT+23, AGENT+14, T1+1 , T2+1, T2+7
X	OBJ+2~, OBJ+3, OBJ+4, OBJ+5, OBJ+6, OBJ+14, OBJ+15, OBJ+16, OBJ+17, AGENT+14
Y	OBJ+2~, OBJ+5, OBJ+7, OBJ+8, OBJ+14, OBJ+15, OBJ+17*, VENDOR+8, SELECT+10, SELECT+12 , AGENT+8, AGENT+15, ASSONE+6, ASSONE+7, ASSONE+8, TRANS+7, TRANS+8, TRANS+14, TRANS+15, T1+13
Z	OBJ+2~, OBJ+8, OBJ+9, OBJ+10, OBJ+11, OBJ+12, OBJ+16*, OBJ+18, OBJ+19

Customize PDF page

Package: Commitment Register

Routine: ACRFPO2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items