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: PRCHDEP4

Package: IFCAP

Routine: PRCHDEP4


Information

PRCHDEP4 ;WISC/RWS-SUPPLEMENTAL ROUTINES CALLED FROM PRCHDEP3 ;4/20/92 9:34 AM

Source Information

Source file <PRCHDEP4.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
EDIT
E2
SETUP ;S PRCHN("SC")="" I $D(^PRC(442,PRCHPO,1)) S PRCHN("SC")=$S($D(^PRCD(420.8,+$P(^(1),U,7),0)):$P(^(0),U,1),1:"") S:"013"[PRCHN("SC") PRCHNRQ=1
OBL
ASK
R ;REMOVE P.O. OR RECEIVING REPORT FROM PENDING LIST
EN001
B401 ;DEPOT DUE-IN TRANSACTION 401
DEFAULT
B431 ;DEPOT 431 AND 434 TRANSACTIONS

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+1
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: $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+0

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