Routine: ABSPP49

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

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

Package

Total

Call Graph

Kernel

($$LAST,$$VERSION,BMES,MES)^XPDUTL

VA Fileman

DT^DICRW

Entry Points

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.

External References

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

Interaction Calls

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

Global Variables Directly Accessed

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