Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACRFPO2

Package: Commitment Register

Routine: ACRFPO2


Information

ACRFPO2 ;IHS/OIRM/DSD/THL,AEF - PURCHASE ORDER PROCESSING; [ 09/23/2005 9:44 AM ]

Source Information

Source file <ACRFPO2.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 2

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

Marked Items

Name Field # of Occurrence
$T(@ACRENTRY^ACRFCTL1 EDIT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All