Routine: PSSWRNB

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Pharmacy Data Management	3	GCN^PSSWRNA (SEL1,SEL2,SEL3,SEL4,SEL59,SEL6,SEL7,SEL8)^PSSWRNC (EDIT,NOTE,NOTE2)^PSSWRNE
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Pharmacy Data Management	2	PSS WARNING BUILDER PSSWRNC

Entry Points

Name	Comments	DBIA/ICR reference
RPTNEW	;
FULL	;
END	;
RPT	;
PRTRPT	;
RPTQ
TITLE	;
DVC
WARN	; ENTRY POINT DRUG ENTER/EDIT OPTION
PRT54	;
END2	;
DONE	;
DRUG	;
PRTNEW	;
RXCON
ASK
KILL	;
SEL	;
ACTIVE	;
FDBWARN

External References

Name	Field # of Occurrence
^%ZIS	DVC
^%ZISC	DONE+2
^%ZTLOAD	DVC+2
$$GET1^DIQ	DRUG+6
^DIR	PSSWRNB+8, PSSWRNB+11, SEL+18, ASK, ASK+3, ASK+8, TITLE+1, END+1, END2+1
GCN^PSSWRNA	DRUG+8
SEL1^PSSWRNC	ASK+10
SEL2^PSSWRNC	ASK+12
SEL3^PSSWRNC	ASK+14
SEL4^PSSWRNC	ASK+16
SEL59^PSSWRNC	ASK+18
SEL6^PSSWRNC	ASK+20
SEL7^PSSWRNC	ASK+22
SEL8^PSSWRNC	ASK+24
EDIT^PSSWRNE	ASK+27, WARN+4
NOTE^PSSWRNE	PSSWRNB+7, SEL+2
NOTE2^PSSWRNE	PSSWRNB+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSSWRNB+8
Function Call: WRITE	Prompt: !!?3,"Nothing queued to print." Line Location: PSSWRNB+8
Function Call: WRITE	Prompt: ! Line Location: PSSWRNB+11
Function Call: WRITE	Prompt: !!?3,"Nothing queued to print." Line Location: PSSWRNB+11
Function Call: WRITE	Prompt: @IOF Line Location: SEL+1
Function Call: WRITE	Prompt: !!,?2,"Select one of the following to display drugs that match that criteria to" Line Location: SEL+3
Function Call: WRITE	Prompt: !,?2,"examine or edit their drug warnings:" Line Location: SEL+4
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: !!,$C(7),"NOTE: Only the first 5 warnings will print on the yellow auxillary labels." Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Nothing meets selection criteria" Line Location: ASK+26
Function Call: WRITE	Prompt: !!,"You may queue the report to print, if you wish.",! Line Location: RPTQ+0
Function Call: WRITE	Prompt: !,"Nothing queued to print.",! Line Location: DVC+0
Function Call: WRITE	Prompt: !,"Report queued to print.",! Line Location: DVC+2
Function Call: WRITE	Prompt: ! Line Location: PRTRPT+3
Function Call: WRITE	Prompt: "-" Line Location: PRTRPT+3
Function Call: WRITE	Prompt: !,"RX CONSULT NUMBER: ",SEQ Line Location: RXCON+0
Function Call: WRITE	Prompt: ! Line Location: RXCON+3
Function Call: WRITE	Prompt: !,?3,^PS(54,SEQ,1,PSSTXT,0) Line Location: RXCON+4
Function Call: WRITE	Prompt: !!,"Spanish translation:" Line Location: RXCON+5
Function Call: WRITE	Prompt: !,?3 Line Location: RXCON+6
Function Call: WRITE	Prompt: !,?3 Condition for execution: LEN>62 Line Location: RXCON+9
Function Call: WRITE	Prompt: STR," " Line Location: RXCON+9
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+3
Function Call: WRITE	Prompt: !,?16,TITLE,! Line Location: TITLE+4
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?70,"Page: ",PSSPGCT,! Line Location: TITLE+5
Function Call: WRITE	Prompt: "=" Line Location: TITLE+6
Function Call: WRITE	Prompt: ! Line Location: TITLE+7
Function Call: WRITE	Prompt: !!,"End of Rx Consult file Report." Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END2+1
Function Call: WRITE	Prompt: ! Line Location: END2+2
Function Call: WRITE	Prompt: @IOF Line Location: END2+3
Function Call: WRITE	Prompt: ! Line Location: RPTNEW+3
Function Call: WRITE	Prompt: "-" Line Location: RPTNEW+3
Function Call: WRITE	Prompt: !,"WARNING LABEL-ENGLISH NUMBER: ",+SEQ Line Location: FDBWARN+0
Function Call: WRITE	Prompt: ! Line Location: FDBWARN+3
Function Call: WRITE	Prompt: !,?3,^PS(50.625,SEQ,1,PSSTXT,0) Line Location: FDBWARN+4
Function Call: WRITE	Prompt: !!,"Spanish translation:" Line Location: FDBWARN+5
Function Call: WRITE	Prompt: !,?3,^PS(50.626,SEQ,1,PSSTXT,0) Line Location: FDBWARN+6
Routine Call	DIR Line Location: PSSWRNB+8 PSSWRNB+11 SEL+18 ASK ASK+3 ASK+8 TITLE+1 END+1 END2+1
Routine Call	%ZIS Line Location: DVC

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSNDF(50.68 - [#50.68]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+5
^PS(50.625 - [#50.625]	PRTNEW+7, RPTNEW+1, FDBWARN+4
^PS(50.626 - [#50.626]	FDBWARN+6
^PS(54 - [#54]	PRT54+7, PRTRPT+1, RXCON+4, RXCON+5, RXCON+6
^PSDRUG - [#50]	DRUG+4, WARN+2, ACTIVE+2
^TMP("PSSWRNB"	SEL+22!, ASK+26, KILL+1!, WARN+3*

Label References

Name	Line Occurrences
DONE	DVC, DVC+2
END	PRT54+8
END2	PRTNEW+8
FDBWARN	RPTNEW+1
FULL	PRTRPT+1, PRTRPT+2, RXCON, RXCON+2, RXCON+4, RXCON+6, RPTNEW+1, RPTNEW+2, FDBWARN, FDBWARN+2 , FDBWARN+4, FDBWARN+6
KILL	SEL+19
PRTNEW	END+4
PRTRPT	PRT54+7
RPT	PSSWRNB+13
RPTNEW	PRTNEW+7
RXCON	PRTRPT+1
SEL	PSSWRNB+8, PSSWRNB+9, PSSWRNB+11, ASK+28
TITLE	PRT54+5, FULL+1, PRTNEW+5

Naked Globals

Name	Field # of Occurrence
^("I"	ACTIVE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*, DVC+2!
ACTIVE	SEL+20~, ACTIVE+1, ACTIVE+2
>> DA	WARN+2
DEA	KILL+1!
DIR	PSSWRNB+8!, PSSWRNB+11!, SEL+5!, SEL+18!, ASK!, ASK+3!, ASK+8!, TITLE+1!, END+1!, END2+1! , DONE+1!
DIR("A"	PSSWRNB+8, PSSWRNB+11, SEL+7, SEL+8, SEL+9, SEL+10, SEL+11, SEL+12, SEL+13, SEL+14 , SEL+15, SEL+16, ASK, ASK+3, END+1, END2+1
DIR("B"	PSSWRNB+8, PSSWRNB+11, SEL+6, ASK, ASK+3*
DIR(0	PSSWRNB+8, PSSWRNB+11, SEL+17, ASK, ASK+3, ASK+8, TITLE+1, END+1, END2+1*
DIRUT	DONE+1!
DR	SEL+20~, DRUG+4, ACTIVE+2
DRUG	KILL+1!, WARN+2*, WARN+3
>> DRUGENT	WARN+1*
DRUGN	KILL+1!
DT	TITLE+5, ACTIVE+2
DTOUT	PSSWRNB+8, PSSWRNB+11, DONE+1!
DUOUT	DONE+1!
>> ENDWARN	ASK+4, ASK+5
GCNSEQNO	DRUG+2~, DRUG+6*, DRUG+7
I	RXCON+7~, RXCON+9*, DRUG+2~
INDT	DONE+1!
IO	PRT54+1, PRTNEW+1
IO("Q"	DVC+2, DONE+1!
IOF	SEL+1, TITLE+3, END+3, END2+3
IOP	DVC!, DONE+1!
IOSL	PRT54+3, FULL+1, PRTNEW+3
IOST	PRT54+2, PRTNEW+2
JJJ	KILL+1!
LEN	RXCON+7~, RXCON+8, RXCON+9
MJT	PRTRPT+3, TITLE+6, DONE+1!, RPTNEW+3*
NDF	KILL+1!, DRUG+1, DRUG+5
NEWWARN	DRUG+2~
OITM	DONE+1!
POP	DVC!, DONE+1!
PSO9	SEL+20~
PSOPROD	DRUG+2~, DRUG+4*, DRUG+6
PSOWARN	KILL+1!
PSSDV	PRT54+2, TITLE+1, END+1, END+2, END2+1, END2+2, DONE+2!, PRTNEW+2
PSSOUT	ASK+8, PRT54+2, PRTRPT+1, PRTRPT+2, RXCON, RXCON+2, RXCON+4, RXCON+6, FULL+1, TITLE+1* , END+1, END2+1, DONE+2!, PRTNEW+2*, RPTNEW+1, RPTNEW+2, FDBWARN, FDBWARN+2, FDBWARN+4, FDBWARN+6
PSSPGCT	PRT54+3, TITLE+1, TITLE+5, TITLE+8, DONE+1!, PRTNEW+3*
PSSPGLN	PRT54+3, DONE+1!, PRTNEW+3
PSSTXT	RXCON+1~, RXCON+4, RXCON+6, RXCON+9, FDBWARN+1~, FDBWARN+4, FDBWARN+6
PSSWRN	KILL+1!, DRUG+3*
PSSXX	DONE+1!
QUIT	SEL+20~, SEL+21, ASK+26, ASK+27
RXNUM	KILL+1!
SEL	SEL+18*, SEL+19, ASK+10, ASK+12, ASK+14, ASK+16, ASK+18, ASK+20, ASK+22, ASK+24 , KILL+1!
SEQ	PRT54+7, PRTRPT+1, RXCON, RXCON+4, RXCON+5, RXCON+6, DONE+1!, PRTNEW+7, RPTNEW+1, FDBWARN , FDBWARN+4, FDBWARN+6
SKIP	SEL+20~, SEL+21, ASK+1
SPANISH	PSSWRNB+10, PSSWRNB+12, RXCON+5, FDBWARN+5, KILL+1!
STR	RXCON+7~, RXCON+9*, KILL+1!
TEXT	KILL+1!
TITLE	PRT54+4, TITLE+4, PRTNEW+4, KILL+1!
WARN	KILL+1!
WARN20	KILL+1!
WARN54	KILL+1!
WWW	KILL+1!
X	DONE+1!
Y	PSSWRNB+8, PSSWRNB+9, PSSWRNB+11, PSSWRNB+12, SEL+18, ASK+1, ASK+5, ASK+8, TITLE+1, TITLE+5* , DONE+1!
>> ZTDESC	DVC+2*
>> ZTQUEUED	DONE+2
>> ZTREQ	DONE+2*
>> ZTRTN	DVC+2*
>> ZTSAVE("*"	DVC+1*

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSWRNB

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: