Routine: PSSFILED

Package	Total	Call Graph
VA FileMan	7	NOW^%DTC EN^DDIOL ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
Kernel	1	$$UP^XLFSTR
Pharmacy Data Management	1	^PSSGIU

Package	Total	Caller Graph
Pharmacy Data Management	4	^PS(51 OLD MED INSTRUCTION NAME(S) PSS INFINS ADED PSSJU MI

Entry Points

Name	Comments	DBIA/ICR reference
DONE	;S X="PSGSETU" X ^%ZOSF("TEST") I D ENKV^PSGSETU K D0,D1,D2,PSGRBS Q
GED	; generic edit
ENAT	; team file
ENAS	; schedules file - no longer used
ENMR	; med route file
ENWG	; ward group file
CHKNSY(PSSMIFLD)	; -- check Name and Synonym Fields pss_1_201 ; Called by: Name (#.01)and Synonym (#.5) Input Transforms ; Input -- PSSMIFLD Field -- .01=NAME, .5=SYNONYM ; X Name (#.01) or Synonym (#.5) ; PSSMIACT Action -- for Lookup=LKUP and Edit=EDIT -- set in ENMI line tag ; PSSMIEN Medication Instruction file (#51) IEN -- set in ENMI line tag ; Output -- X is killed if duplicate exists
GETVAL(PSSMIFLD,PSSMIEN,PSSMIENO)	; -- get Name or Synonym or Old Medication Instruction Name Field Value pss_1_201 ; Called by: Name (#.01)and Synonym (#.5) Input Transforms ; Input -- PSSMIFLD Field -- .01=NAME, .5=SYNONYM, 33,.01=OMINAME ; PSSMIEN Medication Instruction file (#51) IEN ; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN ; Output -- Name (#.01) or Synonym (#.5) or Old Medication Instruction Name Field (#51.33,.01) Value
ISOMIDUP(X,PSSMIDA)	; -- Is there a duplicate in the Old Med Instruction Name(s) sub-file (#51.33) pss_1_201 ; Input -- X Medication Instruction file (#51) Name (#.01) field or Synonym (#.5) field ; Output -- 1=Duplicate Found and 0=Unable to Check or No Duplicate Found ; PSSMIDA Old Med Instruction Name(s) multiple (#51.33) IEN Array
EXEHLP	; -- Name, Synonym and Old Med Instruction Name Fields Executable Help pss_1_201 ; Called by: Name (#.01), Synonym (#.5) and Old Med Instruction Name(s) (#51.33,.01) Executable Help ; Input -- PSSMIMSG Medication Instruction Message Flag and Array -- set in OMICHK and CHKNSY line tags ; Output -- None
CHKOMI(PSSMIFLD)	; -- check Old Med Instruction Name Field pss_1_201 ; Called by: Old Med Instruction Name(s) (#51.33,.01) Input Transform ; Input -- PSSMIFLD Field -- 33,.01=OMINAME ; X Old Med Instruction Name(s) multiple (#51.33) Name (#.01) field ; PSSMIACT Action -- for Lookup=LKUP and Edit=EDIT -- set in ENMI line tag ; PSSMIEN Medication Instruction file (#51) IEN -- set in ENMI line tag ; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN -- set in ENOMI line tag ; Output -- X is killed if duplicate exists
DELOMI(PSSMIEN,PSSMIENO)	; -- delete entry from OLD MED INSTRUCTION NAME(S) multiple #51.33 pss_1_201 ; Input -- PSSMIEN Medication Instruction file (#51) IEN ; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN ; Output -- None
ISNSYDUP(X,PSSMIDA)	; -- Is there a duplicate in the Name or Synonym field of the Medication Instruction file (#51) pss_1_201 ; Input -- X Old Med Instruction Name(s) multiple (#51.33) Name (#.01) field ; Output -- 1=Duplicate Found and 0=Unable to Check or No Duplicate Found ; PSSMIDA Medication Instruction file (#51) IEN
ENMI	; medication instruction file enhancements made in pss_1_201
ENMIQ
ENOMI(PSSPMI,PSSDA)	; prompt to display interaction for OLD MED INSTRUCTION NAME(S) multiple enhancements made in pss_1_201
SELOMI	; -- select Old Med Instruction Name
ENOMIQ
OMILE(PSSDA,PSSLR)	;
ENOMIX(PSSPMI,PSSDA)	; used by the 'AF' xref for adding an edited NAME (#.01) field's old value in the MEDICATION INSTRUCTION (#51) file to the OLD MED INSTRUCTION NAME(S) multiple pss_1_201
ENDRG	; standard drug fields
DE	;
ENOSE	; order set enter/edit
RBCHK	; used to validate room-bed
RBQ	; show room-beds for a ward
RBNP	;W """^"" TO STOP: " R Z3:DTIME W:'$T $C(7) S:'$T Z3="^" W 13," ",13 Q
ENPPD	; edit pharmacy patient data
ENCPDD	; edit patient's default stop date (wall)
ENSYS	; edit system file
ENPLSP	; edit pick list site parameters
ENCS	; change current site & parameters
DF	; Add/edit Med route, instruction... to the Dosage form file.
ENII	; infusion instruction file

External References

Name	Field # of Occurrence
NOW^%DTC	ENDRG+2
EN^DDIOL	CHKNSY+26, CHKNSY+43, EXEHLP+4, CHKOMI+25, CHKOMI+38, CHKOMI+45, CHKOMI+54, DELOMI+12, DELOMI+14
^DIC	ENMR+5, ENMI+3, SELOMI+2, ENDRG+2, DF+6, ENII+1
FILE^DICN	ENOMIX+11
YN^DICN	RBQ+2
^DIE	ENMR+6, ENMI+5, SELOMI+4, DE+4, ENSYS+2, DF+7, DF+8, ENII+3
^DIK	DELOMI+19
^DIR	DELOMI+10, DF+4
^PSSGIU	DE+4
$$UP^XLFSTR	CHKNSY+13, CHKOMI+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GED+1
Function Call: WRITE	Prompt: ! Line Location: ENAS+1
Function Call: WRITE	Prompt: ! Line Location: ENMR+4
Function Call: WRITE	Prompt: $C(7),$C(7),!!?3,"* WARNING, THIS DRUG IS INACTIVE. *",! Line Location: DE+2
Function Call: WRITE	Prompt: ?1,Z4,"-",$P(^(0),"^"),! Line Location: RBQ+3
Function Call: READ	Variable: Z3 Timeout: DTIME Line Location: RBNP+0
Function Call: WRITE	Prompt: Z3="^" Condition for execution: '$T $C(7) S:'$T Line Location: RBNP+0
Function Call: WRITE	Prompt: 13," ",13 Line Location: RBNP+0
Function Call: WRITE	Prompt: !!?3,"...This option is still under development...",! Line Location: ENPPD+2
Function Call: WRITE	Prompt: ! Line Location: ENPPD+4
Function Call: WRITE	Prompt: $C(7),!!?2 Line Location: ENCPDD+6
Function Call: WRITE	Prompt: ! Condition for execution: $L(X(1))+$X>78 Line Location: ENCPDD+6
Function Call: WRITE	Prompt: X(1)," " Line Location: ENCPDD+6
Function Call: WRITE	Prompt: !! Line Location: ENCPDD+7
Function Call: WRITE	Prompt: ! Line Location: ENSYS+2
Function Call: WRITE	Prompt: !!,"Current site: ",$P(PSJSYSW0,"^") Line Location: ENCS+2
Routine Call	DIC Line Location: ENMR+5 ENMI+3 SELOMI+2 ENDRG+2 DF+6 ENII+1
Routine Call	DIE Line Location: ENMR+6 ENMI+5 SELOMI+4 DE+4 ENSYS+2 DF+7 DF+8 ENII+3
Routine Call	DIR Line Location: DELOMI+10 DF+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PS(50.606 - [#50.606]	Classic Fileman Calls
^PS(51 - [#51]	Classic Fileman Calls
^PS(51.2 - [#51.2]	Classic Fileman Calls
^PS(53.47 - [#53.47]	Classic Fileman Calls
^PS(59.7 - [#59.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	RBCHK+3, RBQ+2, RBQ+3
^PS(50.606 - [#50.606]	DF+7
^PS(51 - [#51]	CHKNSY+22, CHKNSY+30, CHKNSY+36, CHKNSY+42, GETVAL+14, GETVAL+17, GETVAL+20, ISOMIDUP+10, ISOMIDUP+15, CHKOMI+44 , CHKOMI+50, ISNSYDUP+10, ISNSYDUP+15, OMILE+2, ENOMIX+6, ENOMIX+7, ENOMIX+8, ENOMIX+9
^PS(59.7 - [#59.7]	ENMR+3, ENMI+2
^PSDRUG - [#50]	DE+2

Label References

Name	Line Occurrences
$$GETVAL	CHKNSY+16, CHKOMI+28
$$ISNSYDUP	CHKOMI+48
$$ISOMIDUP	CHKNSY+33, CHKNSY+39, CHKOMI+41
$$OMILE	CHKOMI+19, CHKOMI+23, SELOMI+2
DE	ENDRG+2
DELOMI	CHKOMI+21
DF	ENMR+6
DONE	ENAT+3, ENWG+3, ENDRG+3, ENOSE+3
ENMI	ENMI+7
ENMIQ	ENMI+3
ENOMI	ENMI+5
ENOMIQ	SELOMI+2
RBNP	RBQ+3
SELOMI	SELOMI+6

Naked Globals

Name	Field # of Occurrence
^(	ISOMIDUP+15, RBQ+3
^("I"	DE+2
^(0	RBQ+2, RBQ+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENDRG+2, RBQ+2*
DA	ENMR+5, ENMR+7!, DELOMI+15~, DELOMI+17, ENMI+1~, ENMI+5, SELOMI+1~, SELOMI+4, ENOMIX+11, DE+4! , ENSYS+2!, DF+5!, DF+7, DF+8, ENII+3*, ENII+4!
DA(1	DELOMI+17, DELOMI+18, SELOMI+2, SELOMI+4, ENOMIX+11, RBQ+2, RBQ+3
DA(2	RBCHK+3
DD	ENMI+1~, SELOMI+1~
DFNO	DF+5~, DF+6*, DF+7, DF+8
DIC	ENMR+2!, ENMR+4, ENMR+5!, ENMI+1~, ENMI+3!, SELOMI+1~, SELOMI+2!, ENOMIX+11, ENDRG+2!, DF+5! , DF+6, DF+8!, ENII+1*!, ENII+4!
DIC("A"	CHKOMI+23, SELOMI+2, ENDRG+2*
DIC(0	ENMR+4, ENMI+3, SELOMI+2, ENOMIX+11, ENDRG+2, DF+6, ENII+1*
DIE	ENMR+2!, ENMR+5, ENMR+7!, ENMI+1~, ENMI+5, SELOMI+1~, SELOMI+4, DE+4!, ENSYS+2!, DF+5! , DF+7, DF+8!, ENII+3*, ENII+4!
DIK	DELOMI+15~, DELOMI+18*
DIR	DELOMI+4~
DIR("?"	DF+3*
DIR("A"	DELOMI+8, DF+2
DIR("B"	DF+4*
DIR(0	DELOMI+9, DF+4
DLAYGO	ENMR+4, ENMR+5!, ENMI+1~, ENMI+3, SELOMI+1~, ENII+1*, ENII+4!
DO	ENMI+1~, SELOMI+1~, ENOMIX+11!
DR	ENMR+2!, ENMR+5, ENMR+7!, ENMI+1~, ENMI+5, SELOMI+1~, SELOMI+4, DE+4!, ENSYS+2!, DF+5! , DF+7, DF+8!, ENII+3*, ENII+4!
MR	ENMR+2~, ENMR+5*, ENMR+7!, DF+7, DF+8!
MRNO	ENMR+2~, ENMR+5*, ENMR+7!, DF+7
>> PSGDT	ENDRG+2*, DE+2
PSIUA	ENDRG+3!, DE+4
PSIUDA	ENDRG+3!
PSIUX	ENDRG+3!, DE+4*
>> PSJSYSW0	ENCS+2
PSSADDF	SELOMI+1~
PSSDA	CHKOMI+23, ENOMI~, ENOMI+1, SELOMI+2, SELOMI+4, OMILE~, OMILE+2, ENOMIX~, ENOMIX+1, ENOMIX+6 , ENOMIX+7, ENOMIX+8, ENOMIX+11
PSSDUPF	ISOMIDUP+4~, ISOMIDUP+8, ISOMIDUP+10, ISOMIDUP+13, ISOMIDUP+16, ISNSYDUP+4~, ISNSYDUP+8, ISNSYDUP+10, ISNSYDUP+13, ISNSYDUP+16
PSSFINF	ENMI+1~, ENMI+4*, ENMI+5
PSSFLDVL	GETVAL+6~, GETVAL+11, GETVAL+13, GETVAL+14, GETVAL+16, GETVAL+17, GETVAL+19, GETVAL+20, GETVAL+21
PSSLE	OMILE+1~, OMILE+2, OMILE+3
PSSLR	OMILE~, OMILE+2*
PSSMCHK	ENOMIX+3~, ENOMIX+4, ENOMIX+7, ENOMIX+8
PSSMFL1	ENOMIX+3~, ENOMIX+4, ENOMIX+6, ENOMIX+11
PSSMFL2	ENOMIX+3~, ENOMIX+4, ENOMIX+7, ENOMIX+8, ENOMIX+11
PSSMFL3	ENOMIX+3~, ENOMIX+4, ENOMIX+9, ENOMIX+10, ENOMIX+11
PSSMI0	CHKOMI+8~, CHKOMI+50*
PSSMIACT	CHKNSY+16, CHKNSY+22, CHKNSY+33, CHKNSY+43, CHKOMI+17, CHKOMI+28, CHKOMI+34, CHKOMI+44, CHKOMI+45, CHKOMI+54 , ENMI+1~, ENMI+3, ENMI+5, SELOMI+1~, SELOMI+2, SELOMI+4
PSSMIDA	CHKNSY+7~, CHKNSY+33, CHKNSY+36, CHKNSY+39, CHKNSY+42, ISOMIDUP~, ISOMIDUP+15, CHKOMI+8~, CHKOMI+41, CHKOMI+44 , CHKOMI+48, CHKOMI+50, ISNSYDUP~, ISNSYDUP+15
PSSMIDA(1	ISOMIDUP+15*
PSSMIEN	CHKNSY+16, CHKNSY+30, CHKNSY+36, CHKNSY+42, GETVAL~, GETVAL+13, GETVAL+14, GETVAL+16, GETVAL+17, GETVAL+19 , GETVAL+20, CHKOMI+17, CHKOMI+19, CHKOMI+20, CHKOMI+21, CHKOMI+28, CHKOMI+44, DELOMI~, DELOMI+6, DELOMI+17 , ENMI+1~, ENMI+4*, ENMI+5
PSSMIENO	GETVAL~, GETVAL+19, GETVAL+20, CHKOMI+19, CHKOMI+20, CHKOMI+21, CHKOMI+28, DELOMI~, DELOMI+6, DELOMI+17 , SELOMI+1~, SELOMI+3*, SELOMI+4
PSSMIFLD	CHKNSY~, CHKNSY+10, CHKNSY+16, CHKNSY+30, GETVAL~, GETVAL+9, GETVAL+13, GETVAL+16, GETVAL+19, CHKOMI~ , CHKOMI+11, CHKOMI+28, CHKOMI+50*, CHKOMI+53
PSSMIMSG	CHKNSY+19!, CHKNSY+23, CHKNSY+26!, CHKNSY+34, CHKNSY+40, CHKNSY+43!, EXEHLP+4!, CHKOMI+31!, CHKOMI+35, CHKOMI+38! , CHKOMI+42, CHKOMI+45!, CHKOMI+51, CHKOMI+54!
PSSMIMSG(1	CHKNSY+24, CHKNSY+35, CHKNSY+41, CHKOMI+36, CHKOMI+43, CHKOMI+52
PSSMIMSG(2	CHKNSY+25, CHKNSY+36, CHKNSY+42, CHKOMI+37, CHKOMI+44, CHKOMI+53
PSSMINME	ENMI+1~, ENMI+4*, ENMI+5
PSSNM	ISNSYDUP+4~, ISNSYDUP+8, ISNSYDUP+10, ISNSYDUP+11, ISNSYDUP+15
PSSOMIDF	CHKOMI+18~, CHKOMI+19*
PSSOMINM	ISOMIDUP+4~, ISOMIDUP+8, ISOMIDUP+10, ISOMIDUP+11, ISOMIDUP+15
PSSOTH	ENMR+3, ENMR+7!, ENMI+1~, ENMI+2
PSSPMI	ENOMI~, ENOMI+1, ENOMIX~, ENOMIX+1, ENOMIX+6, ENOMIX+8, ENOMIX+10, ENOMIX+11
PSSRCHK	ENOMIX+3~, ENOMIX+4, ENOMIX+9, ENOMIX+10
PSSYNEWF	CHKNSY+7~, CHKNSY+29, CHKNSY+30, CHKNSY+33
U	ENMR+5, ENMI+4, ENOMIX+6
X	ENMR+7!, CHKNSY+13, CHKNSY+16, CHKNSY+22!, CHKNSY+33!, CHKNSY+39!, ISOMIDUP~, ISOMIDUP+6, ISOMIDUP+11, CHKOMI+14 , CHKOMI+17!, CHKOMI+28, CHKOMI+34!, CHKOMI+41!, CHKOMI+48!, CHKOMI+50, DELOMI+4~, DELOMI+15~, ISNSYDUP~, ISNSYDUP+6 , ISNSYDUP+11, ENOMIX+11*, RBCHK+3, RBCHK+4!
Y	ENMR+2!, ENMR+5, ENMR+7!, DELOMI+4~, DELOMI+11, ENMI+1~, ENMI+3, ENMI+4, SELOMI+1~, SELOMI+2 , SELOMI+3, ENDRG+2, DE+2, DF+4, DF+5~, DF+6, ENII+1, ENII+2, ENII+3, ENII+4!
Z0	RBCHK+3!, RBCHK+4!, RBQ+3*, RBQ+4!
Z1	RBQ+3*, RBQ+4!
Z2	RBQ+3*, RBQ+4!
Z3	RBQ+3*, RBQ+4!
Z4	RBQ+3*, RBQ+4!

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSFILED

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: