Routine: PSSDTR

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
National Drug File	1	$$FORMRX^PSNAPIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Pharmacy Data Management	2	PSS DRUG TEXT FILE REPORT PSSTXT

Name	Comments	DBIA/ICR reference
FULL	;
TASK	;
END	;
RPT
FULL2	;
NRESTR	; check for National Formulary Restrictions
TITLE	;
DTEXT	;
DTXTRPT
DVC
OITEXT	;
QUEUE
START	;
EN	;
ASKA
DONE	;
DTNAME

Name	Field # of Occurrence
^%ZIS	DVC
^%ZISC	DONE+2
^%ZTLOAD	QUEUE
^DIR	EN+4, EN+8, ASKA+7, TASK+6, TITLE+1, END+1
$$FORMRX^PSNAPIS	NRESTR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report shows each selected drug text entry and lists all drugs",!,"and orderable items linked to it." Line Location: PSSDTR+5
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: EN+8
Function Call: WRITE	Prompt: !!,"Enter a single drug text entry or to see all drug text entries beginning with" Line Location: ASKA+1
Function Call: WRITE	Prompt: !,"the letter 'A' for example, enter 'A' or whichever letter you wish to see." Line Location: ASKA+2
Function Call: WRITE	Prompt: !,"To see drug text entries in a range for example starting with 'H', 'I' and 'J'" Line Location: ASKA+3
Function Call: WRITE	Prompt: !,"enter in the format 'H-J'.",! Line Location: ASKA+4
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: ASKA+7
Function Call: WRITE	Prompt: ! Line Location: ASKA+9
Function Call: WRITE	Prompt: !!,"Invalid response.",! Line Location: ASKA+11
Function Call: WRITE	Prompt: !!,"Report will be for drug text starting with "_$G(PSSBEG)_",",!,"and ending with drug text starting with "_$G(PSSEND)_".",! Line Location: TASK+2
Function Call: WRITE	Prompt: !!,"This report will be for drug text with leading numerics.",! Line Location: TASK+3
Function Call: WRITE	Prompt: !!,"This report will be for all drug text entries.",! Line Location: TASK+4
Function Call: WRITE	Prompt: !!,"This report will be for drug text entry: ",PSSXX,! Line Location: TASK+5
Function Call: WRITE	Prompt: ! Line Location: TASK+6
Function Call: WRITE	Prompt: !!,"You may queue the report to print, if you wish.",! Line Location: RPT+0
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: DVC+0
Function Call: WRITE	Prompt: !,"Report queued to print.",! Line Location: QUEUE+0
Function Call: WRITE	Prompt: ! Line Location: DTXTRPT+3
Function Call: WRITE	Prompt: "-" Line Location: DTXTRPT+3
Function Call: WRITE	Prompt: ! Line Location: DTXTRPT+4
Function Call: WRITE	Prompt: !,"DRUG TEXT NAME: ",PSSLCL Line Location: DTNAME+0
Function Call: WRITE	Prompt: !,?3," INACTIVE DATE: ",Y," ",! Line Location: DTNAME+1
Function Call: WRITE	Prompt: !,?3,"SYNONYM(S): " Line Location: DTNAME+5
Function Call: WRITE	Prompt: ?17,^PS(51.7,PSSB,1,PSSSYN,0),! Line Location: DTNAME+6
Function Call: WRITE	Prompt: !!,?3,"DRUG TEXT:" Line Location: DTNAME+10
Function Call: WRITE	Prompt: !,?3,^PS(51.7,PSSB,2,PSSTXT,0) Line Location: DTNAME+11
Function Call: WRITE	Prompt: !!,?3,"DRUG file entries:",!,?3,"-----------------" Line Location: DTEXT+2
Function Call: WRITE	Prompt: !,?3,"NONE" Line Location: DTEXT+3
Function Call: WRITE	Prompt: !,?3,$P($G(^PSDRUG(PSSDRG,0)),"^",1) Line Location: DTEXT+4
Function Call: WRITE	Prompt: !,?6," INACTIVE DATE: ",Y," ",! Line Location: DTEXT+5
Function Call: WRITE	Prompt: !!,?3,"ORDERABLE ITEM file entries: " Line Location: OITEXT+2
Function Call: WRITE	Prompt: !,?3,"---------------------------" Line Location: OITEXT+3
Function Call: WRITE	Prompt: !,?3,"NONE" Line Location: OITEXT+4
Function Call: WRITE	Prompt: !,?3,$P($G(^PS(50.7,PSSDRG,0)),"^",1) Line Location: OITEXT+5
Function Call: WRITE	Prompt: " ",$P(^PS(50.606,DFPTR,0),"^",1) Line Location: OITEXT+6
Function Call: WRITE	Prompt: !,?6," INACTIVE DATE: ",Y," ",! Line Location: OITEXT+8
Function Call: WRITE	Prompt: !,?3,LIST(XX2,0) Line Location: NRESTR+5
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+3
Function Call: WRITE	Prompt: !,?16,"Drug Text Report for Drug Text entries with Leading Numerics",! Line Location: TITLE+4
Function Call: WRITE	Prompt: !,?16,"Drug Text Report for all Drug Text entries",! Line Location: TITLE+5
Function Call: WRITE	Prompt: !,?16,"Drug Text Report for drug text from "_PSSBEG_" through "_PSSEND,! Line Location: TITLE+6
Function Call: WRITE	Prompt: !,?16,"Drug Text Report for drug text : "_PSSBEG,! Line Location: TITLE+7
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?70,"Page: ",PSSPGCT,! Line Location: TITLE+8
Function Call: WRITE	Prompt: "=" Line Location: TITLE+9
Function Call: WRITE	Prompt: ! Line Location: TITLE+10
Function Call: WRITE	Prompt: !,"PLEASE NOTE: The National Formulary Restriction Text is the original text" Line Location: TITLE+12
Function Call: WRITE	Prompt: !,"exported with the DRUG TEXT file (#51.7) and automatically linked to the DRUG" Line Location: TITLE+13
Function Call: WRITE	Prompt: !,"file (#50) entries based on the VA product match. No ORDERABLE ITEM file" Line Location: TITLE+14
Function Call: WRITE	Prompt: !,"(#50.7) entries were automatically linked with DRUG TEXT file (#51.7).",! Line Location: TITLE+15
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Routine Call	DIR Line Location: EN+4 EN+8 ASKA+7 TASK+6 TITLE+1 END+1
Routine Call	%ZIS Line Location: DVC

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DTNAME+1, DTEXT+5, OITEXT+8, TITLE+8
^PS(50.606 - [#50.606]	OITEXT+6
^PS(50.7 - [#50.7]	OITEXT+4, OITEXT+5, OITEXT+6, OITEXT+7, OITEXT+8
^PS(51.7 - [#51.7]	EN+7, ASKA+9, START+8, START+9, DTXTRPT, DTXTRPT+1, DTNAME+1, DTNAME+4, DTNAME+6, DTNAME+11
^PSDRUG - [#50]	DTEXT+4, DTEXT+5, NRESTR+4
^PSDRUG("DTXT"	DTEXT+3, DTEXT+4, NRESTR+3

Name	Line Occurrences
ASKA	ASKA+9, ASKA+11
DONE	EN+4, EN+8, ASKA+7, DVC, QUEUE
DTEXT	DTXTRPT+1
DTNAME	DTXTRPT+1
DTXTRPT	START+8, START+9
EN	TASK+6
END	START+10
FULL	DTXTRPT+1, DTXTRPT+2, DTNAME, DTNAME+4, DTNAME+6, DTNAME+11, DTEXT+3, DTEXT+4, DTEXT+5, OITEXT+4 , OITEXT+5, OITEXT+8, NRESTR+5
FULL2	DTNAME+1, DTNAME+9, DTEXT+1, OITEXT+2, NRESTR+5
NRESTR	DTNAME+12
OITEXT	DTXTRPT+1
TASK	EN+5, EN+11
TITLE	START+4, FULL+1, FULL2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*
%ZSI	QUEUE!
DFPTR	OITEXT+1~, OITEXT+6*
DIR	EN+2!, EN+4!, EN+8!, ASKA+7!, TASK+6!, TITLE+1!, END+1!, DONE+1!
DIR("?"	EN+3, EN+10, ASKA+5, ASKA+6
DIR("A"	EN+2, EN+8, ASKA+7, TASK+6, END+1*
DIR("B"	EN+2, EN+8, TASK+6*
DIR(0	EN+2, EN+8, ASKA+7, TASK+6, TITLE+1, END+1
DIRUT	DONE+1!
DONE	NRESTR+1~, NRESTR+2, NRESTR+3, NRESTR+5
DT	TITLE+8
DTOUT	EN+4, EN+8, ASKA+7, DONE+1!
DUOUT	EN+4, EN+8, ASKA+7, DONE+1!
INDT	DONE+1!
IO	START+1
IO("Q"	QUEUE, DONE+1!
IOF	TITLE+3, END+3
IOP	DVC!, DONE+1!
IOSL	START+3, FULL+1, FULL2+1
IOST	START+2
LIST	NRESTR+5, NRESTR+6!
LIST(	NRESTR+5
MJT	DTXTRPT+3, TITLE+9, DONE+1!
OITM	DONE+1!
POP	DVC!, DONE+1!
PSSB	DTXTRPT*, DTXTRPT+1, DTNAME+1, DTNAME+4, DTNAME+6, DTNAME+11, DTEXT+3, DTEXT+4, OITEXT+4, OITEXT+5 , NRESTR+3, DONE+1!
PSSBEG	EN+1!, EN+5, ASKA!, ASKA+11, ASKA+12*, TASK+2, START+5, START+9, TITLE+6, TITLE+7 , DONE+2!
PSSDRG	DTEXT+4, DTEXT+5, OITEXT+5, OITEXT+6, OITEXT+7, OITEXT+8, NRESTR+3*, NRESTR+4, DONE+2!
PSSDV	START+2*, TITLE+1, END+1, END+2, DONE+2!
PSSEND	EN+1!, EN+5, ASKA!, ASKA+11, ASKA+12, TASK+2, START+6, START+8, TITLE+6, DONE+2!
PSSFIRST	RPT+1!, TITLE+11, TITLE+16*
PSSHOW	EN+1!, EN+5*, DONE+2!
PSSLCL	START+5, START+6, START+8, START+9, DTXTRPT, DTNAME, DONE+1!
PSSNUMB	EN+7*, EN+12!
PSSNUMBX	EN+1!, EN+7*, EN+8, EN+11, EN+12!
PSSOUT	START+2, START+8, DTXTRPT+1, DTXTRPT+2, DTNAME, DTNAME+1, DTNAME+4, DTNAME+6, DTNAME+9, DTNAME+11 , DTEXT+1, DTEXT+3, DTEXT+4, DTEXT+5, OITEXT+2, OITEXT+4, OITEXT+5, OITEXT+8, NRESTR+5, FULL+1 , FULL2+1, TITLE+1, END+1, DONE+2!
PSSPGCT	START+3, TITLE+1, TITLE+8, TITLE+17, DONE+1!
PSSPGLN	START+3*, DONE+1!
PSSSRT	EN+1!, EN+5, EN+11, ASKA+13, TASK+1, TASK+2, TASK+3, TASK+4, TASK+5, TASK+7* , START+5, START+6, START+8, START+9, TITLE+4, TITLE+5, TITLE+6, TITLE+7, DONE+2!
PSSSYN	DTNAME+2~, DTNAME+6*
PSSTXT	DTNAME+8~, DTNAME+11*
PSSX	START+5*, DONE+2!
PSSXX	ASKA+8*, ASKA+9, ASKA+10, ASKA+11, ASKA+12, TASK+1, TASK+5, TASK+7, DONE+1!
PSXDN	NRESTR+1~, NRESTR+4*
PSXGN	NRESTR+1~, NRESTR+4*, NRESTR+5
PSXVP	NRESTR+1~, NRESTR+4*, NRESTR+5
X	DONE+1!
XX2	NRESTR+1~, NRESTR+5*
Y	EN+4, EN+5, EN+8, EN+11, ASKA+7, ASKA+8, TASK+6, DTNAME+1, DTEXT+5, OITEXT+8* , TITLE+1, TITLE+8*, DONE+1!
>> ZTDESC	QUEUE*
>> ZTQUEUED	DONE+2
>> ZTREQ	DONE+2*
>> ZTRTN	QUEUE*
>> ZTSAVE("PSSBEG"	QUEUE*
>> ZTSAVE("PSSEND"	QUEUE*
>> ZTSAVE("PSSSRT"	QUEUE*
>> ZTSAVE("PSSXX"	QUEUE*

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSDTR

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: