Routine: PSSFILED

Information

PSSFILED ;BIR/CML3-VARIOUS FILED UPKEEP ;09/15/97

Source file <PSSFILED.m>

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC YN^DICN ^DIE ^DIR
Pharmacy Data Management	1	^PSSGIU

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSJU MI

Name	Comments	DBIA/ICR reference
RBNP	;W """^"" TO STOP: " R Z3:DTIME W:'$T $C(7) S:'$T Z3="^" W 13," ",13 Q
DE	;
ENOSE	; order set enter/edit
ENMI	; medication instruction file
DF	; Add/edit Med route, instruction... to the Dosage form file.
ENDRG	; standard drug fields
ENSYS	; edit system file
RBQ	; show room-beds for a ward
ENAS	; schedules file - no longer used
ENPLSP	; edit pick list site parameters
DONE	;S X="PSGSETU" X ^%ZOSF("TEST") I D ENKV^PSGSETU K D0,D1,D2,PSGRBS Q
RBCHK	; used to validate room-bed
ENAT	; team file
GED	; generic edit
ENCS	; change current site & parameters
ENPPD	; edit pharmacy patient data
ENMR	; med route file
ENCPDD	; edit patient's default stop date (wall)
ENWG	; ward group file

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	Timeout: DTIME Variable: Z3 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	DIE Line Location: ENMR+6 ENMI+2 DE+4 ENSYS+2 DF+7 DF+8
Routine Call	DIC Line Location: ENMR+5 ENMI+2 ENDRG+2 DF+6
Routine Call	DIR Line Location: DF+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	RBCHK+3, RBQ+2, RBQ+3
^PS(50.606 - [#50.606]	DF+7
^PS(59.7 - [#59.7]	ENMR+3, ENMI+1
^PSDRUG - [#50]	DE+2

Name	Field # of Occurrence
>> %	ENDRG+2, RBQ+2*
DA	ENMR+5, ENMR+7!, ENMI+2, ENMI+3!, DE+4!, ENSYS+2!, DF+5!, DF+7, DF+8*
DA(1	RBQ+2, RBQ+3
DA(2	RBCHK+3
DFNO	DF+5~, DF+6*, DF+7, DF+8
DIC	ENMR+2!, ENMR+4, ENMR+5!, ENMI+2!, ENMI+3!, ENDRG+2!, DF+5!, DF+6, DF+8!
DIC("A"	ENDRG+2*
DIC(0	ENMR+4, ENMI+2, ENDRG+2, DF+6
DIE	ENMR+2!, ENMR+5, ENMR+7!, ENMI+2, ENMI+3!, DE+4!, ENSYS+2!, DF+5!, DF+7, DF+8!*
>> DIR("?"	DF+3*
>> DIR("A"	DF+2*
>> DIR("B"	DF+4*
>> DIR(0	DF+4*
DLAYGO	ENMR+4, ENMR+5!, ENMI+2, ENMI+3!
DR	ENMR+2!, ENMR+5, ENMR+7!, ENMI+2, ENMI+3!, DE+4!, ENSYS+2!, DF+5!, DF+7, DF+8!*
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
PSSOTH	ENMR+3, ENMR+7!, ENMI+1, ENMI+3!
U	ENMR+5
X	ENMR+7!, RBCHK+3, RBCHK+4!
Y	ENMR+2!, ENMR+5, ENMR+7!, ENMI+2, ENMI+3!, ENDRG+2, DE+2, DF+4, DF+5~, DF+6
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!