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

Package: Equipment Turn-In Request

Routine: PRCNEQAP


Information

PRCNEQAP ;SSI/ALA-Equipment Committee Approval ;[ 09/11/96 1:59 PM ]

Source Information

Source file <PRCNEQAP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Ask for approval type
BEG ;
EXIT
HDR(X) ; Prints NX header and up to 18 lines of NX data
GETSUMS ; Get line item total & display stuff

Interaction Calls

Name Line Occurrences
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