Routine: PSSWRNC

Information

PSSWRNC ;DAL/RJS-NEW WARNING SOURCE CUSTOM WARNING LIST BUILDER CONT;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Pharmacy Data Management	3	CHECK20^PSSWRNA (ACTIVE,DRUG)^PSSWRNB NEWWARN^PSSWRNE
VA FileMan	2	^DIC ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSWRNB

Entry Points

Name	Comments	DBIA/ICR reference
SEL1	;
SEL2	;
SEL3	;; >> BEGIN *144 - RJS
SEL4	;
SEL59	;
SEL6	;
SEL7	;
SEL8	;
HELP	; WARNING LABEL-ENGLISH NUMBER DISPLAY LOGIC *144 - RJS
EOP	; END OF PAGE LOGIC *144 - RJS

External References

Name	Field # of Occurrence
^DIC	SEL3+1, SEL3+3, SEL59+1
^DIR	SEL3+9, SEL59+3, SEL59+4, SEL7+7, SEL7+15, EOP+1
CHECK20^PSSWRNA	SEL4+5
ACTIVE^PSSWRNB	SEL1+5, SEL2+5, SEL3+14, SEL4+3, SEL59+10, SEL6+5, SEL7+18, SEL8+6
DRUG^PSSWRNB	SEL1+6, SEL4+4, SEL59+12, SEL7+19, SEL8+7
NEWWARN^PSSWRNE	SEL7+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SEL3+1
Function Call: WRITE	Prompt: ! Line Location: SEL3+3
Function Call: WRITE	Prompt: !!,"WARNINGS FOR DRUGS FROM "_PSSDRG_" TO "_PSSEDRG Line Location: SEL3+8
Function Call: WRITE	Prompt: " ",RXNUM," is mapped to ",PSO9 Line Location: SEL59+5
Function Call: WRITE	Prompt: !! Line Location: SEL7+1
Function Call: WRITE	Prompt: !,$C(7),?5,RXNUM_" is not a valid entry" Line Location: SEL7+8
Function Call: WRITE	Prompt: !,$C(7),?5,RXNUM_" is not in the New warning file" Line Location: SEL7+11
Function Call: WRITE	Prompt: @IOF Line Location: SEL7+12
Function Call: WRITE	Prompt: "Searching for drugs that contain new warning number "_RXNUM Line Location: SEL7+13
Function Call: WRITE	Prompt: #,!,"Select drugs containing New warning number:",!!,?4,"Choose from:",! Line Location: HELP+2
Function Call: WRITE	Prompt: ! Condition for execution: PSSCT>1 Line Location: HELP+8
Function Call: WRITE	Prompt: ?12,$G(^PS(50.625,PSSIEN,1,PSSCT,0)) Line Location: HELP+8
Function Call: WRITE	Prompt: #,!,"Select drugs containing New warning number:",!!,?4,"Choose from:",! Line Location: EOP+3
Routine Call	DIC Line Location: SEL3+1 SEL3+3 SEL59+1
Routine Call	DIR Line Location: SEL3+9 SEL59+3 SEL59+4 SEL7+7 SEL7+15 EOP+1

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.625 - [#50.625]	SEL7+11, SEL8+2, HELP+4, HELP+5, HELP+8
^PS(54 - [#54]	SEL2+7, SEL59+3, SEL59+4, SEL59+5, SEL6+6
^PSDRUG - [#50]	SEL1+1, SEL1+2, SEL1+3, SEL1+4, SEL1+6, SEL2+1, SEL2+2, SEL2+3, SEL2+4, SEL2+8 , SEL3+13, SEL4+1, SEL4+2, SEL4+6, SEL59+6, SEL59+7, SEL59+8, SEL59+9, SEL59+14, SEL6+1 , SEL6+2, SEL6+3, SEL6+4, SEL6+7, SEL7+16, SEL7+17, SEL7+20, SEL8+4, SEL8+5, SEL8+9
^PSDRUG("B"	SEL3+10, SEL3+11, SEL3+12
^TMP("PSSWRNB"	SEL1+6, SEL2+8, SEL3+15, SEL4+6, SEL59+14, SEL6+7, SEL7+20, SEL8+9

Label References

Name	Line Occurrences
EOP	HELP+6
SEL3	SEL3+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACTIVE	SEL1+5, SEL2+5, SEL3+14, SEL4+3, SEL59+10, SEL6+5, SEL7+18, SEL8+6
DIC	SEL3+1!, SEL3+3!, SEL59+1*!
DIC("A"	SEL3+1, SEL3+3, SEL59+1*
DIC("B"	SEL3+1, SEL3+3
DIC(0	SEL3+1, SEL3+3, SEL59+1*
DIR	SEL3+9!, SEL59+3!, SEL59+4!, SEL7+1!, SEL7+15!, HELP+1~
DIR("?"	SEL7+2, SEL7+3, SEL7+4*
DIR("??"	SEL7+5*
DIR("A"	SEL7+1, HELP+3
DIR(0	SEL3+9, SEL59+3, SEL59+4, SEL7+6, SEL7+15, HELP+3
DIRUT	HELP+1~
>> DR	SEL1+1, SEL1+2, SEL1+3, SEL1+4, SEL1+6, SEL2+1, SEL2+2, SEL2+3, SEL2+4, SEL2+8 , SEL3+12, SEL3+13, SEL4+1, SEL4+2, SEL4+5, SEL4+6, SEL59+6, SEL59+7, SEL59+8, SEL59+9 , SEL59+14, SEL6+1, SEL6+2, SEL6+3, SEL6+4, SEL6+7, SEL7+16, SEL7+17, SEL7+20, SEL8+4 , SEL8+5, SEL8+9
DUOUT	HELP+1~
GEND	SEL8+1~
GEND(	SEL8+2*, SEL8+8
GEND(""	SEL8+3
>> I	SEL2+6, SEL3+10, SEL6+6*
IOF	SEL7+12
>> NDF	SEL1+6
>> PSO9	SEL59+5*, SEL59+13
>> PSOWARN	SEL7+14*
PSS1	SEL3+5*, SEL3+16!
PSSCNT	HELP+5*, HELP+6, HELP+8, HELP+9, HELP+10!
PSSCNTR	HELP+1~, HELP+3, HELP+6, HELP+9, EOP+4*
PSSCT	HELP+8*, HELP+10!
PSSDG	SEL3+7!, SEL3+16!
PSSDG(	SEL3+2, SEL3+4, SEL3+5
PSSDRG	SEL3+2, SEL3+8, SEL3+10, SEL3+11*, SEL3+12, SEL3+15, SEL3+16!
PSSEDRG	SEL3+4*, SEL3+8, SEL3+11, SEL3+16!
PSSEND	HELP+1~, HELP+3, HELP+4, HELP+6, EOP+2
PSSIEN	HELP+1~, HELP+3, HELP+4, HELP+5, HELP+7, HELP+8
>> PSSOUT	SEL3+9, SEL59+3, SEL59+4, SEL7+15
>> PSSWRN	SEL1+6, SEL4+4, SEL4+6, SEL59+12, SEL59+13, SEL7+19, SEL7+20, SEL8+7, SEL8+8, SEL8+9
>> QUIT	SEL3+1, SEL3+3, SEL3+9, SEL7+8, SEL7+10, SEL7+11
>> RXNUM	SEL59+2, SEL59+3, SEL59+4, SEL59+5, SEL59+11, SEL7+7, SEL7+8, SEL7+9*, SEL7+10, SEL7+11 , SEL7+13, SEL7+14, SEL7+20
>> SEL	SEL59+4, SEL59+5, SEL59+12, SEL59+13
>> SKIP	SEL1+4, SEL2+4, SEL3+13, SEL4+2, SEL59+9, SEL6+4, SEL7+17, SEL8+5
>> STAR	SEL7+14*
WARN	SEL2+6, SEL2+7, SEL6+6, SEL8+1~, SEL8+2, SEL8+8
>> WARN54	SEL1+3, SEL1+6, SEL2+3, SEL2+6, SEL2+8, SEL59+8, SEL59+11, SEL59+14, SEL6+3, SEL6+6 , SEL6+7
X	HELP+1~, EOP+2
XX	SEL4+5~*
Y	SEL3+1, SEL3+2, SEL3+3!, SEL3+4!, SEL3+9, SEL59+1, SEL59+2, SEL59+3, SEL59+4, SEL7+7 , SEL7+8, SEL7+15, HELP+1~, EOP+2

Customize PDF page

Package: Pharmacy Data Management