Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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 ]

;;1.0;Equipment/Turn-In Request;;Sep 13, 1996

Source Information

Source file <PRCNEQAP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Equipment Turn-In Request 3 (FAP,LINE)^PRCNEQA1  ^PRCNEQA2  ^PRCNEQS  
VA FileMan 2 EN^DIQ1  ^DIR  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Equipment Turn-In Request 1 PRCN NX EQ COMM APPROVE  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS HDR+1
EN^DIQ1 GETSUMS+5
^DIR EN+17
FAP^PRCNEQA1 BEG+6
LINE^PRCNEQA1 BEG+7
^PRCNEQA2 BEG+1
^PRCNEQS BEG+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?15,EQXT_" in the following Equipment Requests",!!
  • Line Location: HDR(X)+2
Function Call: WRITE
  • Prompt: !,"Num#",?7,"Rank",?13,"Request #",?33,"Service",?60,"# Items",?70,"Amount",!
  • Line Location: HDR(X)+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR(X)+4
Function Call: WRITE
  • Prompt: !,Y,?7,$P($G(^PRCN(413,D0,6)),U,3)
  • Line Location: HDR(X)+6
Function Call: WRITE
  • Prompt: ?13,$P($G(^PRCN(413,D0,0)),U)
  • Line Location: HDR(X)+7
Function Call: WRITE
  • Prompt: ?33,$E(SERV,1,25),?62,TQTY,?70,"$",$J(TOTAL,8,2)
  • Line Location: HDR(X)+8
Routine Call
  • %ZIS
  • Line Location:
    • HDR+1
Routine Call
  • DIR
  • Line Location:
    • EN+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] HDR+7
^PRCN(413 - [#413] BEG+8, BEG+9!, HDR+6, HDR+7, GETSUMS+2, GETSUMS+12
^TMP($J BEG+5, EXIT+1!, HDR+5

Label References

Name Line Occurrences
BEG BEG+5
EXIT EN+17, BEG+1
GETSUMS HDR+6

Naked Globals

Name Field # of Occurrence
^(0 HDR+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COST EXIT+2!, GETSUMS+12*
D EXIT+2!
D0 EXIT+2!, HDR+5*, HDR+6, HDR+7, GETSUMS+2, GETSUMS+4, GETSUMS+12
D1 EXIT+2!, GETSUMS+1*, GETSUMS+2*, GETSUMS+4~
DA EXIT+2!, GETSUMS+4*
DA( GETSUMS+4*
DA(1 GETSUMS+4*
DIC GETSUMS+4*, GETSUMS+9!
DIQ GETSUMS+3*, GETSUMS+9!
DIQ(0 GETSUMS+3*
DIR EXIT!
DIR("A" EN+1*, EN+2*, EN+3*, EN+4*, EN+5*, EN+6*, EN+7*, EN+8*, EN+9*, EN+10*
, EN+11*, EN+12*, EN+13*, EN+14*, EN+15*
DIR(0 EN+16*
DIRUT EN+17, BEG+1, EXIT!
DR GETSUMS+3*, GETSUMS+9!
DR( GETSUMS+3*
>> DTOUT BEG+7
>> DUOUT BEG+5*, BEG+6, BEG+7
EQDA EXIT+2!
EQLS EXIT+1!
EQXI EN+17*, BEG+2, BEG+3, BEG+4, BEG+6, BEG+7, EXIT+1!
EQXT EN+17*, EXIT+1!, HDR+2
ER EXIT+2!
FN EXIT+2!, GETSUMS+10*, GETSUMS+11
I EXIT+2!, HDR+4*, GETSUMS+11*, GETSUMS+12
IN BEG+5*, BEG+8, BEG+9, EXIT+2!
IN2 EXIT+2!
IOF HDR+1, HDR+2
J EXIT+2!
LBN EXIT+2!, GETSUMS+6*, GETSUMS+7
LBTOT GETSUMS+9!
LBTOT( GETSUMS+6, GETSUMS+7
LPRI EXIT+2!
LTOTAL EXIT!, GETSUMS+1*, GETSUMS+8*, GETSUMS+10
MSGN BEG+4*, EXIT+2!
NTRN EXIT+1!
OLDPRI EXIT+3!
PN EXIT!, GETSUMS+11*, GETSUMS+12
PRCNI EXIT+1!
PRCNJ EXIT+1!
PRCNK EXIT+1!
PRCNL EXIT+1!
PRCNN EXIT+1!
PRCNT EXIT!, EXIT+1!
PRCNX EXIT+2!
PRCNZ EXIT!
PRIMAX EXIT+3!
PSER BEG+8*, BEG+9, BEG+10!
RNK BEG+9*, BEG+10!
SERV EXIT!, HDR+7*, HDR+8
SK EXIT+1!
STAT BEG+2*, EXIT+2!
STT BEG+3*, EXIT+2!
TOTAL EXIT!, HDR+8, GETSUMS+1*, GETSUMS+10*, GETSUMS+12*
TQTY EXIT!, HDR+8, GETSUMS+1*, GETSUMS+2*
U HDR+6, HDR+7, GETSUMS+12
>> VTI BEG+1
X EN+17, BEG+10!, EXIT+3!, HDR~, HDR+5, GETSUMS+7*, GETSUMS+8, GETSUMS+9!
XMDT EXIT+3!
XX EXIT!
Y EXIT!, HDR+5*, HDR+6, GETSUMS+1~
Y(0 EN+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All