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  | All
Print Page as PDF
Routine: PRCHEC1

Package: IFCAP

Routine: PRCHEC1


Information

PRCHEC1 ;SF-ISC/TKW-SUPPLEMENTAL ROUTINES CALLED FROM PRCHEC ;4/20/92 9:41 AM

Source Information

Source file <PRCHEC1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
IFCAP 2 (,YN)^PRCFYN  OBL^PRCHNRQ  
VA FileMan 2 ^DIC  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCHEC  PRCHEI  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
EDIT
E2
EDIT1
EDIT2
EDIT3
SETUP
OBL
ASK ;Ask user if they want to report showing code sheets to be created
R ;REMOVE P.O. OR RECEIVING REPORT FROM PENDING LIST

External References

Name Field # of Occurrence
^DIC EDIT3
^DIE EDIT2+4, EDIT3
^PRCFYN EDIT+1, EDIT+3, OBL+2
YN^PRCFYN EDIT2, ASK+2
OBL^PRCHNRQ OBL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Do you want to remove this P.O. or Receiving Report from the list of",!,"pending codesheets?"
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"P.O.(PAT) No.: "_PRCHPONO,!,"Document Identifier: ",$P(Y,U,3)
  • Line Location: E2+2
Function Call: WRITE
  • Prompt: ?35,"Requisition Number: ",$P(Y,U,10)
  • Condition for execution: PRCHN("SC")=1
  • Line Location: E2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: E2+2
Function Call: WRITE
  • Prompt: "Department No.: ",$P(X,U,1),!
  • Condition for execution: PRCHN("SFC")'=2&(PRCHN("SC")'=0)
  • Line Location: E2+3
Function Call: WRITE
  • Prompt: "Source Code: "_PRCHN("SC"),!
  • Line Location: E2+3
Function Call: WRITE
  • Prompt: !,"Payable Code: "_$P(Y,U,2),!
  • Line Location: E2+5
Function Call: WRITE
  • Prompt: "Reason Code: "_$P(X,U,14),!,"DEPOT (or Releasing Facility): ",$P(Y,U,1)
  • Line Location: E2+6
Function Call: WRITE
  • Prompt: ?45,"Depot Voucher No.: ",$P($G(^PRC(442,PRCHPO,1)),U,13)
  • Line Location: E2+7
Function Call: WRITE
  • Prompt: $C(7),!," *** ENTER DIETETICS COST PERIOD IF THIS IS A SUBSISTANCE ORDER ***",!,?5,"**** Dietetics Cost Period: "_$P($G(^PRC(442,PRCHPO,11,PRCHRPT,1)),U,2),!!
  • Line Location: E2+8
Function Call: WRITE
  • Prompt: !,"Document Identifier Code: "_$P(X,U,2),?38,"Routing Identifier Code: "_$P($G(^PRCD(441.4,+$P(X,U,3),0)),U,1)
  • Line Location: EDIT1+1
Function Call: WRITE
  • Prompt: !,"Media & Status Code: "_$P($G(^PRCD(441.4,+$P(X,U,11),0)),U,1),?38,"Activity Address Code: "_$P(X,U,16)
  • Line Location: EDIT1+2
Function Call: WRITE
  • Prompt: !,"Dept.Designation (Demand Code): "_$P($G(^PRCD(441.4,+$P(X,U,4),0)),U,1),?38,"Fund Code: "_$P(X,U,6),!,"Distribution Code: "_$P(X,U,7),?38,"Project Code: "_$P(X,U,8)
  • Line Location: EDIT1+3
Function Call: WRITE
  • Prompt: !,"Priority Code: "_$P($G(^PRCD(441.4,+$P(X,U,9),0)),U,1),?38,"Advice Code: "_$P($G(^PRCD(441.4,+$P(X,U,10),0)),U,1),!!
  • Line Location: EDIT1+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EDIT2+1
Function Call: WRITE
  • Prompt: !!!,"Select any items for which you wish to enter a source deviation code.",!
  • Line Location: EDIT2+5
Function Call: WRITE
  • Prompt: $C(7),!!!,"Control Point Obligated Balances have already been updated.",!!
  • Line Location: OBL+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: OBL+1
Function Call: WRITE
  • Prompt: !!!,$C(7),"**** Do you want to print a report showing code sheets to be created? ****"
  • Line Location: ASK+1
Routine Call
  • DIC
  • Line Location:
    • EDIT3
Routine Call
  • DIE
  • Line Location:
    • EDIT2+4
    • EDIT3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(442 - [#442] E2, E2+1, E2+7, E2+8, SETUP, SETUP+1, SETUP+2, OBL, R+1!, R+2!
^PRCD(420.8 - [#420.8] SETUP
^PRCD(441.4 - [#441.4] EDIT1+1, EDIT1+2, EDIT1+3, EDIT1+4
^PRCD(442.5 - [#442.5] SETUP+1

Label References

Name Line Occurrences
E2 EDIT, EDIT+2
EDIT1 E2+4
EDIT2 E2+8, EDIT1
EDIT3 EDIT3
R EDIT+3

Naked Globals

Name Field # of Occurrence
^(0 SETUP
^(1 SETUP, SETUP+2
^(18 E2+1, OBL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDIT+1*, EDIT+2, EDIT+3*, EDIT2*, EDIT2+1, OBL+2*, ASK+1*
>> %A EDIT+1*, EDIT+3*, EDIT2*, OBL+1*, ASK+1*
>> %B EDIT+1*, EDIT+3*, EDIT2*, OBL+1*, ASK+1*
>> %B(1 EDIT+3*, EDIT2*, OBL+1*
>> %B(2 EDIT2*
DA EDIT2+1!*, EDIT2+4!*, EDIT3*
DA(1 EDIT2+4*, EDIT3*
>> DIC EDIT3*
>> DIC(0 EDIT3*
DIE EDIT2+1!*, EDIT2+4!*, EDIT3*
DR EDIT2+1!*, EDIT2+2*, EDIT2+3*, EDIT2+4!*, EDIT3*
>> PRCHEMG SETUP+2*
>> PRCHENT EDIT
>> PRCHISMS EDIT, E2+4
>> PRCHN("MP" SETUP+1*
>> PRCHN("SC" E2+2, E2+3, E2+7, EDIT1, EDIT2+1, EDIT2+2, EDIT2+3, SETUP*
>> PRCHN("SFC" E2+3, E2+8, EDIT2+1, EDIT2+2, EDIT2+4, EDIT2+5, SETUP+2*
>> PRCHNRQ SETUP*
PRCHPO EDIT+1!, EDIT+3!, E2, E2+1, E2+7, E2+8, EDIT2+1!, EDIT2+4, EDIT3, SETUP
, SETUP+1, SETUP+2, OBL, OBL+2!, R+1, R+2
>> PRCHPONO E2*, E2+2
>> PRCHRPT E2+8, EDIT2+4, R+2
>> PRCHTYP E2+4, EDIT2+2, EDIT2+3, EDIT2+4, EDIT2+5, R+1, R+2
U E2, E2+2, E2+3, E2+5, E2+6, E2+7, E2+8, EDIT1+1, EDIT1+2, EDIT1+3
, EDIT1+4, SETUP, SETUP+1, SETUP+2, OBL
>> X E2+1*, E2+3, E2+6, EDIT1+1, EDIT1+2, EDIT1+3, EDIT1+4
>> Y E2+1*, E2+2, E2+5, E2+6, EDIT3
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  | All