Routine: ABSPP49

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 ; 13 OCT 2017 ; PRE-INSTALL ROUTINE FOR ABSP PATCH 49
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 ; 13 OCT 2017 ; ENVIRONMENT CHECK ROUTINE FOR ABSP PATCH 49
ENVABORT	; "SOMETHING BROKE. ABORT INSTALL AND UNLOAD DISTRIBUTION."
POST	; /IHS/OIT/RAM ; 13 OCT 2017 ; POST-INSTALL ROUTINE FOR ABSP PATCH 49
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+40, ENV+48, ENV+57, ENV+76, ENV+95
$$VERSION^XPDUTL	ENV+31, ENV+67, ENV+86, PREREQ+6
BMES^XPDUTL	ENV+17, ENV+23, ENV+26, ENV+66, ENV+84, ENVBYE+1, ENVABORT+1
MES^XPDUTL	ENV+10, ENV+18, ENV+19, ENV+33, ENV+34, ENV+38, ENV+42, ENV+46, ENV+50, ENV+54 , ENV+59, ENV+69, ENV+70, ENV+74, ENV+78, ENV+82, ENV+88, ENV+89, ENV+93, ENV+97 , ENV+101, ENV+102, ENV+107, 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+103
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)
^ABSP(9002313.99 - [#9002313.99]	POST+8*
^DD(52	ENV+15
^DD(52.1	ENV+15
^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+103, ENVBYE+6
ENVABORT	ENV+22, ENV+37, ENV+45, ENV+53, ENV+73, ENV+81, ENV+92, ENV+106, ENVBYE+9, NOTOUCHIE+6 , NOTOUCHIE+16
GETPATCHDATA	PREREQ+4
INIT	ENV+3, PRE+4, POST+3

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+31, ENV+32, ENV+33, ENV+38, ENV+67, ENV+68, ENV+69, ENV+74, ENV+86* , ENV+87, ENV+88, ENV+93, ENV+95, 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+103, ENV+104, 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+40, ENV+41, ENV+42, ENV+48, ENV+49, ENV+50, ENV+57, ENV+58, ENV+59 , ENV+76, ENV+77, ENV+78, ENV+95*, ENV+96, ENV+97, ENV+100, ENV+101
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+20, ENV+22, ENV+35, ENV+37, ENV+43, ENV+45, ENV+51, ENV+53 , ENV+60, ENV+71, ENV+73, ENV+79, ENV+81, ENV+90, ENV+92, ENV+98, ENV+104, ENV+106 , 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+3~
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.049"	ENVABORT+6*
YUP	SUP~
ZDD	ENV+7~, ENV+15*, ENV+16
ZMONTH	ENV+3~, PRE+4~, POST+3~
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: ABSPP49

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: