Routine: ABSPP48

Package	Total	Call Graph
Kernel	1	($$LAST,$$VERSION,BMES,MES)^XPDUTL
VA Fileman	1	DT^DICRW

Name	Comments	DBIA/ICR reference
PRE	; /IHS/OIT/RAM ; 25 MAY 2017 ; PRE-INSTALL ROUTINE FOR ABSP PATCH 48
NOTOUCHIE	;; LEFTOVER CODE I COULDN'T BRING MYSELF TO DELETE... MIGHT STILL NEED THE LOGIC SOMEDAY.
PREREQ(PKG,VER,PAT)	; ; INIT LOCAL VARIABLES
ENVBYE
GETPERSON(IEN)	; TAKE THE 'INSTALLED BY' IEN AND TURN IT INTO A NAME.
PREBYE	;
POSTBYE	;
INIT	;
ENV	; /IHS/OIT/RAM ; 25 MAY 2017 ; ENVIRONMENT CHECK ROUTINE FOR ABSP PATCH 48
ENVABORT	; "SOMETHING BROKE. ABORT INSTALL AND UNLOAD DISTRIBUTION."
POST	; /IHS/OIT/RAM ; 25 MAY 2017 ; POST-INSTALL ROUTINE FOR ABSP PATCH 48
SUP(YUP)	; UTILITY TO GRAB JUST THE FIRST CHARACTER AND UPPERCASE IT.
GETPATCHDATA(PKG,ALLPATCH)	; GET ALL ABSP PATCH DATA FROM THE INSTALL FILE.

Name	Field # of Occurrence
DT^DICRW	ENV+11
$$LAST^XPDUTL	ENV+38, ENV+51, ENV+70
$$VERSION^XPDUTL	ENV+29, ENV+61, PREREQ+6
BMES^XPDUTL	ENV+16, ENV+22, ENV+24, ENV+59, ENVBYE+1, ENVABORT+1
MES^XPDUTL	ENV+10, ENV+17, ENV+18, ENV+31, ENV+32, ENV+36, ENV+40, ENV+44, ENV+53, ENV+57 , ENV+63, ENV+64, ENV+68, ENV+72, ENV+76, ENV+77, ENV+82, ENVBYE+5, ENVABORT+2, ENVABORT+3 , NOTOUCHIE+7, NOTOUCHIE+8, NOTOUCHIE+9, NOTOUCHIE+10, NOTOUCHIE+11, NOTOUCHIE+13, NOTOUCHIE+17, NOTOUCHIE+18, NOTOUCHIE+19, NOTOUCHIE+20 , NOTOUCHIE+21

Name	Line Occurrences
Function Call: READ	Timeout: 120 Variable: INPUT#1 Line Location: ENV+78
Function Call: READ	Timeout: 120 Variable: INPUT Line Location: ENVBYE+6
Function Call: WRITE	Prompt: I,! Line Location: PREREQ+11
Function Call: WRITE	Prompt: J3,*9,CURVER," CUR",! Line Location: PREREQ+19
Function Call: WRITE	Prompt: J3,*9,VER," VER",! Line Location: PREREQ+20
Function Call: WRITE	Prompt: I,9,J2,9,PAT,9,J3,9,VER,*9,"YUP",! Line Location: NOTOUCHIE+30
Function Call: WRITE	Prompt: I2,9,J2,9,PAT,9,J3,9,VER,*9,"SQEEB",! Line Location: NOTOUCHIE+42

Name	Line Occurrences (* Changed, ! Killed)
^DD(52	ENV+14
^DD(52.1	ENV+14
^VA(200 - [#200]	GETPERSON+4
^XPD(9.7 - [#9.7]	GETPATCHDATA+8, GETPATCHDATA+9, GETPATCHDATA+10, GETPATCHDATA+20, GETPATCHDATA+21, GETPATCHDATA+22, GETPATCHDATA+24

Name	Line Occurrences
$$GETPERSON	GETPATCHDATA+25
$$PREREQ	NOTOUCHIE+5, NOTOUCHIE+15
$$SUP	ENV+78, ENVBYE+6
ENVABORT	ENV+21, ENV+35, ENV+43, ENV+56, ENV+67, ENV+81, ENVBYE+9, NOTOUCHIE+6, NOTOUCHIE+16
GETPATCHDATA	PREREQ+4
INIT	ENV+3, PRE+4, POST+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALLGLOBMAPS	ENV+6~
ALLPATCH	GETPATCHDATA~
ALLPATCH(	GETPATCHDATA+26*
ALLPKGMAPS	ENV+6~
ALLROUTMAPS	ENV+6~
COMPAT	PREREQ+2~, PREREQ+15*, PREREQ+18
COMPLETED	GETPATCHDATA+3~, GETPATCHDATA+21*, GETPATCHDATA+26
CURRNS	ENV+5~
CURVER	ENV+7~, ENV+29, ENV+30, ENV+31, ENV+36, ENV+61, ENV+62, ENV+63, ENV+68, ENV+70 , PREREQ+6*, PREREQ+19
DB	ENV+5~
DEBUG	ENV+6~, ENV+8*, ENVBYE+3
DEFEDEST	ENV+5~
DIR	ENV+5~
DIR2	ENV+5~
DIRLEN	ENV+5~
DISTRODATE	GETPATCHDATA+3~, GETPATCHDATA+20*, GETPATCHDATA+21, GETPATCHDATA+26
DT	ENV+11
EDEST	ENV+5~
FINDNS	ENV+6~
I	GETPATCHDATA+2~, GETPATCHDATA+7, GETPATCHDATA+8, GETPATCHDATA+9, PREREQ+2~, PREREQ+10, PREREQ+11, NOTOUCHIE+27, NOTOUCHIE+28, NOTOUCHIE+33* , NOTOUCHIE+34, NOTOUCHIE+38
I2	GETPATCHDATA+2~, GETPATCHDATA+7, GETPATCHDATA+8, PREREQ+2~, NOTOUCHIE+38, NOTOUCHIE+39
I3	GETPATCHDATA+2~, PREREQ+2~
IEN	GETPERSON~, GETPERSON+4
INPUT	ENV+7~, ENV+78, ENV+79, ENVBYE+4~, ENVBYE+6, ENVBYE+7
INST	PREREQ+2~, NOTOUCHIE+27*
INSTALLBY	GETPATCHDATA+3~, GETPATCHDATA+24, GETPATCHDATA+25, GETPATCHDATA+26
J	GETPATCHDATA+2~, GETPATCHDATA+9*, GETPATCHDATA+10, GETPATCHDATA+20, GETPATCHDATA+21, GETPATCHDATA+22, GETPATCHDATA+24, PREREQ+2~
J2	GETPATCHDATA+2~, PREREQ+2~, PREREQ+18, PREREQ+21, PREREQ+22, PREREQ+23, PREREQ+24, NOTOUCHIE+28, NOTOUCHIE+29, NOTOUCHIE+39* , NOTOUCHIE+40
J3	GETPATCHDATA+2~, PREREQ+2~, PREREQ+18, PREREQ+19, PREREQ+20, NOTOUCHIE+28, NOTOUCHIE+29, NOTOUCHIE+39*, NOTOUCHIE+41
K	GETPATCHDATA+2~
K2	GETPATCHDATA+2~
K3	GETPATCHDATA+2~
LASTPAT	PREREQ+2~, PREREQ+10, PREREQ+11, PREREQ+13, PREREQ+15
LASTPATCH	ENV+7~, ENV+38, ENV+39, ENV+40, ENV+51, ENV+52, ENV+53, ENV+70*, ENV+71, ENV+72 , ENV+75, ENV+76
LIST	ENV+5~
NAME	GETPATCHDATA+3~, GETPATCHDATA+10, GETPATCHDATA+11, GETPATCHDATA+12, GETPATCHDATA+13, GETPATCHDATA+14, GETPATCHDATA+16, GETPATCHDATA+17, GETPATCHDATA+19, GETPATCHDATA+26 , GETPERSON+2~, GETPERSON+4, GETPERSON+5*, GETPERSON+6
NEWDIR	ENV+5~
NEWGLOBAL	ENV+6~
NEWNS	ENV+6~
OBJ	ENV+5~
PACKAGE	GETPATCHDATA+4~, GETPATCHDATA+12, GETPATCHDATA+19
PAT	PREREQ~, PREREQ+21, PREREQ+22, PREREQ+23, PREREQ+24, NOTOUCHIE+29, NOTOUCHIE+40
PATCH	GETPATCHDATA+4~, GETPATCHDATA+14, GETPATCHDATA+18, GETPATCHDATA+26
PKG	GETPATCHDATA~, GETPATCHDATA+7, PREREQ~, PREREQ+4, PREREQ+6
PLOP	ENV+6~, ENV+8, ENV+19, ENV+21, ENV+33, ENV+35, ENV+41, ENV+43, ENV+54, ENV+56 , ENV+65, ENV+67, ENV+73, ENV+79, ENV+81, ENVBYE+4, ENVBYE+7, ENVBYE+9, ENVABORT+5*
SEP	ENV+5~
SPACES	GETPATCHDATA+4~, GETPATCHDATA+16*, GETPATCHDATA+17, GETPATCHDATA+19
STATTEXT	ENV+3~, PRE+4~, POST+4~
STATTEXT(	GETPATCHDATA+23
STATTEXT(0	INIT+2*
STATTEXT(1	INIT+3*
STATTEXT(2	INIT+4*
STATTEXT(3	INIT+5*
STATTEXT(4	INIT+6*
STATTEXT(5	INIT+7*
STATUS	ENV+5~, GETPATCHDATA+3~, GETPATCHDATA+22, GETPATCHDATA+23, GETPATCHDATA+26, NOTOUCHIE+5, NOTOUCHIE+6, NOTOUCHIE+7, NOTOUCHIE+8, NOTOUCHIE+9 , NOTOUCHIE+10, NOTOUCHIE+11, NOTOUCHIE+15, NOTOUCHIE+16, NOTOUCHIE+17, NOTOUCHIE+18, NOTOUCHIE+19, NOTOUCHIE+20, NOTOUCHIE+21
STOP	PREREQ+2~, PREREQ+10, PREREQ+11, NOTOUCHIE+27, NOTOUCHIE+29, NOTOUCHIE+32, NOTOUCHIE+38, NOTOUCHIE+40, NOTOUCHIE+41*, NOTOUCHIE+44 , NOTOUCHIE+46, NOTOUCHIE+48
TSC	ENV+5~
U	ENV+6~, ENV+8, GETPATCHDATA+5~, GETPATCHDATA+10, GETPATCHDATA+20, GETPATCHDATA+21, GETPATCHDATA+22, GETPATCHDATA+24, GETPATCHDATA+26, GETPERSON+3~* , GETPERSON+4, PREREQ+11, PREREQ+18, PREREQ+24, NOTOUCHIE+8, NOTOUCHIE+9, NOTOUCHIE+18, NOTOUCHIE+19, NOTOUCHIE+28, NOTOUCHIE+34 , NOTOUCHIE+39
USER	ENV+5~
VER	ENV+7~, PREREQ~, PREREQ+20, NOTOUCHIE+29, NOTOUCHIE+41
VERSION	GETPATCHDATA+4~, GETPATCHDATA+13, GETPATCHDATA+17, GETPATCHDATA+26
>> XPDABORT	ENVABORT+6*
>> XPDQUIT	ENVABORT+6*
>> XPDQUIT("ABSP1.048"	ENVABORT+6*
YUP	SUP~, SUP+2
ZDD	ENV+7~, ENV+14*, ENV+15
ZMONTH	ENV+3~, PRE+4~, POST+4~
ZMONTH(1	INIT+9*
ZMONTH(10	INIT+18*
ZMONTH(11	INIT+19*
ZMONTH(12	INIT+20*
ZMONTH(2	INIT+10*
ZMONTH(3	INIT+11*
ZMONTH(4	INIT+12*
ZMONTH(5	INIT+13*
ZMONTH(6	INIT+14*
ZMONTH(7	INIT+15*
ZMONTH(8	INIT+16*
ZMONTH(9	INIT+17*
ZPATCH	PREREQ+2~, PREREQ+4
ZPATCH(	PREREQ+10, PREREQ+11, PREREQ+15, NOTOUCHIE+27, NOTOUCHIE+28, NOTOUCHIE+33, NOTOUCHIE+34, NOTOUCHIE+38, NOTOUCHIE+39

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPP48

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: