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

Package: Supply

Routine: ASURD13P


Information

ASURD13P ; IHS/ITSC/LMH -RPT 13 REQM-ANAL ;

Source Information

Source file <ASURD13P.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Supply 8 (AREA,SETAREA,STAT)^ASULARST  (M,MIC,MICK)^ASUMSTRD  ^ASURD130  ^ASURD132  DATE^ASUUDATE  CLS^ASUUHDG  PAZ^ASUURHDR  (C,O,U)^ASUUZIS  
Kernel 1 (,HOME)^%ZIS  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Supply 3 ASU5113DRP  ASUCODAY  ASUCORPX  

Entry Points

Name Comments DBIA/ICR reference
PACT ;EP; -PRINT ACCOUNT TOTALS
P0 ;EP ;SELECTION
CMPT ;EP ;CREATE EXTRACTS
P5 ;VEND & ACCT
MENU ;EP; GET ITEM AND DATE RANGES
ADDMNT ;ADD MONTHS FROM ASUMS FOR INDEX. CHECK EACH USER
HEADER ;HEADER
PSER ;EP;FOR TASKMAN QUEUE OF PRINT
PRTVNDOR ;PRINT VENDOR TOTALS AND HEADERS
NEWVNDR ;EP; -SET VENDOR NAME
END ;

External References

Name Field # of Occurrence
^%ZIS ASURD13P+8
HOME^%ZIS ASURD13P+4
AREA^ASULARST PSER+14
SETAREA^ASULARST ASURD13P+5
STAT^ASULARST PSER+14
M^ASUMSTRD PSER+27
MIC^ASUMSTRD ADDMNT+1
MICK^ASUMSTRD ADDMNT+1
^ASURD130 CMPT+1
^ASURD132 P5+17
DATE^ASUUDATE PSER+2
CLS^ASUUHDG PSER+11, MENU+3, MENU+10, MENU+13
PAZ^ASUURHDR END+3, HEADER+2
C^ASUUZIS END+4
O^ASUUZIS ASURD13P+8
U^ASUUZIS PSER+8
^DIR MENU+6, MENU+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Report must be run from Kernel option"
  • Line Location: ASURD13P+4
Function Call: WRITE
  • Prompt: !!,"NO REPORT 13 DATA FOR SELECTED PARAMETERS"
  • Line Location: PSER+11
Function Call: WRITE
  • Prompt: !!?14,"STATION TOTAL NO ITEMS",?38,ASUC("VENITM",1),?44,"EOV",?48,$J($FN(ASUC("EOQVAL",4),",",2),12)
  • Line Location: PSER+35
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !?18,"REQUIREMENTS ANALYSIS REPORT",!?26,"ITEM SELECTION",!!
  • Line Location: MENU+3
Function Call: WRITE
  • Prompt: ?26,"PERIOD SELECTION"
  • Line Location: MENU+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?1,"REPORT #13 REQUIREMENTS ANALYSIS",ASUV("HEADER")
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?80,$E(ASUK("DT","FM"),4,5),"/",$E(ASUK("DT","FM"),6,7),"/",$E(ASUK("DT","FM"),2,3),?120,"PAGE: ",ASUC("PG")
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !?3,"AREA: ",ASUL(1,"AR","AP"),?15,ASUL(1,"AR","NM")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?3,"STAT: ",ASUL(2,"STA","CD"),?15,ASUL(2,"STA","NM"),?41,"ACCOUNT: ",$S(ASUT("ACC")=1:"PHARMACY",ASUT("ACC")=3:"SUBSISTENCE",1:"GENERAL SUPPLIES")
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?74,"VENDOR: ",$S(ASUV("VEN NM")=" ":ASUT("VNDR"),1:ASUV("VEN NM")),?100,"EOQ TABLE: ",ASUV("EOQTB")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !!?3,"INDEX SLC",?32,"USAGE BY MONTH -CURRENT TO OLDEST",!?2,"NUMBER",?16,"ORDER",?35,"ISSUED NO. ISSUED NO.",?65,"ISSUED NO."
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !?1,"DESCRIPTION",?16,"NUMBER",?34,"MO",?37,"QUANT",?44,"REQ",?48,"MO",?51,"QUANT",?58,"REQ",?62,"MO",?65,"QUANT",?72,"REQ"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------------------------------------------------------------------",!!
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !!?3,$E(ASUMX("IDX"),1,5),".",$E(ASUMX("IDX"),6,6),?12,$P(ASUMS(2),U)
  • Line Location: P5+3
Function Call: WRITE
  • Prompt: !!?16,"VENDOR TOTAL NO ITEMS",?38,ASUC("VENITM"),?44,"EOV",?48,$J($FN(ASUC("EOQVAL",5),",",2),12)
  • Line Location: PACT+2
Function Call: WRITE
  • Prompt: !!?16,"REQUISITIONED BY:",!?35,"SIGNATURE/TITLE",?58,"DATE:"
  • Line Location: PACT+3
Function Call: WRITE
  • Prompt: !!?21,"APPROVED BY:",!?35,"SIGNATURE/TITLE",?58,"DATE"
  • Line Location: PACT+4
Function Call: WRITE
  • Prompt: !!?16,"FUNDS AVAILABLE :",!?35,"SIGNATURE/TITLE",?58,"DATE",!
  • Line Location: PACT+5
Routine Call
  • %ZIS
  • Line Location:
    • ASURD13P+4
Routine Call
  • DIR
  • Line Location:
    • MENU+6
    • MENU+11
Routine Call
  • %ZIS
  • Line Location:
    • ASURD13P+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUMS("B" PSER+13
^ASUMX - [#9002032] PSER+8, P5+1
^XTMP("ASUR" PSER+1!*, PSER+10, PSER+12, PSER+15, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25, HEADER+1

Label References

Name Line Occurrences
ADDMNT P5+17
CMPT PSER+8
END PSER+11
HEADER PSER+30, PACT+1, PRTVNDOR+1, PRTVNDOR+2, NEWVNDR+1, NEWVNDR+3
MENU ASURD13P+6
NEWVNDR PSER+29
P0 ASURD13P+6, HEADER+4
P5 PSER+30
PACT PSER+21, PSER+31, NEWVNDR+2
PSER ASURD13P+7

Naked Globals

Name Field # of Occurrence
^( HEADER+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END+1!
ASUC END+1!
ASUC("EOQVAL" PSER+3*, PSER+32, PSER+33*, PSER+35, PSER+36*, PACT+2, PACT+7*, PACT+8*
ASUC("LN" PSER+9*, PSER+30, PSER+33*, HEADER+1*, HEADER+12*, P5+4*, PACT+1, PACT+6*
ASUC("PG" PSER+9*, HEADER+1*, HEADER+2, HEADER+5
ASUC("TOT" PSER+9*
ASUC("VENITM" PSER+3*, PSER+32, PSER+33*, PSER+35, P5+18*, PACT+2, PACT+6*, PACT+8*
ASUC("VENS" PSER+3*, P5+2*, PRTVNDOR+2*
ASUD END+1!
ASUD("R13" ASURD13P+6*, PSER+4*, PSER+6, P0+1, P0+2*, P0+3*, P0+4*, P0+5*, P0+6*, P0+7
, MENU+2, MENU+8*, MENU+9, MENU+13*
ASUF END+1!
ASUF("IO" MENU+1*, MENU+14!
ASUF("PR" PSER+16*, PSER+20*, PSER+21*, NEWVNDR+2, NEWVNDR+3*
>> ASUK( ASURD13P+9
>> ASUK("DT" PSER+1, PSER+2, P0+2, HEADER+5
>> ASUK("PTR" ASURD13P+9
>> ASUK("PTRSEL" ASURD13P+7*, END+3
>> ASUL( END+2!
>> ASUL("EOQVAL" PSER+3*, PACT+7
>> ASUL(1 ASURD13P+5, HEADER+6
>> ASUL(2 PSER+28, HEADER+7
ASUMS END+1!
ASUMS("DMD" PSER+34!
ASUMS("E#" PSER+13*, PSER+26*, P5+1
ASUMS("EOQ" PSER+28
ASUMS("ORD#" P5+5, P5+6
ASUMS("VENAM" PSER+29, NEWVNDR+1, NEWVNDR+3
ASUMS(2 P5+3
ASUMX END+1!
ASUMX("IDX" P5+2*, P5+3
ASUMX("NSN" P5+12
ASUMX(0 P5+1*, P5+2
ASUS END+1!
ASUT END+1!
ASUT("ACC" PSER+9*, PSER+15*, PSER+16, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25, HEADER+1, HEADER+7
, PRTVNDOR+2
ASUT("AR" PSER+10*, PSER+11, PSER+12, PSER+14, PSER+15, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25
, HEADER+1
ASUT("IDX" PSER+23*, PSER+24, PSER+25
ASUT("SEQ" PSER+24*, PSER+25
ASUT("SLC" PSER+9*, PSER+17*, PSER+18, PSER+19, PSER+22, PSER+23, PSER+24, PSER+25
ASUT("STA" PSER+9*, PSER+12*, PSER+13, PSER+14, PSER+15, PSER+17, PSER+22, PSER+23, PSER+24, PSER+25
, HEADER+1
ASUT("VNDR" PSER+9*, PSER+22*, PSER+23, PSER+24, PSER+25, HEADER+8
ASUU END+1!
ASUU(1 HEADER+1*
ASUU(2 HEADER+1*
ASUV END+1!
ASUV("ACC" PSER+9*, PSER+16*, PRTVNDOR+1
ASUV("EOQTB" PSER+28*, HEADER+8
ASUV("HEADER" PSER+5*, PSER+6*, PSER+7*, HEADER+3
ASUV("M" PSER+6*
ASUV("ORD#" P5+6*, P5+7, P5+8, P5+10, P5+12*, P5+13, P5+14, P5+16, P5+17!
ASUV("PRV MO" , PSER+5, P0+7*
ASUV("SLC" PSER+16*, PSER+18, PSER+19*
ASUV("VEN NM" , PSER+16*, PSER+29, HEADER+8, NEWVNDR+1*, NEWVNDR+3*
>> ASUX(0 PSER+25*, PSER+26
DIR MENU+13!
DIR("A" MENU+4*
DIR("B" MENU+11*
DIR(0 MENU+5*, MENU+11*
DT P0+2
>> DTOUT MENU+7, MENU+12
>> DUOUT ASURD13P+6, PSER+17, PSER+21, PSER+22, PSER+23, PSER+24, PSER+30, PSER+31, MENU+2, MENU+7
, MENU+9, MENU+12, HEADER+2, PACT+1, PRTVNDOR+2, NEWVNDR+2
DUZ(2 ASURD13P+4
IO ASURD13P+4, MENU+1, MENU+14
IO(0 MENU+1
IOF END+3, HEADER+2
>> IOP ASURD13P+8*
>> POP ASURD13P+8
U PSER+1, PSER+26, P5+2, P5+3
X PSER+8*, PSER+14*, END+1!, END+2*
X1 PSER+14*, END+1!
X2 END+1!
X3 END+1!
X4 END+1!
Y END+1!, MENU+8, MENU+13
ZTDESC ASURD13P+8*, END+1!
ZTRTN ASURD13P+8*, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All