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 |  Local Variables |  All
Print Page as PDF
Routine: ASURD70P

Package: Supply

Routine: ASURD70P


Information

ASURD70P ; IHS/ITSC/LMH -RPT 70 ;

Source Information

Source file <ASURD70P.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Supply 7 READ^ASU0TRRD  (SETAREA,STA)^ASULARST  (SLC,SST)^ASULDIRR  (,P7)^ASURD70I  DATE^ASUUDATE  PAZ^ASUURHDR  (C,O,U)^ASUUZIS  
Kernel 1 (,HOME)^%ZIS  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Supply 4 ASU5270DRP  ASURD70I  ASURD71P  ASURDINV  

Entry Points

Name Comments DBIA/ICR reference
LSTSLC ;EP ;
IDXBK ;EP;INDEX
SLCBK ;EP; STORAGE LOCATION CODE BRK
HEADER ;EP ;HDR
PSER ;EP;FOR TASKMAN QUEUE OF PRINT
INVOICE ;EP;INVOICE
READX ;EP ;READ TMP GLOBAL
SSTBK ;Sub Station Break

External References

Name Field # of Occurrence
^%ZIS ASURD70P+8
HOME^%ZIS ASURD70P+4
READ^ASU0TRRD READX+18, SSTBK+4
SETAREA^ASULARST ASURD70P+5
STA^ASULARST READX+3
SLC^ASULDIRR READX+13, LSTSLC+4
SST^ASULDIRR READX+8
^ASURD70I PSER+8
P7^ASURD70I PSER+1
DATE^ASUUDATE PSER+1
PAZ^ASUURHDR PSER+7, HEADER+1
C^ASUUZIS PSER+9
O^ASUUZIS ASURD70P+7
U^ASUUZIS PSER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Report must be run from Kernel option"
  • Line Location: ASURD70P+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PSER+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PSER+8
Function Call: WRITE
  • Prompt: !!?1,$E($G(ASUX("IDX")),3,7),".",$E($G(ASUX("IDX")),8,8),?30,$G(ASUMX("AR U/I"))
  • Line Location: IDXBK+7
Function Call: WRITE
  • Prompt: ?34,$J($FN($G(ASUC(0,"QTYREQ")),",",0),6),?44,$J($FN($G(ASUC(0,"QTYISS")),",",0),6),"*",?52,$J($FN($G(ASUC(0,"UCS")),",",2),8),?62,$J($FN($G(ASUC(0,"VAL")),",",2),10),?73,$G(ASUV("RMK",0))
  • Line Location: IDXBK+8
Function Call: WRITE
  • Prompt: !?5,$S($G(ASUMX("DESC"))]"":ASUMX("DESC"),1:$G(ASUMX("DELDS"))),?73,$S($G(ASUC(0,"DIF"))]"":$J($G(ASUC(0,"DIF")),7),1:$G(ASUV("RMK",2)))
  • Line Location: IDXBK+9
Function Call: WRITE
  • Prompt: !,"________________________________________________________________________________"
  • Line Location: IDXBK+10
Function Call: WRITE
  • Prompt: !!?2,"TOTAL LINE ITEMS: ",?20,$J($FN($G(ASUC(1,"ITEM")),","),5),?26,"NO. OUTS: "
  • Line Location: SLCBK+3
Function Call: WRITE
  • Prompt: ?36,$J($FN($G(ASUC(1,"OUT")),","),5),?42,"NO. PARTIALS: ",?56,$J($FN($G(ASUC(1,"PART")),","),5)
  • Line Location: SLCBK+3
Function Call: WRITE
  • Prompt: ?62,$J($FN($G(ASUC(1,"VAL")),",",2),10)
  • Line Location: SLCBK+4
Function Call: WRITE
  • Prompt: !!?3,"ISSUED BY:",?42,"CHECKED BY:",!?5,"DATE:",?45,"DATE:",!?5,"TIME STARTED:",?45,"TIME STARTED:",!?5,"TIME FINISHED:",?45,"TIME FINISHED:",!
  • Line Location: SLCBK+5
Function Call: WRITE
  • Prompt: !!?2,$J(ASUL(10,"SLC","NM"),13)
  • Line Location: LSTSLC+4
Function Call: WRITE
  • Prompt: !!?2,"T O T A L",?17,$J($FN($G(ASUC(2,"ITEM")),",",0),6),?24,$J($FN($G(ASUC(2,"OUT")),",",0),6)
  • Line Location: LSTSLC+12
Function Call: WRITE
  • Prompt: ?35,$J($FN($G(ASUC(2,"PART")),",",0),6),?42,$J($FN($G(ASUC(2,"VAL")),",",2),10),!
  • Line Location: LSTSLC+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !?1,"REPORT #",ASUV("HEAD")
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?55,ASUX("DT"),?73,"PAGE ",ASUC("PG")
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?3,"AREA ",ASUL(1,"AR","AP")
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?15,ASUL(1,"AR","NM")
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?40,"STATION ",ASUL(2,"STA","CD"),?51,ASUL(2,"STA","NM")
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !?1,"REQUISITIONER: LOC ",ASUL(18,"SST")," -",?26,ASUL(18,"SST","NM")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?48,"DATE OF REQUEST: "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?66,Y
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!?1,"CAN ",?6,ASUT(ASUT,"CAN"),?15,"USER ",?19,ASUL(19,"USR"),?24,"-",?26,ASUL(19,"USR","NM")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?49,"REQUEST NO. ",?61,ASUT(ASUT,"RQN"),!!?1,"SSA ",?6,ASUT(ASUT,"SSA"),?10,"CONTRACT/GRANT NO: ",?30,ASUT(ASUT,"CTG")
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?48,"VOUCHER NO: ",?60,ASUV("VOU")
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!?27,"VOUCHER NUMBER CONTROL SHEET",!!?18,"NO LI LI NO LI ISSUE ISSUE DOC"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !!?23,"LISTING OF ORDER QUANTITY CHANGES"
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !!?1,"STORAGE LOCATION:",?20,$G(ASUL(10,"SLC","NM"))
  • Line Location: HEADER+16
Routine Call
  • %ZIS
  • Line Location:
    • ASURD70P+4
Routine Call
  • %ZIS
  • Line Location:
    • ASURD70P+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSER+2, HEADER+7
^XTMP("ASUR" PSER+2, PSER+3, READX+1, READX+5, READX+10, READX+12, READX+15, READX+17

Label References

Name Line Occurrences
@( READX+19, IDXBK+1, LSTSLC+1
HEADER INVOICE+1, SLCBK+2
IDXBK SSTBK+11, INVOICE+31
LSTSLC READX+22
PSER ASURD70P+6
READX PSER+5
SLCBK READX+21
SSTBK READX+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASUA PSER+6!, SSTBK+15!
ASUA("#" SSTBK+1, SSTBK+2*, SSTBK+3*, SSTBK+4, SSTBK+5, SSTBK+6, SSTBK+12!, SSTBK+15*, INVOICE+14*, INVOICE+15
, INVOICE+19*, INVOICE+20, INVOICE+22*, INVOICE+23, INVOICE+25, INVOICE+26, INVOICE+27*, INVOICE+28*, INVOICE+29
>> ASUADA SSTBK+4*
>> ASUAN( SSTBK+3, SSTBK+4, SSTBK+5, SSTBK+6, SSTBK+12!, INVOICE+15*, INVOICE+20*, INVOICE+23*, INVOICE+26, INVOICE+29*
ASUC PSER+6!
ASUC("LN" SSTBK+2*, SSTBK+13*, IDXBK+1, IDXBK+11*, SLCBK+1*, SLCBK+2, SLCBK+6*, LSTSLC+14*, HEADER+1*, HEADER+12*
, HEADER+13*, HEADER+15*, HEADER+20*
ASUC("PG" READX+11*, HEADER+1*, HEADER+3
ASUC(0 SSTBK+7*, SSTBK+8*, SSTBK+9*, SSTBK+10*, SSTBK+14!, INVOICE+3*, INVOICE+5*, INVOICE+6*, INVOICE+7*, INVOICE+8*
, INVOICE+10*, INVOICE+11*, INVOICE+13*, INVOICE+19*, INVOICE+32, INVOICE+33!, IDXBK+8, IDXBK+9
ASUC(1 READX+21!, INVOICE+32*, SLCBK+3, SLCBK+4, SLCBK+7
ASUC(2 LSTSLC+9*, LSTSLC+12, LSTSLC+13, LSTSLC+14!
ASUCL PSER+6!
ASUCL( SLCBK+7*, LSTSLC+2, LSTSLC+5, LSTSLC+6, LSTSLC+7, LSTSLC+8, LSTSLC+9, LSTSLC+10!
ASUCL(0 LSTSLC+14!
ASUF PSER+6!
ASUF("BK" READX+21*, READX+22*, SSTBK+2*, INVOICE+1*, INVOICE+30*, LSTSLC+14*, HEADER+11, HEADER+15
ASUF("END" HEADER+11
ASUF("HDR" READX+6*, READX+11*, HEADER+20*
>> ASUHD PSER+1*, IDXBK+1, LSTSLC+1
>> ASUHDA READX+16*, READX+17*, READX+18, INVOICE+15, INVOICE+20, INVOICE+23, INVOICE+26, INVOICE+29
>> ASUK( ASURD70P+9, SSTBK+2, SSTBK+13, IDXBK+1, SLCBK+2, LSTSLC+14
>> ASUK("PTR" ASURD70P+9, SSTBK+2, SSTBK+13, IDXBK+1, SLCBK+2, LSTSLC+14
>> ASUK("PTRSEL" ASURD70P+6*, PSER+8
>> ASUL( PSER+6!
>> ASUL(1 ASURD70P+5, HEADER+4
>> ASUL(10 READX+13, LSTSLC+4, HEADER+16
>> ASUL(18 HEADER+6
>> ASUL(19 HEADER+8
>> ASUL(2 HEADER+5
>> ASULR("SLC" LSTSLC+1*, LSTSLC+2*, LSTSLC+3, LSTSLC+4, LSTSLC+5, LSTSLC+6, LSTSLC+7, LSTSLC+8, LSTSLC+9, LSTSLC+10
>> ASUMX("AR U/I " , IDXBK+7
>> ASUMX("DELDS" IDXBK+9
>> ASUMX("DESC" IDXBK+9
>> ASUP0 PSER+1*, READX+19
>> ASUQT(0 SSTBK+15!
>> ASUS("QTYAJ" INVOICE+14*, INVOICE+19*, INVOICE+22*, INVOICE+25*
ASUT PSER+1*, PSER+6!, READX+18, SSTBK+7, SSTBK+8, SSTBK+9, SSTBK+10, SSTBK+11, INVOICE+2, INVOICE+3
, INVOICE+4, INVOICE+5, INVOICE+6, INVOICE+7, INVOICE+8, INVOICE+9, INVOICE+10, INVOICE+12, INVOICE+13, INVOICE+16
, INVOICE+21, INVOICE+24, IDXBK+6, HEADER+7, HEADER+8, HEADER+9
ASUT( SSTBK+7, SSTBK+8, SSTBK+9, SSTBK+10, SSTBK+11, INVOICE+2*, INVOICE+3, INVOICE+4, INVOICE+5, INVOICE+6
, INVOICE+7, INVOICE+8, INVOICE+9*, INVOICE+10, INVOICE+12, INVOICE+13*, INVOICE+16, INVOICE+21, INVOICE+24, IDXBK+6
, HEADER+7, HEADER+8, HEADER+9
ASUU PSER+6!
ASUV PSER+6!
ASUV("#" SSTBK+4*, SSTBK+13
ASUV("HEAD" HEADER+2*, HEADER+3
ASUV("IDX" READX+16*, READX+20, SSTBK+13*
ASUV("RMK" SSTBK+5*, SSTBK+6*, SSTBK+8, INVOICE+9*, INVOICE+14*, INVOICE+15, INVOICE+17*, INVOICE+18*, INVOICE+20, INVOICE+22*
, INVOICE+23, INVOICE+28*, INVOICE+29, IDXBK+3*!, IDXBK+4*!, IDXBK+5*, IDXBK+6*, IDXBK+8, IDXBK+9, IDXBK+11!
ASUV("SLC" READX+13*, READX+22, SLCBK+7
ASUV("SST" READX+7, READX+8*
ASUV("STA" READX+2, READX+3*
ASUV("VOU" READX+11*, LSTSLC+14*, HEADER+10
>> ASUX("DT" PSER+2*, HEADER+3
>> ASUX("IDX" READX+14*, READX+15*, READX+16, READX+17, READX+20*, SSTBK+11*, SSTBK+13, IDXBK+7
>> ASUX("RPT" PSER+1*, PSER+2, PSER+3, READX+1, READX+5, READX+10, READX+12, READX+15, READX+17, INVOICE+17
, IDXBK+2, HEADER+2, HEADER+18
>> ASUX("SLC" READX+12*, READX+13, READX+15, READX+17, READX+22*
>> ASUX("SST" READX+4*, READX+5*, READX+7, READX+8, READX+10, READX+12, READX+15, READX+17
>> ASUX("STA" READX+1*, READX+2, READX+3, READX+5, READX+10, READX+12, READX+15, READX+17
>> ASUX("VOU" READX+6*, READX+9*, READX+10*, READX+11, READX+12, READX+15, READX+17, LSTSLC+14
DA PSER+6!
DIC PSER+6!
>> DUOUT PSER+7, READX+5, READX+10, SSTBK+11, INVOICE+31, IDXBK+1, SLCBK+2, HEADER+1
DUZ(2 ASURD70P+4
IO ASURD70P+4
IOF PSER+4, PSER+7, PSER+8, HEADER+1
>> IOP ASURD70P+8*
>> POP ASURD70P+8
U PSER+2, SSTBK+4, SSTBK+5, SSTBK+6, INVOICE+15, INVOICE+20, INVOICE+23, INVOICE+26, INVOICE+29
X PSER+3*, PSER+6!*, INVOICE+32~*, SLCBK+7~*, LSTSLC+9~*
>> X2 LSTSLC+11*
>> X3 LSTSLC+11*
Y PSER+2*, PSER+6!, HEADER+7*
>> ZTDESC ASURD70P+7*
>> ZTRTN ASURD70P+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All