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

Package: IFCAP

Routine: PRCPSLOI


Information

PRCPSLOI ;WISC/RFJ-create and transmit 663,669 code sheets ;19 Feb 92

Source Information

Source file <PRCPSLOI.m>

Entry Points

Name Comments DBIA/ICR reference
DQ(TRANNO,TRANID) ; create/trans receiving code sheets to log
; tranno=transaction number
; tranid=tran register id number
ASKDEPT ; ask department number
; prcpflag is returned if incorrect response
ASKPER ; ask dietetic period
; prcpflag is returned if incorrect response
ASKDEPOT ; ask depot number (field 107 in 442)
; prcpflag is returned if incorrect response
ASKVOUCH ; ask depot voucher number (field .09 in 442)
; prcpflag is returned if incorrect response
ASKREQNO ; ask requisition number (supply) (field 102.4 in 442)
; prcpflag is returned if incorrect response

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$ERROR^PRCPSLOR
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !,$$ERROR^PRCPSLOR
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: " ",PRCPXMZ(%)," "
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKREQNO+2
Info |  Source |  Entry Points |  Interaction Calls