Routine: ASURO26P

Package	Total	Call Graph
Supply	11	(AREA,SETAREA,STAT)^ASULARST REQ^ASULDIRR READ^ASUMKBIO ^ASUMSTRD READ^ASUMXDIO ^ASURO260 (SST,USR)^ASURO26A DATE^ASUUDATE CLS^ASUUHDG PAZ^ASUURHDR (,C,O,Q,U)^ASUUZIS
IHS VA Utilities	1	^XBKVAR
Kernel	1	(,HOME)^%ZIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	1	ASU826PPIB

Name	Comments	DBIA/ICR reference
INDEX	;
MOTBL	;
SELAOMO	;
3	;;ISSUE BOOK -INDEX SEQ
UNKNOWN	;
K	;
READMST	;
INIT	;
HDPG	;EP; -COVER PAGE FOR EACH CATEGORY
1	;;ISSUE BOOK -ALPHA SEQ BY SUB STATION AND USER
HEADER	;
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
2	;;ISSUE BOOK -ALPHA SEQ BY CATEGORY
PRINT	;EP ;TO RE-CREATE REPORT FROM PREVIOUSLY SELECTED RECORDS
SELMONTH	;
PRTMOS	;

Name	Field # of Occurrence
^%ZIS	PRINT+7
HOME^%ZIS	INIT+3
AREA^ASULARST	HEADER+3, HDPG+3
SETAREA^ASULARST	PRINT+4, INIT+2, SELMONTH+18
STAT^ASULARST	HEADER+4, HDPG+3
REQ^ASULDIRR	INDEX+8
READ^ASUMKBIO	READMST+2
^ASUMSTRD	READMST+2
READ^ASUMXDIO	INDEX+8
^ASURO260	ASURO26P+9
SST^ASURO26A	SELMONTH+28
USR^ASURO26A	SELMONTH+29
DATE^ASUUDATE	INIT+1
CLS^ASUUHDG	PSER+23, HDPG+2
PAZ^ASUURHDR	K+4, HEADER+2, HDPG+1
^ASUUZIS	ASURO26P+5
C^ASUUZIS	K+5
O^ASUUZIS	ASURO26P+10, PRINT+6
Q^ASUUZIS	ASURO26P+8
U^ASUUZIS	PSER+2
^DIR	SELMONTH+13, SELMONTH+23, SELAOMO+10
^XBKVAR	PRINT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: K+4
Function Call: WRITE	Prompt: !,$E(ASUMX("IDX"),1,5),".",$E(ASUMX("IDX"),6,6) Line Location: READMST+16
Function Call: WRITE	Prompt: ?10,ASUMS("SLC") Line Location: READMST+17
Function Call: WRITE	Prompt: ?13,$E(ASUMX("DESC"),1,30) Line Location: READMST+18
Function Call: WRITE	Prompt: ?47,ASUMX("AR U/I") Line Location: READMST+19
Function Call: WRITE	Prompt: ?58,$J($FN(ASUV("CST/U"),",",2),8) Line Location: READMST+39
Function Call: WRITE	Prompt: ?65,$J($FN(ASUC("P6MO","QTY"),",",0),6) Line Location: READMST+40
Function Call: WRITE	Prompt: ?74,ASUC("P6MO","DOC") Line Location: READMST+41
Function Call: WRITE	Prompt: !?13,$E(ASUMX("DESC"),31,60) Line Location: READMST+42
Function Call: WRITE	Prompt: ?51,"SEASONAL ITEM" Line Location: READMST+43
Function Call: WRITE	Prompt: ! Line Location: READMST+44
Function Call: WRITE	Prompt: ! Line Location: READMST+49
Function Call: WRITE	Prompt: ! Line Location: READMST+53
Function Call: WRITE	Prompt: !! Line Location: READMST+57
Function Call: WRITE	Prompt: !,"Select one of the following:",!! Line Location: SELMONTH+5
Function Call: WRITE	Prompt: ! Line Location: SELMONTH+10
Function Call: WRITE	Prompt: !,ASUU(10)," ",$P($T(@ASUU(10)),";",3) Line Location: SELMONTH+21
Function Call: WRITE	Prompt: ! Line Location: SELMONTH+23
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !?1,"REPORT #26 PREPRINTED ISSUE BOOK -STOCK ISSUE REQUEST",?70,"PAGE: ",ASUC("PG") Line Location: HEADER+5
Function Call: WRITE	Prompt: !?1,"AREA: ",ASUL(1,"AR","AP"),?10,ASUL(1,"AR","NM"),?33,"STATION: ",ASUL(2,"STA","CD"),?45,ASUL(2,"STA","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: !?1,"SUBSTATION: ",ASUMK("SST")," ",ASUMK("SST","NM"),?33,"USER CODE: ",$E(ASUMY("USR"),6,7)_$E(ASUMY("USR"),9) Line Location: HEADER+7
Function Call: WRITE	Prompt: !?5,"ACCOUNT : ",$S(ASUX("ACC")=1:"PHARMACY",ASUX("ACC")=3:"SUBSISTENCE",1:"ALL OTHER") Line Location: HEADER+11
Function Call: WRITE	Prompt: !!?3,"INDEX S",?54,"USER",?61,"UNIT PREV 6-MOS" Line Location: HEADER+13
Function Call: WRITE	Prompt: !?2,"NUMBER L DESCRIPTION",?47,"UI",?53,"LEVEL",?61,"COST QTY DOC",! Line Location: HEADER+14
Function Call: WRITE	Prompt: !?1,"REPORT #26 RECORD OF RECEIPT FOR SUPPLIES (HEW-394C -USE WITH 394A)" Line Location: HDPG+4
Function Call: WRITE	Prompt: !?1,"AREA: ",ASUL(1,"AR","AP"),?10,ASUL(1,"AR","NM"),?33,"STATION: ",ASUL(2,"STA","CD"),?46,ASUL(2,"STA","NM") Line Location: HDPG+5
Function Call: WRITE	Prompt: !?1,"SUBSTATION: ",ASUMK("SST")," ",ASUMK("SST","NM"),?33,"USER CODE: ",$E(ASUMY("USR"),6,7)_$E(ASUMY("USR"),9) Line Location: HDPG+6
Function Call: WRITE	Prompt: !?5,"ACCOUNT : ",$S(ASUX("ACC")=1:"PHARMACY",ASUX("ACC")=3:"SUBSISTENCE",1:"ALL OTHER") Line Location: HDPG+10
Function Call: WRITE	Prompt: !!?1,"SUPPLIES FOR",!?1,"THE MONTH OF",?17,"REQUESTED BY",?37,"ISSUED BY",?57,"RECIEVED BY **" Line Location: HDPG+12
Function Call: WRITE	Prompt: !!!!!?1,ASULMN(ASUV("ASOF")),!?17,"(SIGNATURE & DATE)",?37,"(SIGNATURE & DATE)",?57,"(SIGNATURE & DATE)",!?7,"VOUCHER NUMBER: ",?37,"VOUCHER DATE" Line Location: PRTMOS+1
Function Call: WRITE	Prompt: !,"Select one of the following:",!! Line Location: SELAOMO+2
Function Call: WRITE	Prompt: ! Line Location: SELAOMO+7
Routine Call	%ZIS Line Location: INIT+3
Routine Call	DIR Line Location: SELMONTH+13 SELMONTH+23 SELAOMO+10
Routine Call	%ZIS Line Location: PRINT+7

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(7 - [#9002039.07]	INDEX+10, INDEX+11, INDEX+12
^XTMP("ASUR"	PSER+3, PSER+4, PSER+13, PSER+16, PSER+17, PSER+19, INDEX+2, SELMONTH+15!, SELMONTH+16*

Name	Line Occurrences
HDPG	READMST+3
HEADER	READMST+4, READMST+58
INDEX	PSER+19
INIT	ASURO26P+4, PRINT+1
K	PRINT+8, PSER+5
MOTBL	PSER+7, SELAOMO+1
PRTMOS	HDPG+13
PSER	ASURO26P+10, PRINT+5
READMST	INDEX+12
SELMONTH	ASURO26P+6
UNKNOWN	INDEX+9, INDEX+10, INDEX+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	K+1!
>> %ZIS("A"	ASURO26P+5*
ASU	K+1!
ASUC	K+1!
ASUC("LI"	PSER+8, PSER+20, PSER+21, INDEX+1*
ASUC("LN"	PSER+8, READMST+58, HEADER+1*
ASUC("P6MO"	READMST+5, READMST+11, READMST+12*, READMST+30, READMST+40, READMST+41
ASUC("PG"	PSER+8, PSER+15, HEADER+1*, HEADER+2, HEADER+5
ASUC("TOT"	READMST+5, READMST+13, READMST+14*, READMST+15
ASUF	K+1!
ASUF("BK"	SELMONTH+20*
ASUF("PGBK"	PSER+18, READMST+3, READMST+4, HEADER+1
ASUF("QU"	SELMONTH+19!, SELMONTH+25*, SELMONTH+26, SELMONTH+28!, SELMONTH+29!
ASUF("SESNL"	READMST+5, READMST+32, READMST+43*
ASUK	ASURO26P+8!
ASUK(	PRINT+8
ASUK("AS OF"	PSER+3, PSER+5, READMST+7, SELMONTH+5, SELMONTH+6, SELMONTH+7, SELMONTH+14, SELMONTH+16, HDPG+13, SELAOMO+2* , SELAOMO+3, SELAOMO+4, SELAOMO+11
ASUK("CAT NM"	, INDEX+12, UNKNOWN+1, HEADER+12, HDPG+11
ASUK("DT"	READMST+24, READMST+26, INIT+1, SELMONTH+12, SELMONTH+16
ASUK("I/B"	ASURO26P+7
ASUK("PTR"	ASURO26P+5*, PRINT+8
ASUK("PTRSEL"	PRINT+5*, K+4
>> ASUL(	K+3!
>> ASUL(1	PRINT+4, INIT+2, HEADER+3, HEADER+6, HDPG+3, HDPG+5
>> ASUL(18	PSER+22!
>> ASUL(2	PSER+10, INDEX+6, HEADER+6, HDPG+5
>> ASUL(20	PSER+22!, READMST+33
>> ASUL(7	INDEX+10, INDEX+11, INDEX+12
ASULMN	PSER+7, K+2!
ASULMN(	READMST+47, READMST+52, READMST+56, SELMONTH+7, PRTMOS+1, SELAOMO+4
ASULMN(1	SELMONTH+1, MOTBL+1
ASULMN(10	SELMONTH+4, MOTBL+4
ASULMN(11	SELMONTH+4, MOTBL+4
ASULMN(12	SELMONTH+4, MOTBL+4
ASULMN(2	SELMONTH+1, MOTBL+1
ASULMN(3	SELMONTH+1, MOTBL+1
ASULMN(4	SELMONTH+2, MOTBL+2
ASULMN(5	SELMONTH+2, MOTBL+2
ASULMN(6	SELMONTH+2, MOTBL+2
ASULMN(7	SELMONTH+3, MOTBL+3
ASULMN(8	SELMONTH+3, MOTBL+3
ASULMN(9	SELMONTH+3, MOTBL+3
ASULMO	K+2!
ASULMO(	READMST+9*, READMST+46, READMST+51, READMST+55
ASUMB	K+1!
>> ASUMK(	READMST+11, READMST+12, READMST+13, READMST+14, READMST+48
>> ASUMK("E#"	INDEX+6, INDEX+7, INDEX+8, READMST+1*
>> ASUMK("SST"	HEADER+7, HDPG+6
>> ASUMK("ULQTY"	READMST+15, READMST+20, READMST+21
ASUMS	K+1!
ASUMS("E#"	INDEX+3, INDEX+4, HEADER+4
ASUMS("EOQ"	READMST+31
ASUMS("ESTB"	READMST+23, READMST+25
ASUMS("LPP"	READMST+36
ASUMS("QTY"	READMST+35, READMST+38
ASUMS("SLC"	READMST+17
ASUMS("STA"	HDPG+3
ASUMS("VAL"	READMST+38
ASUMX	K+1!
ASUMX("AR U/I	" , READMST+19
ASUMX("CAT"	INDEX+9, INDEX+10, HEADER+12, HDPG+11
ASUMX("DESC"	READMST+18, READMST+42
ASUMX("E#"	INDEX+4*, READMST+1
ASUMX("IDX"	READMST+16
ASUMX("SOBJ"	INDEX+11
>> ASUMY("USR"	PSER+14*, HEADER+7, HDPG+6
>> ASUQ("MO"	K+2!, READMST+7, READMST+8, READMST+9, READMST+11, READMST+12, READMST+13, READMST+14
>> ASUU("SST"	SELMONTH+27!
>> ASUU(10	SELMONTH+21*
>> ASUU(17	READMST+6, READMST+7, READMST+9, READMST+10, READMST+45, READMST+46, READMST+50, READMST+51, READMST+54, READMST+55
>> ASUU(18	READMST+46, READMST+47, READMST+48, READMST+51, READMST+52, READMST+55*, READMST+56
>> ASUU(19	HDPG+13*, HDPG+14!
ASUV	K+1!
ASUV("ASOF"	HDPG+13*, HDPG+14!, PRTMOS+1
ASUV("COL"	SELMONTH+5, SELMONTH+7, SELMONTH+8, SELMONTH+9, SELAOMO+2, SELAOMO+4, SELAOMO+5, SELAOMO+6
ASUV("CST/U"	READMST+36, READMST+38, READMST+39
ASUV("MOLD"	READMST+27, READMST+29, READMST+30
ASUV("ULVQTY"	READMST+30, READMST+33, READMST+34
ASUX	PSER+1!, K+1!
ASUX("ACC"	PSER+16*, PSER+17, PSER+19, INDEX+2, HEADER+11, HDPG+10
ASUX("IDX"	PSER+19*, INDEX+2
ASUX("SLCCAT"	PSER+17*, PSER+19, INDEX+2, HEADER+8, HEADER+9, HEADER+10, HEADER+12, HDPG+7, HDPG+8, HDPG+9 , HDPG+11
ASUX("STA"	PSER+4, PSER+5, PSER+10, PSER+11, PSER+13, PSER+16, PSER+17, PSER+19, INDEX+2
ASUX("USR"	PSER+9, PSER+13, PSER+14, PSER+16, PSER+17, PSER+19, INDEX+2, INDEX+7
ASUX(0	INDEX+2*, INDEX+3, INDEX+4
DIR	SELMONTH+13!, SELAOMO+10!
DIR("?"	SELMONTH+12, SELAOMO+9
DIR("A"	SELMONTH+11, SELMONTH+22, SELAOMO+8*
DIR("B"	SELMONTH+12, SELAOMO+9
DIR(0	SELMONTH+11, SELMONTH+22, SELAOMO+8*
>> DIRUT	SELMONTH+13, SELAOMO+10
DT	PRINT+2, SELAOMO+9
>> DTOUT	ASURO26P+6, SELMONTH+13
>> DUOUT	ASURO26P+6, PSER+11, PSER+13, PSER+16, PSER+17, PSER+19, READMST+3, READMST+4, READMST+58, SELMONTH+13 , HEADER+2
DUZ(2	PRINT+3
IO	INIT+3
IOF	PSER+6, K+4, HEADER+2
>> IOP	PRINT+7*
IOSL	READMST+58
>> POP	ASURO26P+5, PRINT+7
U	PSER+3, INDEX+3, INDEX+4, INDEX+12, SELMONTH+16
X	K+2!, K+3, READMST+25, READMST+26, READMST+27, READMST+28!, SELMONTH+14, SELMONTH+25, HEADER+3, HDPG+3* , SELAOMO+11
X1	K+2!, HEADER+4, HDPG+3
X2	K+2!
X3	K+2!
X4	K+2!
>> XBRC	ASURO26P+8*
>> XBRP	ASURO26P+8*
>> XBRX	ASURO26P+8*
Y	READMST+23, READMST+24, READMST+27, READMST+28!
>> ZTDESC	PRINT+6*
>> ZTRTN	PRINT+6*

Customize PDF page

Package: Supply

Routine: ASURO26P

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items