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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCSEB2

Package: IFCAP

Routine: PRCSEB2


Information

PRCSEB2 ;SF-ISC/LJP-CONTROL POINT ACTIVITY EDITS CON'T ;10-29-91/15:23

Source Information

Source file <PRCSEB2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
IFCAP 3 ^PRCSDIC  EN3^PRCSUT  EN1^PRCSUT3  
VA FileMan 3 (,IX)^DIC  YN^DICN  ^DIE  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
ENDR ;ENTER 1358 DAILY RECORD
ENDRR
ENDR2
ENNEW
ENDR1
EDDR ;EDIT 1358 DAILY RECORD ENTRY
W1
W2
W3
W4
W5
W6
W7
W
EXIT
COMP ;SET COMPLETED FLAG ON REFERENCE OR PAT NUMBER
ASK2
COMP1

External References

Name Field # of Occurrence
^DIC ENNEW
IX^DIC ENDR2+1
YN^DICN W5+2, W6, ASK2
^DIE ENDR1+1, ASK2+2, COMP1
^PRCSDIC ENDRR+2
EN3^PRCSUT ENDR+1
EN1^PRCSUT3 ENNEW

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This 1358 transaction is complete. No further action can be taken on it.",!,"Contact Fiscal Service for further information."
  • Line Location: ENDRR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDR2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDR1+1
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !!,"You are not an authorized control point user.",!,"Contact your control point official."
  • Line Location: W1+0
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: W2+0
Function Call: WRITE
  • Prompt: !!,"Sorry, another user is accessing the file. Please try later.",$C(7)
  • Line Location: W2+0
Function Call: WRITE
  • Prompt: !!,"This new 1358 Daily Record is ",X1,!
  • Line Location: W3+0
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: W4+0
Function Call: WRITE
  • Prompt: !!,"Fiscal Service has not yet established an obligation for this 1358 request.",!,"Contact Fiscal Service."
  • Line Location: W4+0
Function Call: WRITE
  • Prompt: !,"This 1358 Daily Record has been stamped as complete."
  • Line Location: W5+0
Function Call: WRITE
  • Prompt: !,"This 1358 has not been obligated by Fiscal."
  • Line Location: W5+1
Function Call: WRITE
  • Prompt: !,"Would you like to create a new 1358 Daily",!,"Record entry for this "_PRCSX_" Obligation"
  • Line Location: W5+2
Function Call: WRITE
  • Prompt: G
  • Line Location: W5+2
Function Call: WRITE
  • Prompt: !!,"Would you like to select Obligation"
  • Line Location: W6+0
Function Call: WRITE
  • Prompt: G
  • Line Location: W6+0
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: W7+0
Function Call: WRITE
  • Prompt: !!,"There is not a Reference entry to stamp completed."
  • Line Location: W7+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'Y' for Yes or 'N' for No"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"Do you wish to stamp all Obligation References as complete"
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: G
  • Line Location: ASK2+0
Routine Call
  • DIC
  • Line Location:
    • ENNEW
Routine Call
  • DIC
  • Line Location:
    • ENDR2+1
Routine Call
  • DIE
  • Line Location:
    • ENDR1+1
    • ASK2+2
    • COMP1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PRC(424 - [#424] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(424 - [#424] ENDR2+1, ENNEW, ENNEW+1*, ENDR1*, W5, W5+1, ASK2+2, COMP1
^PRC(442 - [#442] ENDRR+3, ENDRR+4
^PRCD(442.3 - [#442.3] ENDRR+3
^PRCS(410 - [#410] ENDRR+2

Label References

Name Line Occurrences
ASK2 ASK2
COMP1 ASK2
EDDR W5+2
ENDR ENDRR+3, W6, COMP+1
ENDR1 ENDR2+1
ENDR2 EDDR+1, ASK2
ENNEW W5+2
EXIT ENDR+1, ENDRR+2, ENDR2+1, W1, W2, W4, W5, W5+1, W6, W7
, COMP+1, ASK2, ASK2+1, ASK2+2, COMP1
W W5+2, W6, ASK2
W1 ENDR+1
W2 ENNEW
W3 ENNEW
W4 ENDRR+2, ENDRR+4, COMP1
W5 ENDRR+4, ENDR1+1, W5+2
W6 W6
W7 ASK2+1, ASK2+2, COMP1

Naked Globals

Name Field # of Occurrence
^(0 ENDRR+4, W5
^(10 ENDRR+2
^(7 ENDRR+3
^(8 ENDRR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% W5+2*, W6*, EXIT!, ASK2*
>> D ENDRR*, ENDR2*
DA ENDR1+1*, EXIT!, ASK2+2*, COMP1*
DIC ENDRR*, ENDR2*, ENNEW*, ENDR1+1, EXIT!
DIC("A" ENDRR*, ENDRR+2!, ENDR2*, ENDR2+1!
DIC("S" ENDRR+1*, ENDRR+2!, ENDR2*, ENDR2+1!
DIC(0 ENDRR*, ENDR2*, ENNEW*
DIE ENDR1+1*, EXIT!, ASK2+2*, COMP1*
DLAYGO ENNEW*!
DR ENDR1+1*, EXIT!, ASK2+2*, COMP1*
>> PRC("SITE" ENDR+1, ENDRR
>> PRCFA("PODA" ENDRR+4*
PRCSCK ENDRR+4, ENDR2+1, EXIT!, COMP+1*
PRCSDA ENDRR+2*, ENNEW+1, EXIT!, COMP+1
PRCSDA1 ENDR2+1*, ENNEW*, ENNEW+1, ENDR1, ENDR1+1, EXIT!, ASK2+1
PRCSDES ENDR2+1*, ENDR1, EXIT!, ASK2+1, ASK2+2
PRCSED ENDR1+1!, EDDR+1*, EXIT!
PRCSOLD ENDR1+1!, EXIT!
PRCSON ENDRR+2*, ENDRR+3, ENDRR+4, ENNEW+1, EXIT!
PRCSX ENDRR+4*, ENNEW, W5, W5+1, W5+2, EXIT!, COMP1
PRCSXX ENDR1+1!, EXIT!
U ENDRR+4, ENDR2+1, ENDR1, W5
X ENDRR+3*, ENNEW*, W1*, W2*, W4*, W7*, EXIT!
X1 ENNEW*, W3, EXIT!
>> Y ENDR+1, ENDRR+2, ENDR2+1, ENNEW
>> Z ENDRR+4*, ENNEW*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All