Routine: PSSGIU

Information

PSSGIU ;BIR/CML3-GENERIC "APPLICATION PACKAGES' USE" SET ;01-Mar-2013 12:23;PLS

Source Information

Source file <PSSGIU.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	^DIC (FILE,YN)^DICN ^DIE ^DIR
Pharmacy Data Management	1	^PSSREF

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
Pharmacy Data Management	6	PSSDEE PSSFILED PSSVX61 PSSVX64 ^PS(52.6 ^PS(52.7
Controlled Substances	2	PSDAPU PSDIPOST
Surgery	1	SROCODE

Entry Points

Name	Comments	DBIA/ICR reference
EDING	;IHS/MSC/WPB line tag EDING allows editing of current ingredients for the drug
QUIT	;IHS/MSC/WPB Quit adding and kill variables 3/8/2012
EN	;	ICR #895 Status: Active Usage: Controlled Subscription
END	;	ICR #208 Status: Active Usage: Private ICR #895 Status: Active Usage: Controlled Subscription
ADD1
LIST	;IHS/MSC/WPB line tag LIST added to display a list of current ingredients for the drug
ADD	;IHS/MSC/WPB line tag COMPND added to add the ingredients 3/8/2012
BRNCH
ENS	;	ICR #208 Status: Active Usage: Private ICR #895 Status: Active Usage: Controlled Subscription
MQ	;
GQTY	;IHS/MSC/PB - code added to get quantity and then check to be sure it is > 0
EXIT
COMPND	;IHS/MSC/WPB line tag COMPND added to mark drug as compounded and to add the ingredients 3/8/2012
DONE	;
CMOP

External References

Name	Field # of Occurrence
^DIC	ADD+4, EDING+4
FILE^DICN	ADD+20
YN^DICN	EN+2
^DIE	COMPND+3, ADD+25, EDING+9
^DIR	COMPND+7, BRNCH+1, ADD1, ADD1+3, ADD1+4, EDING+11, EDING+13, EDING+15, GQTY+5
^PSSREF	CMOP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"A",PSIUT," ITEM" Line Location: EN+2
Function Call: WRITE	Prompt: !!?2 Line Location: MQ+2
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(Y)>79 Line Location: MQ+2
Function Call: WRITE	Prompt: Y," " Line Location: MQ+2
Function Call: WRITE	Prompt: !,"This item has just been UNMARKED for CMOP transmission.",! Line Location: CMOP+0
Function Call: WRITE	Prompt: !,"This ingredient is marked as inactive, please select an active ingredient!" Line Location: ADD+9
Function Call: WRITE	Prompt: !,"This ingredient has already been added" Line Location: ADD+10
Function Call: WRITE	Prompt: !,"No ingredients have been added yet" Line Location: LIST+6
Function Call: WRITE	Prompt: !,"INGREDIENT NAME",?44,"INGREDIENT QTY",?62,"UOM",?70,"SEQUENCE" Line Location: LIST+7
Function Call: WRITE	Prompt: !,?44,"PER ORDER UNIT",! Line Location: LIST+8
Routine Call	DIE Line Location: COMPND+3 ADD+25 EDING+9
Routine Call	DIC Line Location: ADD+4 EDING+4
Routine Call	DIR Line Location: COMPND+7 BRNCH+1 ADD1 ADD1+3 ADD1+4 EDING+11 EDING+13 EDING+15 GQTY+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.607 - [#50.607]	ADD+24, LIST+15
^PSDRUG - [#50]	EN+1, EN+4, EN+5, CMOP, ENS+1, ENS+2, END+1, END+2*, COMPND+6, ADD+9 , ADD+10, ADD+11, ADD+24, LIST+6, LIST+10, LIST+11, LIST+13, LIST+14, LIST+16, LIST+17
^PSDRUG("AIU"	EN+4, EN+5!, ENS+3, END+3!
^PSDRUG("AQ"	CMOP!
^PSDRUG("IU"	EN+6!, ENS+2!, ENS+3, END+2!, END+3*

Label References

Name	Line Occurrences
ADD	BRNCH+1, ADD1+1
ADD1	ADD+10, GQTY+13
BRNCH	COMPND+9
CMOP	EN+5
COMPND	ADD+9
DONE	EN+3, EN+4, ENS+4, END+4
EDING	BRNCH+1, ADD1+4, EDING+11, EDING+15
EXIT	BRNCH+1
GQTY	ADD+15, GQTY+14
LIST	COMPND+8, ADD1+3, EDING+13
MQ	EN+2
QUIT	COMPND+2, COMPND+8, ADD1+3, ADD1+4, EDING+10, EDING+13, EDING+14, EXIT

Naked Globals

Name	Field # of Occurrence
^(0	EN+4, EN+5, ENS+1, END+1
^(2	EN+1, ENS+1, END+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1, EN+2, EN+3, EN+4, EN+5, CMOP~
DA	CMOP, COMPND+1~, COMPND+3!, ADD+21, ADD+26!, EDING+5
DA(1	ADD+16, ADD+19, ADD+25, ADD+26!, EDING+3, EDING+4, EDING+6!, EDING+9*
DIC	COMPND+1~, ADD+1!, ADD+4!, ADD+19, ADD+20!, ADD+22!, EDING+2!, EDING+4*!
DIC("DR"	ADD+19*
DIC("T"	ADD+1!, ADD+4, EDING+2!, EDING+4
DIC(0	ADD+1!, ADD+4, ADD+19, ADD+22!, EDING+2!, EDING+4*
DIE	COMPND+1~, COMPND+3!, ADD+25, ADD+26!, EDING+6!, EDING+9*
DIR	GQTY+1!, GQTY+5!, GQTY+11!
DIR("?"	GQTY+3*, GQTY+5!, GQTY+11!
DIR("A"	COMPND+6, BRNCH!, ADD+1!, ADD1, ADD1+3, ADD1+4, QUIT+1!, EDING+2!, EDING+11, EDING+13 , EDING+15, GQTY+1!, GQTY+2, GQTY+5!, GQTY+11!, GQTY+12*
DIR("B"	COMPND+6, BRNCH!, ADD+1!, ADD1, ADD1+3, ADD1+4, QUIT+1!, EDING+2!, EDING+11, EDING+13 , EDING+15, GQTY+11!, GQTY+12
DIR(0	COMPND+6, BRNCH!, BRNCH+1, ADD+1!, ADD1, ADD1+3, ADD1+4, QUIT+1!, EDING+2!, EDING+11 , EDING+13, EDING+15, GQTY+1!, GQTY+4, GQTY+5!, GQTY+11!, GQTY+12
DIROUT	GQTY+1!, GQTY+9
DIRUT	BRNCH+1, GQTY+1!, GQTY+8
DR	COMPND+1~, COMPND+3!, ADD+22!, ADD+25, ADD+26!, EDING+6!, EDING+9*
DTOUT	ADD+5, GQTY+1!, GQTY+7
DUOUT	ADD+6, GQTY+1!, GQTY+6
IDRUG	LIST+9!, LIST+13*, LIST+18, LIST+19!
PSIU	DONE+1!, MQ+2, ENS+1, ENS+3, END+1*, END+3
>> PSIUA	EN+3, EN+4
>> PSIUDA	EN+1, EN+4, EN+5, EN+6, CMOP, ENS+1, ENS+2, ENS+3, END+1, END+2 , END+3, COMPND+3, COMPND+6, ADD+10, ADD+11, ADD+16, LIST+6, LIST+10, LIST+11, LIST+14 , LIST+16, LIST+17, EDING+3, EDING+9
PSIUO	EN+1, EN+4, EN+5, EN+6, DONE+1!, ENS+1, ENS+2, END+1*, END+2
PSIUQ	EN+1*, EN+2, EN+4, DONE+1!
PSIUT	EN+1, EN+2, DONE+1!, MQ+1, ENS+1, ENS+2, ENS+3, END+1*, END+2, END+3
>> PSIUX	EN+1, EN+4, EN+5, CMOP, ENS+1, END+1
PSIUY	EN+4, EN+5, EN+6, DONE+1!, ENS+1, ENS+2, ENS+3, END+1, END+2, END+3
PTR	LIST+9!, LIST+11*, LIST+13, LIST+19!
PTR1	LIST+9!, LIST+14*, LIST+15, LIST+19!
QTY	ADD+19, ADD+26!, LIST+9!, LIST+17, LIST+18, LIST+19!, GQTY+1!, GQTY+5, GQTY+10
REC	ADD+26!
SEQ	LIST+9!, LIST+16*, LIST+18, LIST+19!
TEST	ADD+1!, ADD+4, ADD+10, ADD+11, ADD+19, ADD+24, ADD+26!, EDING+2!, EDING+4
UOM	LIST+9!, LIST+15*, LIST+18, LIST+19!
UOM1	ADD+21, ADD+24, ADD+25, ADD+26!
X	MQ+1, MQ+2, COMPND+3!, BRNCH!, ADD+1!, ADD+19, ADD+22!, ADD+26!, QUIT+1!, EDING+2!
>> X1	ADD+24*
XX	LIST+10*, LIST+11, LIST+14, LIST+16, LIST+17, LIST+20!
Y	MQ+2*, COMPND+3!, COMPND+8, BRNCH!, BRNCH+1, ADD+1!, ADD+4, ADD+7, ADD+9, ADD+21 , ADD+22!, ADD+26!, ADD1+1, ADD1+3, ADD1+4, QUIT+1!, EDING+2!, EDING+4, EDING+5, EDING+11 , EDING+13, EDING+15, GQTY+5, GQTY+13, GQTY+14

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSGIU

Call Graph Total: 5

Caller Graph Total: 9