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

Package: Supply

Routine: ASUV4AL


Information

ASUV4AL ; IHS/ITSC/LMH -RPT ADJUSTMENT DOC ;

Source Information

Source file <ASUV4AL.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Supply 9 WRITE^ASU0TRWR  SETAREA^ASULARST  ACC^ASULDIRF  READ^ASUMXDIO  CLS^ASUUHDG  (C,O,U)^ASUUZIS  STA^ASUV0NT  (ASUV3AN0,FLAGIT4)^ASUV3AN  
(ACCOUNT,INDEX,STORLOC)^ASUV9IMR  
VA Fileman 4 ^%DT  YX^%DTC  ^DIC  ^DIR  
IHS VA Utilities 1 ^XBKVAR  
Kernel 1 (,HOME)^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Supply 1 ASU937CFAD  

Entry Points

Name Comments DBIA/ICR reference
SEPERATE ;
FOOTING ;
ASUV4AL0 ;ADJUSTMENT DOCUMENT SORT
ASUV4AL1 ;
FLAGIT ;
EXIT ;
KEY ;
ASUV4AL3 ;
HEADING ;

External References

Name Field # of Occurrence
^%DT ASUV4AL+6
YX^%DTC ASUV4AL+4
^%ZIS ASUV4AL+39
HOME^%ZIS ASUV4AL+5, ASUV4AL+34
WRITE^ASU0TRWR KEY+31
SETAREA^ASULARST ASUV4AL+36
ACC^ASULDIRF ASUV4AL+16
READ^ASUMXDIO ASUV4AL1+24
CLS^ASUUHDG ASUV4AL+7, FLAGIT+1, HEADING+1
C^ASUUZIS EXIT+3, FLAGIT+3
O^ASUUZIS ASUV4AL+38
U^ASUUZIS ASUV4AL1+2
STA^ASUV0NT ASUV4AL+8
ASUV3AN0^ASUV3AN ASUV4AL+31
FLAGIT4^ASUV3AN FLAGIT+2
ACCOUNT^ASUV9IMR ASUV4AL+21, ASUV4AL1+7, ASUV4AL1+12
INDEX^ASUV9IMR ASUV4AL1+20
STORLOC^ASUV9IMR ASUV4AL1+18
^DIC ASUV4AL+11, KEY+25
^DIR ASUV4AL+24
^XBKVAR ASUV4AL+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Report must be run from Kernel option"
  • Line Location: ASUV4AL+35
Function Call: WRITE
  • Prompt: "REPORT 37C INVENTORY ADJUSTMENT DOUCMENT DATE: ",ASUK("RUN","DT"),?70," PAGE: ",ASUC("PG")
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: !,"AREA: ",ASUL(1,"AR","NM")
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: !,"STAT: ",ASUL(2,"STA","NM"),?33,"ACCOUNT : ",ASUL(9,"ACC","NM"),?55,"INV. DATE ",ASUV("DTPRNT")
  • Line Location: HEADING+4
Function Call: WRITE
  • Prompt: !,"VOUCHER NO: ",$E(ASUMV("VOU"),1,2),"-",$E(ASUMV("VOU"),3,4),"-",$E(ASUMV("VOU"),5,8)
  • Line Location: HEADING+5
Function Call: WRITE
  • Prompt: !!,"ITEM INDEX"
  • Line Location: HEADING+6
Function Call: WRITE
  • Prompt: ?34,"U UNIT OVERAGE SHORTAGE"
  • Line Location: HEADING+7
Function Call: WRITE
  • Prompt: !," NO. NUMBER DESCRIPTION"
  • Line Location: HEADING+8
Function Call: WRITE
  • Prompt: ?34," I COST QTY VALUE QTY VALUE"
  • Line Location: HEADING+9
Function Call: WRITE
  • Prompt: !,"_______________________________________________________________________________"
  • Line Location: SEPERATE+1
Function Call: WRITE
  • Prompt: !!?5,"TOTALS: OVERAGES: NO. LI: ",$J(ASUC("OVR","LI"),6),?45," VAL: ",$J($FN(ASUC("OVR","VAL"),",",2),10)
  • Line Location: FOOTING+2
Function Call: WRITE
  • Prompt: !?13,"SHORTAGES: NO. LI: ",$J(ASUC("SHT","LI"),6),?45," VAL: ",$J($FN(ASUC("SHT","VAL"),",",2),10)
  • Line Location: FOOTING+3
Routine Call
  • %ZIS
  • Line Location:
    • ASUV4AL+5
    • ASUV4AL+34
Routine Call
  • DIC
  • Line Location:
    • ASUV4AL+11
    • KEY+25
Routine Call
  • DIR
  • Line Location:
    • ASUV4AL+24
Routine Call
  • %ZIS
  • Line Location:
    • ASUV4AL+39

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUMS - [#9002031] ASUV4AL1+25
^ASUMV - [#9002030] ASUV4AL+20, ASUV4AL0+3, ASUV4AL0+5, ASUV4AL0+6, ASUV4AL0+7
^ASUMX - [#9002032] KEY+21
^ASUV("AJ" ASUV4AL0+1!, ASUV4AL0+8*, ASUV4AL1+6, ASUV4AL1+16, ASUV4AL1+17
^DD("DD" ASUV4AL1+8, ASUV4AL1+13

Label References

Name Line Occurrences
ASUV4AL0 ASUV4AL+33
ASUV4AL1 ASUV4AL+41
ASUV4AL3 ASUV4AL1+34, ASUV4AL1+40
EXIT ASUV4AL+8, ASUV4AL+19, ASUV4AL+22, ASUV4AL+32, ASUV4AL+35, ASUV4AL+39, ASUV4AL+40
FLAGIT ASUV4AL1+6
FOOTING ASUV4AL1+45
HEADING ASUV4AL1+9, ASUV4AL1+15, ASUV4AL1+19
KEY ASUV4AL3+2
SEPERATE ASUV4AL1+43, HEADING+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT ASUV4AL+6*
%H ASUV4AL+4*!
ASUC EXIT+1!, KEY+6*, KEY+30*
ASUC("LN" ASUV4AL1+3*, ASUV4AL1+15, ASUV4AL1+19, ASUV4AL1+44*, ASUV4AL1+45, HEADING+1*, FOOTING+1*
ASUC("OVR" ASUV4AL1+4*, ASUV4AL1+42*, FOOTING+2
ASUC("PG" ASUV4AL1+3*, HEADING+1*, HEADING+2
ASUC("SHT" ASUV4AL1+5*, ASUV4AL1+36*, FOOTING+3
ASUC(0 KEY+2*, KEY+34!
ASUF ASUV4AL+26*, ASUV4AL+27, ASUV4AL+28*, ASUV4AL+32, EXIT+1!
ASUF("RPRN" FLAGIT+2, ASUV4AL3+1
ASUF("SV" KEY+31*
ASUF("UPDT" KEY+2*
>> ASUHDA KEY+29*
>> ASUK( ASUV4AL+40!
>> ASUK("DT" KEY+8
>> ASUK("PTR" ASUV4AL+40!, EXIT+3, FLAGIT+3
>> ASUK("PTR-Q" ASUV4AL+40!
>> ASUK("RUN" ASUV4AL+4*, HEADING+2
>> ASUL(1 ASUV4AL+36, HEADING+3, KEY+9, KEY+20
>> ASUL(2 ASUV4AL+8, ASUV4AL+15, ASUV4AL+18, ASUV4AL0+7*, ASUV4AL1+25, HEADING+4, KEY+3, KEY+12
>> ASUL(9 ASUV4AL+23, ASUV4AL1+10, HEADING+4
ASUMS EXIT+1!
ASUMS("E#" ASUV4AL1+25*
ASUMSG KEY+33!
ASUMV EXIT+1!
ASUMV("ACC" ASUV4AL+15*, ASUV4AL+16, ASUV4AL+23, ASUV4AL1+10
ASUMV("CNT" ASUV4AL1+22
ASUMV("E#" ASUV4AL+15*, ASUV4AL+18*, ASUV4AL+19, ASUV4AL+20, ASUV4AL+25, ASUV4AL+37, ASUV4AL0+2*, ASUV4AL0+3*, ASUV4AL0+4*, ASUV4AL0+5*
, ASUV4AL0+6, ASUV4AL0+7, ASUV4AL0+8, ASUV4AL1+1*, ASUV4AL1+6, ASUV4AL1+11*, ASUV4AL1+14*, ASUV4AL1+16*, ASUV4AL1+17*
ASUMV("IDX" ASUV4AL1+21, ASUV4AL1+25, KEY+5
ASUMV("INVBEG" ASUV4AL1+8, ASUV4AL1+13
ASUMV("MODE" ASUV4AL+28*
ASUMV("QTY" ASUV4AL1+23, ASUV4AL1+30, ASUV4AL1+32, ASUV4AL1+35, ASUV4AL1+39, ASUV4AL1+41
ASUMV("U/C" ASUV4AL1+23, ASUV4AL1+27
ASUMV("VOU" HEADING+5, KEY+4
ASUMX EXIT+1!
ASUMX("AR U/I " , ASUV4AL1+27
ASUMX("DESC" ASUV4AL1+27
ASUMX("IDX" ASUV4AL1+26
ASUR EXIT+1!
ASUSAV EXIT+1!
>> ASUT ASUV4AL1+28*, ASUV4AL1+29, ASUV4AL1+32, ASUV4AL1+33, ASUV4AL1+39, KEY+1, KEY+2, KEY+3, KEY+4, KEY+5
, KEY+7, KEY+8, KEY+9, KEY+10, KEY+11, KEY+12, KEY+13, KEY+14, KEY+16, KEY+17
, KEY+18, KEY+20, KEY+21, KEY+22, KEY+24, KEY+25, KEY+34
>> ASUT( ASUV4AL1+29*, ASUV4AL1+32*, ASUV4AL1+33*, ASUV4AL1+39*, KEY+1*, KEY+2*, KEY+3*, KEY+4*, KEY+5*, KEY+7*
, KEY+8*, KEY+9*, KEY+10*, KEY+11*, KEY+12*, KEY+13, KEY+14*, KEY+16*, KEY+17, KEY+18*
, KEY+20, KEY+21*, KEY+22*, KEY+24*, KEY+25, KEY+34!
>> ASUT("TRCD" ASUV4AL1+31*, ASUV4AL1+38*
>> ASUU(11 EXIT+1!, ASUV4AL1+16*, ASUV4AL1+26
ASUV EXIT+1!
ASUV("ADJUST VAL" , ASUV4AL1+23*, ASUV4AL1+29, ASUV4AL1+35, ASUV4AL1+36, ASUV4AL1+41, ASUV4AL1+42
ASUV("ASA" ASUV4AL+25*, ASUV4AL+37*, ASUV4AL1+1
ASUV("CNT" ASUV4AL1+22*
ASUV("DT" ASUV4AL+6*, KEY+1
ASUV("DTPRNT" ASUV4AL1+8*, ASUV4AL1+13*, HEADING+4
ASUV("MSG" ASUV4AL+30*
ASUV("TIME" ASUV4AL3+2*, ASUV4AL3+3, ASUV4AL3+4*, KEY+1
DA KEY+29*, KEY+31, KEY+33!
DIC ASUV4AL+10*, ASUV4AL+11!, KEY+25*, KEY+33!
DIC("A" ASUV4AL+9*
DIC(0 ASUV4AL+10*, KEY+25*
DIE KEY+33!
DIR ASUV4AL+24!
DIR(0 ASUV4AL+24*
DR KEY+33!
DT ASUV4AL+4
DTOUT ASUV4AL+8, ASUV4AL+12, EXIT+2!
DUOUT ASUV4AL+8, ASUV4AL+12, EXIT+2!
DUZ KEY+2, KEY+7
DUZ(2 ASUV4AL+35
IO ASUV4AL+34
IO(0 ASUV4AL+5, FLAGIT+1
IOP ASUV4AL+39*, ASUV4AL+40!
POP ASUV4AL+39, ASUV4AL+40!
U ASUV4AL+15, ASUV4AL0+6, ASUV4AL0+7, KEY+21
X ASUV4AL+4!, ASUV4AL+6*, EXIT+2!, KEY+25*, KEY+33!
X1 EXIT+2!
Y ASUV4AL+4!, ASUV4AL+6, ASUV4AL+13, ASUV4AL+14, ASUV4AL+15, EXIT+2!, ASUV4AL1+8*!, ASUV4AL1+13*!, KEY+26, KEY+29
, KEY+33!
ZTDESC ASUV4AL+38*, ASUV4AL+40!, EXIT+2!
ZTRTN ASUV4AL+38*, ASUV4AL+40!, EXIT+2!
ZTSK ASUV4AL+40!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All