Routine: PSSUTLPZ

Package	Total	Call Graph
VA Fileman	7	DD^%DT C^%DTC ^DIC FILE^DICN ^DIE EN^DIQ1 ^DIR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$DT^XLFDT
National Drug File	1	$$PSJST^PSNAPIS
Pharmacy Data Management	1	(ADD,END)^PSSREMCH

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSORUTZ

Name	Comments	DBIA/ICR reference
FRRP	;
ENFH	;
NOUN	;Enter/edit Nouns
TRAC	;
NOUNC
SLSQ
TEXT	;Text for pre-release report
INS	;Convert non-numeric Instructions to Nouns
ENF	;
INSQ
TRACQ
NOUNQ
ADDRP	;
FRE	;
NOUNA
FREQ
SLS	;Called from PSSORUTL
CHECK	;Check for running conversion

Name	Field # of Occurrence
DD^%DT	TRAC+4, TRAC+5
C^%DTC	ADDRP+5
^%ZIS	FRRP+2, ADDRP+3
^%ZISC	ENF+12
^%ZTLOAD	FRRP+3, ADDRP+6
^DIC	NOUN+3, NOUNA, FRE+1
FILE^DICN	INS+11
^DIE	NOUNA+3, NOUNC, FRE+2
EN^DIQ1	TRAC+6
^DIR	TEXT+5, INS+4, TRACQ, ENF+9, ENFH+1, ADDRP+1
$$PSJST^PSNAPIS	SLS+6
ADD^PSSREMCH	ADDRP+7
END^PSSREMCH	ADDRP+6
$$DT^XLFDT	ADDRP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The current Orderable Item structure keeps Additives and Solutions matched to",!,"Orderable Items flagged for IV use. All Dispense Drugs are currently matched to",!,"Orderable Items that are not flagged for IV Use. This was done" Line Location: TEXT+1
Function Call: WRITE	Prompt: " to control " Line Location: TEXT+2
Function Call: WRITE	Prompt: !,"the finishing process of IV and Unit Dose orders entered through CPRS.",!,"The new Orderable Item structure will inactivate all IV flagged Orderable",!,"Items. All Additives and Solutions will be re-matched to non-IV flagged" Line Location: TEXT+3
Function Call: WRITE	Prompt: !,"Orderable Items, based on their Dispense Drug links.",! Line Location: TEXT+4
Function Call: WRITE	Prompt: ! Line Location: TEXT+5
Function Call: WRITE	Prompt: !!,"This option will move all non-numeric Instructions to the Noun field in the",!,"Dosage Form file. If you do this, you will then need to review the Nouns and decide to mark them for Inpatient, Outpatient or both." Line Location: INS+3
Function Call: WRITE	Prompt: !!,"Nothing converted.",! Line Location: INS+4
Function Call: WRITE	Prompt: !,"Converting.." Line Location: INS+5
Function Call: WRITE	Prompt: "." Line Location: INS+11
Function Call: WRITE	Prompt: !,"Finished converting Instructions to Nouns!" Line Location: INS+12
Function Call: WRITE	Prompt: ! Line Location: INSQ+0
Function Call: WRITE	Prompt: ! Line Location: NOUN+3
Function Call: WRITE	Prompt: !!?2,"Dosage Form => ",$P($G(^PS(50.606,+PSSDOSE,0)),"^"),! Line Location: NOUNA+0
Function Call: WRITE	Prompt: ! Line Location: NOUNC+0
Function Call: WRITE	Prompt: ! Line Location: NOUNQ+0
Function Call: WRITE	Prompt: $C(7) Line Location: CHECK+4
Function Call: WRITE	Prompt: !!,"Cannot use this option, Dosage conversion is currently running!",! Line Location: CHECK+4
Function Call: WRITE	Prompt: @IOF Line Location: TRAC+7
Function Call: WRITE	Prompt: !,?15,"Dosage Conversion Tracker Status",! Line Location: TRAC+7
Function Call: WRITE	Prompt: !,?15,"Dosage Conversion Tracker Status",! Line Location: TRAC+7
Function Call: WRITE	Prompt: !,"The Dosage conversion has never been run!",! Line Location: TRAC+8
Function Call: WRITE	Prompt: !,"The Dosage conversion is queued to run at "_$G(PSZSTA),!,"It was queued by "_$G(PSZWHO),! Line Location: TRAC+9
Function Call: WRITE	Prompt: !,"The Dosage conversion is currently running.",!,"It started at "_$G(PSZSTA),! Line Location: TRAC+10
Function Call: WRITE	Prompt: !,"The Dosage conversion was last run by "_$G(PSZWHO),!,"It started on "_$G(PSZSTA)_" and ended on "_$G(PSZSTO),! Line Location: TRAC+11
Function Call: WRITE	Prompt: ! Line Location: TRACQ+0
Function Call: WRITE	Prompt: ! Line Location: TRACQ+0
Function Call: WRITE	Prompt: ! Line Location: FRE+1
Function Call: WRITE	Prompt: ! Line Location: FRE+2
Function Call: WRITE	Prompt: ! Line Location: FREQ+0
Function Call: WRITE	Prompt: !!,"This report shows the MEDICATION INSTRUCTION file entries, along with the",!,"Synonym, Frequency and Expansion. Use the Edit Medication Instruction",!,"Frequency option to enter appropriate frequencies.",! Line Location: FRRP+1
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",!! Line Location: FRRP+2
Function Call: WRITE	Prompt: !,"Report queued to print." Line Location: FRRP+3
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: ENF+9
Function Call: WRITE	Prompt: ! Line Location: ENF+10
Function Call: WRITE	Prompt: @IOF Line Location: ENF+11
Function Call: WRITE	Prompt: @IOF Line Location: ENFH+2
Function Call: WRITE	Prompt: !?5,"MEDICATION INSTRUCTION FREQUENCY REPORT"_$S($G(PSSCT)=1:"",1:" (cont.)"),?68,"PAGE: "_$G(PSSCT) Line Location: ENFH+2
Function Call: WRITE	Prompt: !!,"NAME",?10,"SYNONYM",?21,"FREQUENCY",?34,"EXPANSION",!,PSSLINE,! Line Location: ENFH+3
Function Call: WRITE	Prompt: ! Line Location: ADDRP+1
Function Call: WRITE	Prompt: !!?3,"* THIS REPORT IS DESIGNED FOR 132 COLUMNS *",! Line Location: ADDRP+2
Function Call: WRITE	Prompt: !,"Nothing queued to print.",! Line Location: ADDRP+3
Function Call: WRITE	Prompt: ! Line Location: ADDRP+3
Function Call: WRITE	Prompt: !,"Report queued to print." Line Location: ADDRP+6
Routine Call	DIE Line Location: NOUNA+3 NOUNC FRE+2
Routine Call	DIC Line Location: NOUN+3 NOUNA FRE+1
Routine Call	DIR Line Location: TEXT+5 INS+4 TRACQ ENF+9 ENFH+1 ADDRP+1
Routine Call	%ZIS Line Location: FRRP+2 ADDRP+3

FileNo	Call Tags
^PS(50.606 - [#50.606]	Classic Fileman Calls
^PS(51 - [#51]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	INS+7, INS+8, INS+10, NOUNA
^PS(51 - [#51]	ENF+5, ENF+7
^PS(59.7 - [#59.7]	CHECK+2, CHECK+3, TRAC+2, TRAC+4, TRAC+5, TRAC+6
^PSDRUG - [#50]	SLS+5, SLS+6

Name	Line Occurrences
CHECK	INS+1, NOUN+1
ENFH	ENF+4, ENF+6
FRE	FRE+3
FREQ	FRE+1, FRE+2
INSQ	INS+4
NOUN	NOUNC
NOUNA	NOUNA+3
NOUNC	NOUNA
NOUNQ	NOUN+1, NOUN+3
SLSQ	SLS+8
TRACQ	TRAC+8, TRAC+9, TRAC+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	FRRP+2!, FRRP+3!, ADDRP+3!, ADDRP+6!
DA	NOUNA+3, NOUNC, TRAC+6!, FRE+2, FREQ!
DA(1	INS+11, NOUNA, NOUNA+3*
DD	INS+11!
DIC	INS+11!, NOUN+3!, NOUNA!, NOUNQ!, TRAC+6!, FRE+1!*, FREQ!
DIC("A"	FRE+1*
DIC("W"	NOUNA+1*
DIC(0	INS+11, NOUN+3, NOUNA, FRE+1
DIE	NOUNA+3!, NOUNC!, NOUNQ!, FRE+2!*, FREQ!
DIQ	TRAC+6*!
DIQ(0	TRAC+6*
DIR	TEXT+5!, TEXT+7!, INS+4!, TRACQ!, ENF+9!, ENFH+1!, ADDRP+1!
DIR("?"	TEXT+8, TEXT+9
DIR("A"	TEXT+7, INS+4, TRACQ, ENF+9, ENFH+1*
DIR("B"	TEXT+7, INS+4
DIR(0	TEXT+5, TEXT+7, INS+4, TRACQ, ENF+9, ENFH+1
>> DIRUT	TEXT+5, ADDRP+1
DO	INS+11!
DR	NOUNA+3, NOUNC, NOUNQ!, TRAC+6!, FRE+2, FREQ!
DT	ADDRP+4*, ADDRP+5
>> DTOUT	NOUN+3, NOUNA, NOUNA+3, FRE+1, FRE+2
>> DUOUT	NOUN+3, NOUNA, FRE+1
IO	ENF+1
IO("Q"	FRRP+3, ADDRP+6
IOF	TRAC+7, ENF+11, ENFH+2
IOP	FRRP+2!, ADDRP+3!
IOSL	ENF+6
IOST	ENF+2
>> PL3	SLS+2, SLS+4, SLS+5, SLS+8, SLS+9, SLS+11, SLS+12
POP	FRRP+2!, ADDRP+3!
>> PSSA	SLS+2, SLS+4, SLS+5, SLS+8, SLS+9, SLS+11, SLS+12
PSSCT	ENF+2, ENF+12!, ENFH+1, ENFH+2
PSSD	INS+6~, INS+7*, INS+8, INS+10, INS+11
PSSDOSE	NOUN+4*, NOUNA, NOUNA+3, NOUNC, NOUNQ!
PSSDV	ENF+2*, ENF+9, ENF+10, ENF+12!, ENFH+1
PSSF	ENF+3!, ENF+5*, ENF+12!
>> PSSFNODE	ENF+7*, ENF+8
PSSFR	ENF+3!, ENF+5*, ENF+7, ENF+12!
PSSI	INS+6~, INS+8, SLS+3~, SLS+4, SLS+7, SLS+11
PSSINS	INS+6~, INS+8*, INS+9, INS+10, INS+11
PSSJ	SLS+3~, SLS+4*, SLS+10
PSSJ1	SLS+3~
PSSJ2	SLS+3~, SLS+10*, SLS+12
PSSJA	SLS+3~, SLS+7*, SLS+10
PSSJA1	SLS+3~, SLS+7*, SLS+10
PSSJB	SLS+3~, SLS+7*, SLS+9, SLS+11
PSSJB1	SLS+3~, SLS+7*, SLS+9, SLS+11
PSSJZUNT	SLS+1!, SLS+11*
PSSLINE	ENF+3!*, ENF+12!, ENFH+3
PSSNOCON	INS+1!, INS+2!, NOUN+1!, NOUN+2!, CHECK+1, CHECK+3, CHECK+4
PSSNOUN	NOUNA+2*, NOUNA+3, NOUNQ!
PSSOUT	TEXT+5, ENF+2, ENF+5, ENF+6, ENF+9, ENF+12!, ENFH+1*
PSSTYPE	TEXT+6!, ADDRP+1*!, ADDRP+3!
PSSWZ50	SLS+3~, SLS+5*, SLS+9
PSSWZI	SLS+3~, SLS+5*, SLS+6
PSSWZND	SLS+3~, SLS+6*, SLS+8, SLS+9
PSSWZSL	SLS+3~, SLS+5*
PSSWZSL1	SLS+3~
PSSWZSL2	SLS+3~, SLS+9*
PSSWZSL3	SLS+3~, SLS+9*
PSSWZSL4	SLS+3~, SLS+9*, SLS+11
PSSWZSL5	SLS+3~, SLS+9*, SLS+10
>> PSSX(	SLS+2, SLS+4, SLS+5, SLS+8, SLS+9, SLS+11, SLS+12
>> PSSYRX	ADDRP+5*
PSSYSIEN	CHECK+2*, CHECK+3, CHECK+4!
PSZSTA	TRAC+1~, TRAC+4*, TRAC+9, TRAC+10, TRAC+11
PSZSTO	TRAC+1~, TRAC+5*, TRAC+11
PSZWHO	TRAC+1~, TRAC+6*, TRAC+9, TRAC+11
PSZWHOAR	TRAC+6!
PSZWHOAR(200	TRAC+6
PSZZ	TRAC+1~, TRAC+7*
PSZZ1	TRAC+1~, TRAC+2*, TRAC+4, TRAC+5, TRAC+6
PSZZ2	TRAC+1~, TRAC+2*, TRAC+3, TRAC+8, TRAC+9, TRAC+10, TRAC+11
X	INS+11*, ADDRP+5!
X1	ADDRP+5*!
X2	ADDRP+5*!
Y	TEXT+5!, INS+4, NOUN+3, NOUN+4, NOUNA, NOUNA+2, NOUNA+3, TRAC+4, TRAC+5, FRE+1 , FRE+2, ENFH+1, ADDRP+1
>> ZTDESC	FRRP+3, ADDRP+6
>> ZTQUEUED	ENF+12
>> ZTREQ	ENF+12*
>> ZTRTN	FRRP+3, ADDRP+6
>> ZTSAVE("PSSTYPE"	ADDRP+6*
>> ZTSAVE("PSSYRX"	ADDRP+6*

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSUTLPZ

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: