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

Package: Equipment Turn-In Request

Routine: PRCNEQA2


Information

PRCNEQA2 ;SSI/ALA-Equipment Committee Approval ;[ 09/11/96 2:01 PM ]

Source Information

Source file <PRCNEQA2.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
BLST ; Build list of Equipment Requests
BPRT ; Update display number and print a screenful
BLP ; Main loop: get input & process help
SEL
SEL1 ;
HDR ; Prints NX header and up to 12 lines of NX data
GETSUMS ; Get line item total & display stuff

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO RECORDS TO PROCESS"
  • Line Location: BLP+3
Function Call: WRITE
  • Prompt: !,"No Next Page"
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !,"No Previous Page"
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: @IOF,?15,EQXT_" in the following Equipment Requests",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Num#",?7,"Rank",?13,"Request #",?33,"Service",?60,"# Items",?70,"Amount",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,Y,?7,$P($G(^PRCN(413,D0,6)),U,3)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?13,$P($G(^PRCN(413,D0,0)),U)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?33,$E(SERV,1,25),?62,TQTY,?70,"$",$J(TOTAL,8,2)
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls