Routine: PSSDDUT2

Information

PSSDDUT2 ;BIR/LDT - Pharmacy Data Management DD Utility ; 8/21/07 8:43am

Source file <PSSDDUT2.m>

Package	Total	Call Graph
VA Fileman	2	EN^DDIOL $$GET1^DIQ
Pharmacy Data Management	1	$$CSDEA^PSSDDUT2

Package	Total	Caller Graph
Inpatient Medications	7	ELECTROLYTES FORMULARY ALTERNATIVE HOSPITAL LOCATION QUICK CODE TO SERVICE TO WARD WARD
Outpatient Pharmacy	4	FORMULARY ALTERNATIVE TO SERVICE TO WARD ^PS(51.1
Pharmacy Data Management	4	^PS(59.7 PSSDEE ^PSDRUG PSSDDUT2
Auto Replenishment Ward Stock	3	FORMULARY ALTERNATIVE TO SERVICE TO WARD
National Drug File	3	FORMULARY ALTERNATIVE TO SERVICE TO WARD

Name	Comments	DBIA/ICR reference
NCINIT1	;
ATC	;Executable help for field 212.2, DRUG file 50
NCINIT	;
SIG	;checks SIG for RXs (Replaces SIG^PSOHELP)
NCPDPQM	;Drug file 50, field 83
DEA	;(Replaces ^PSODEA)
CLOZ	;DEL node of DRUG file 50, fields 17.2, 17.3, 17.4
NONF	;Non-Formulary Input Transform DRUG file 50, field 51
NCPDPWRN	;
DRUGW	;(Replaces DRUGW^PSOUTLA)
SIGONE
NCPDPQM1
EN
D
ADTM	;ADMINISTRATION SCHEDULE file 51.1, field 1 Executable Help
STRTH
NFH
WRITE	;Calls EN^DDIOL to write text
P	;(Replaces ^PSODSRC)
S	;;DESCRIPTION MEANINGS
NCPDPDU	;Drug file 50, field 82
EDIT	;INPUT XFORM FOR DEA FIELD IN DRUG FILE (Replaces EDIT^PSODEA)
LBLS	;PHARMACY SYSTEM file 59.7, field 61.2 Executable Help
DEATBL	; More Help regarding DEA Codes
PKIND
TBL
CSDEA(CS)	;
PSYS1
PSYS2	;PSS1.095

Name	Line Occurrences
Function Call: WRITE	Prompt: TO Line Location: TBL+15
Function Call: READ	Prompt: "Ok to continue? (Y/N) " Formatting: ! Timeout: 30 Variable: ZXX Line Location: NCPDPQM1+1
Function Call: WRITE	Prompt: !!?5,"Warning: Defaulting NCPDP QUANTITY MULTIPLIER to 1 (one).",!! Line Location: NCPDPQM1+2
Function Call: WRITE	Prompt: !,"Y or N must be entered." Line Location: NCPDPQM1+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(59.723	PSYS2+1
^DIC(42 - [#42]	PSYS1
^PS(51 - [#51]	SIGONE+3
^PS(54 - [#54]	DRUGW+1
^PS(59.7 - [#59.7]	PSYS1, PSYS2+1
^PSDRUG - [#50]	PKIND, PKIND+2, PKIND+3, NONF+5, NFH, NCINIT1+1, NCINIT1+5, NCPDPDU+5
^PSDRUG("AFA"	NONF+5

Name	Line Occurrences
EN	SIGONE
NCINIT1	NCPDPDU+2
NCPDPQM1	NCPDPQM1+3
NCPDPWRN	NCPDPQM+4
PKIND	DEA+9
WRITE	DEA+6, DEA+8, DEA+9, DEATBL+3, P+4, P+7, P+17, CLOZ+3, NONF+4, ATC+3 , ADTM+3, LBLS+3, STRTH, NCINIT1+4, NCPDPDU+4, NCPDPWRN+4, NCPDPWRN+5

Name	Field # of Occurrence
EN^DDIOL	SIG+1, SIGONE+1, DRUGW+1, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7, EDIT+8 , EDIT+9, EDIT+10, WRITE+1, NONF+5, NFH, PSYS1, PSYS2+1
$$GET1^DIQ	PKIND+1
$$CSDEA^PSSDDUT2	PKIND+1

Name	Field # of Occurrence
CS	CSDEA~, CSDEA+1, CSDEA+2
>> D0	PSYS1, PSYS2+1
>> D1	PSYS1, PSYS2+1
>> DA	PKIND, PKIND+2, PKIND+3, NONF+5, NFH, NCINIT1+1, NCINIT1+5, NCPDPDU+5
>> DA(1	NFH
II	DEA+7, D!, DEATBL+2, TBL!, P+5*
>> MM	NONF+5*
PSSHLP	DEATBL+1!, WRITE+1!
PSSHLP(	DEA+7, DEATBL+2, P+5*
PSSHLP(1	DEA+1, DEA+8, DEATBL+3, P+1, P+6, P+8, CLOZ+1, NONF+1, NONF+3, ATC+1 , ADTM+1, LBLS+1, STRTH, NCINIT1+2, NCINIT1+3, NCPDPDU+4
PSSHLP(2	DEA+2, P+2, P+9, CLOZ+2, NONF+2, ATC+2, ADTM+2, LBLS+2, NCINIT1+3, NCINIT1+4 , NCPDPWRN+1, NCPDPWRN+4
PSSHLP(3	DEA+3, P+3, P+10, P+11, NONF+3, NCPDPWRN+2
PSSHLP(4	DEA+4, P+12, P+13, NCPDPWRN+3
PSSHLP(5	DEA+5, P+14, P+15, NCPDPWRN+5
PSSHLP(6	P+16*
>> PSSK	PKIND, PKIND+1, PKIND+2, PKIND+3, PKIND+5
PSSNQM	NCINIT+1!, NCPDPQM+1, NCPDPQM1+4
PSSNQM2	NCINIT+1!, NCPDPQM+1, NCPDPQM1+4
PSSNQM3	NCINIT+1!, NCPDPQM+1, NCPDPQM+2
PSSONDU	NCINIT+1!, NCINIT1+5, NCPDPDU+2, NCPDPDU+3, NCPDPDU+5
PSSONQM	NCINIT+1!, NCINIT1+5, NCPDPDU+3, NCPDPDU+5
>> SHEMP	NONF+5*
>> SIG	SIGONE, SIGONE+2
STR	STRTH*!
X	SIG+1!, SIGONE, SIGONE+1!, SIGONE+2, SIGONE+3, DRUGW+1!, EDIT+1!, EDIT+3!, EDIT+4!, EDIT+5! , EDIT+6!, EDIT+7!, EDIT+8!, EDIT+9!, EDIT+10!, NONF+6, STRTH, NCPDPDU+1, NCPDPDU+3, NCPDPQM+2! , NCPDPQM+3, NCPDPQM+4, NCPDPQM1+2, NCPDPQM1+4!
>> Y	SIGONE+3*
Z0	SIGONE, SIGONE+3, EN!, DRUGW+1
Z1	SIGONE, SIGONE+1, SIGONE+2, SIGONE+3, EN!, DRUGW+1*
ZXX	NCPDPQM+1~, NCPDPQM1+1*, NCPDPQM1+2, NCPDPQM1+3, NCPDPQM1+4