Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call