Routine: PSOLSET

Information

PSOLSET ;BHAM ISC/SAB - site parameter set up ;14-Nov-2012 13:55;PB

Package	Total	Call Graph
IHS Changes To Pharmacy	3	^APSPLBLT EP^APSPSITE ^APSPXUT
Kernel	3	^%ZIS ^%ZISC $$VERSION^XPDUTL
Outpatient Pharmacy	3	DEVBAR^PSOBMST CUTDATE^PSOFUNC ^PSOSITED
VA Fileman	3	^DIC EN^DIQ1 ^DIR

Package

Total

Call Graph

IHS Changes To Pharmacy

^APSPLBLT EP^APSPSITE ^APSPXUT

Kernel

^%ZIS ^%ZISC $$VERSION^XPDUTL

Outpatient Pharmacy

DEVBAR^PSOBMST CUTDATE^PSOFUNC ^PSOSITED

VA Fileman

^DIC EN^DIQ1 ^DIR

Caller Graph

Caller Graph Total: 95

Package	Total	Caller Graph
Outpatient Pharmacy	78	PSO AUTOCANCEL MENU PSO MAINTENANCE PSO MANAGER PSO P PSO PAT PSO PND PSO PNDLBL PSO RELEASE REPORT PSO RX PSO SITE PARAMETERS PSO TPB RX ENTRY PSO USER1 PSO USER2 PSOB PSOBAI PSOBAIR2 PSOBBC PSOBGMG2 PSOBGMGR PSOBING1 PSOBINGO PSOBPSSP PSOCMOPR PSOCP PSOCP EXEMPTION PSOCP MENU PSOCP RESET COPAY STATUS PSOCPB PSOCPBA2 PSOCPBK2 PSOCPBK4 PSOCPD PSOCPE PSOCPIBC PSOCPTRI PSOCSRL PSOD EDIT ANSWER SHEET PSOD SUPERVISOR PSODGDG2 PSODISP PSODISP1 PSODISP3 PSODISPS PSOEXRST PSOHLD PSOLLL7 PSOLLLH PSOLLLHN PSOLMPAT PSOLMUTL PSONDCV PSOORFI2 PSOORFIN PSOPAT PSOPCORE PSOPMP0 PSOPMPPF PSOPRI PSOREJP3 PSORESK PSORX1 PSORXDL PSORXEDT PSORXPA1 PSORXRP2 PSOSITED PSOSUCHG PSOSUCLE PSOSUDCN PSOSUDPR PSOSULB1 PSOSULOG PSOSUPRX PSOSURST PSOTALK PSOTALK3 PSOTPRX1 PSOVER
IHS Changes To Pharmacy	10	APSPCO APSPCP1 APSPDRX APSPESLP APSPORXA APSPRIS APSPSLBL APSPSOB APSQFUTI APSQSIGN
IHS Pharmacy Auto Refill System	3	BEXRX BEXRX7 BEXSITE
CMOP	2	PSXRPPL PSXSRST
Controlled Substances	1	PSDOPT
Pharmacy Barcode Scan	1	BPBSUPD

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	PLBL+2, LBL+1, P2
^%ZISC	PLBL+2, LBL+3, P2+4, EXIT
^APSPLBLT	P2+4
EP^APSPSITE	DIV3+14
^APSPXUT	FINAL+4
^DIC	DIV2+2, GROUP1+2
EN^DIQ1	DIV3+2
^DIR	VERS+14, DIV2+3, LASK+1, P2+4, P2+5, GROUP1+3
DEVBAR^PSOBMST	LBL+2
CUTDATE^PSOFUNC	DIV3
^PSOSITED	VERS+16
$$VERSION^XPDUTL	DIV3+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"DUZ Number must be defined !!",! Line Location: VERS+8
Function Call: WRITE	Prompt: !,"Outpatient Pharmacy software - Version "_$P($T(VERS),";",3) Line Location: VERS+9
Function Call: WRITE	Prompt: !!,"Outpatient Pharmacy software is being installed. PLEASE TRY LATER!",! Line Location: VERS+10
Function Call: WRITE	Prompt: !,$C(7) Line Location: VERS+13
Function Call: WRITE	Prompt: ! Line Location: VERS+16
Function Call: WRITE	Prompt: ! Line Location: DIV2+0
Function Call: WRITE	Prompt: $C(7),!?5,"Printer is busy.",! Line Location: P2+0
Function Call: WRITE	Prompt: !,"Align labels so that a perforation is at the top of the",!,"print head and the left side is at column zero." Line Location: P2+1
Function Call: WRITE	Prompt: ! Line Location: P2+4
Function Call: WRITE	Prompt: !?10,$C(7),"Default printer for labels must be entered." Line Location: Q+0
Function Call: WRITE	Prompt: ! Line Location: GROUP1+0
Routine Call	DIC Line Location: DIV2+2 GROUP1+2
Routine Call	DIR Line Location: VERS+14 DIV2+3 LASK+1 P2+4 P2+5 GROUP1+3
Routine Call	%ZIS Line Location: PLBL+2 LBL+1 P2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	LASK
^%ZOSF("TEST"	DIV3+14, FINAL+4
^PS(59 - [#59]	VERS+12, DIV3, DIV3+1, DIV3+4, GROUP1+1
^PS(59.3 - [#59.3]	GROUP+1, GROUP+4
^PS(59.7 - [#59.7]	DIV3
^PSX(550 - [#550]	DIV3+5, DIV3+8
^VA(200 - [#200]	DIV3+12
^XMB(1 - [#4.3]	DIV3+2
^XTMP("PSO_V7 INSTALL"	VERS+10

Name	Line Occurrences
DIV1	VERS+13
DIV2	DIV2+3
DIV3	DIV1
EXIT	LBL+1, LASK, LASK+1, P2+5
FINAL	LEAVE
GROUP	EXIT+1, GROUP1+3
GROUP1	GROUP+3
LASK	P2
LBL	Q
LEAVE	VERS+8, VERS+10, VERS+15, DIV2+2, DIV2+3
P2	P2+6
PSOLSET	VERS+16
VERS	VERS+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PLBL+1, PLBL+2!, LBL, LBL+1!, EXIT+1!, FINAL+3!
%ZIS("A"	PLBL+1, LBL
%ZIS("B"	PLBL+1, LBL
AGROUP	GROUP+1*, GROUP+2, GROUP+5!, GROUP1+5!
AGROUP1	GROUP+2*, GROUP+3, GROUP+5!, GROUP1+5!
>> APSPLAP	LBL
DA	DIV3+2*!
DIC	DIV2, DIV2+2!, DIV3+2!, EXIT+1!, FINAL+3!, GROUP1*, GROUP1+2!, GROUP1+5!
DIC("A"	DIV2, GROUP1
DIC("B"	GROUP1+1*
DIC("S"	DIV2+1*
DIC(0	DIV2, GROUP1
>> DIQ	DIV3+2*
>> DIQ(0	DIV3+2*!
DIR	DIV3!, LASK+1!, P2+4!, P2+5!, EXIT+1!, FINAL+3!, GROUP1+5!
DIR("?"	VERS+14, DIV1, LASK+1, P2+5, GROUP1, GROUP1+3
DIR("A"	VERS+13, VERS+14, DIV2+3, LASK+1, P2+5, GROUP1+3
DIR("B"	VERS+14, DIV2+3, LASK+1, P2+5, GROUP1+3*
DIR(0	VERS+14, DIV1, LASK+1, P2+4, P2+5, GROUP1
DIROUT	EXIT+1!, FINAL+3!
DIRUT	LASK+1, P2+4!, P2+5!, EXIT+1!, FINAL+3!
DISGROUP	FINAL+2!, GROUP+4, GROUP1+4
DR	DIV3+2*!
DTOUT	DIV2+2, P2+4!, EXIT+1!, FINAL+3!, GROUP1+2
DUOUT	DIV2+2, P2+4!, EXIT+1!, FINAL+3!, GROUP1+2
DUZ	VERS+8, DIV3+12
GROUPCNT	FINAL+2!, GROUP+1, GROUP+2, GROUP+3
GRPNME	GROUP+3*, GROUP+4, GROUP+5!, GROUP1+5!
I	VERS+12*, EXIT+1!, FINAL+3!
II	GROUP+3, GROUP+4, GROUP+5!, GROUP1+5!
IO("Q"	PLBL+2!, LBL+1!
IO(0	P2+1
ION	PLBL+2, LBL+1
IOP	PLBL+2!, LBL+1!, P2*!, EXIT+1!
>> IOS	LBL+2, LBL+3
IOST(0	LBL+1
J	EXIT+1!, FINAL+3!
PFIO	FINAL+2!
>> POP	PLBL+2, LBL+1, P2
PRCA	FINAL+1!
PSL	FINAL+1!
PSLION	LBL, FINAL+1!
PSNP	FINAL+1!
PSOBAR0	LBL+3, FINAL+3!
PSOBAR1	VERS+11*, LBL+3, FINAL+3!
PSOBARS	VERS+11, LBL+3, FINAL+3!
>> PSOBFLAG	EXIT+1
PSOCAP	FINAL+2!
>> PSOCLBL	PLBL+1, LBL, EXIT
PSOCLC	DIV3+12*, FINAL+2!
PSOCNT	VERS+12*, VERS+13, DIV1, DIV2, DIV3, FINAL+2!
PSOCP	FINAL+1!
PSODIV	DIV3+11*, FINAL+2!
PSODTCUT	FINAL+3!
PSOINST	DIV3+5*, FINAL+2!
PSOION	FINAL+2!
PSOIOS	LBL+2~, LBL+3, FINAL+2!
PSOLAP	LBL, P2, FINAL+2!
PSONULBL	FINAL+2!
PSOPAR	DIV3*, PLBL, LBL+3, FINAL+2!
PSOPAR7	DIV3*, FINAL+2!
PSOPINST	DIV3+1*, FINAL+1!
>> PSOPIOST	LBL+1*, LASK
PSOPROP	PLBL+1, PLBL+2*, FINAL+2!
PSOPRPAS	FINAL+3!
>> PSOQUIT	LBL+1, LASK+1, P2+5*
PSOREL	FINAL+3!
PSOSITE	DIV3*, DIV3+1, DIV3+4, FINAL+3!, GROUP1+1
PSOSITE7	FINAL+2!
PSOSYS	DIV3*, DIV3+11, FINAL+2!
>> PSOVEX	DIV2+1
PSXSYS	DIV3+5*, DIV3+7, DIV3+8!, DIV3+10!
PSXUTIL	DIV3+6!
PSXUTIL(4	DIV3+2
>> PSXVER	DIV3+9*
S1	DIV3+6!
S2	DIV3+2*, DIV3+5, DIV3+6!
S3	DIV3+2, DIV3+4, DIV3+5, DIV3+6!
SIG	FINAL+3!
SITE	DIV3+2*, FINAL+1!
>> SUSPT	LBL, LBL+1
X	VERS+15, DIV3+14, EXIT+1!, FINAL+2!, FINAL+4, GROUP1+3
>> XQUIT	LEAVE*
Y	VERS+12, DIV2+3, DIV3, DIV3+9, LASK+1, P2+5, EXIT+1!, FINAL+2!, GROUP1+3, GROUP1+4

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLSET

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 95

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
P2
Q
VERS	;;7.0;OUTPATIENT PHARMACY;10,22,32,40,120,1009,247,1015;DEC 1997;Build 62
GROUP	;display group
PLBL
FINAL	;exit action from main menu - kill and quit	ICR #982 Status: Active Usage: Private
DIV2
LEAVE
EXIT
GROUP1
LASK
DIV3
LBL
DIV1