Routine: PSGFILED

Information

PSGFILED ;BIR/CML3-VARIOUS FILES' UPKEEP ;16 Mar 99 / 10:22 AM

Source file <PSGFILED.m>

Package	Total	Call Graph
Inpatient Medications	4	ENAO^PSGGAO ^PSGIU ^PSGSET (ENCV,ENKV)^PSGSETU
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIR

Package	Total	Caller Graph
Inpatient Medications	10	PSJ CD PSJ SYS EDIT PSJU AT PSJU CHG IS PSJU CPDD PSJU ECG PSJU EPPD PSJU EWG PSJU OSE PSJU SYSTEM
Pharmacy Data Management	1	PSSJU DRG

Name	Comments	DBIA/ICR reference
ENCD	;edit Clinic Definitions file
RBNP
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
ENCG	; ward group file0
DONE
RBCHK	; used to validate room-bed
ENAT	; team file
GED	; generic edit
ENCS	; change current site & parameters
ENPPD	; edit pharmacy patient data ; W !!?3,"...This option is still under development...",! Q
ENMR	; med route file
ENCPDD	; edit patient's default stop date (wall)
ENWG	; ward group file

Name	Field # of Occurrence
NOW^%DTC	ENDRG+1
^DIC	ENAT+1, ENMR+2, ENWG+1, ENMI+1, ENDRG+1, ENOSE+1, DF+5, ENCD+1, ENCG+1
^DIE	GED+1, ENAT+1, ENMR+2, ENWG+1, ENMI+1, DE+3, ENOSE+1, ENCPDD+6, ENSYS+3, DF+6 , DF+7, ENCD+2, ENCG+1
^DIR	DF+3
ENAO^PSGGAO	ENCPDD+2
^PSGIU	DE+3
^PSGSET	ENCS+2
ENCV^PSGSETU	ENCPDD+1
ENKV^PSGSETU	DONE, ENCS+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GED+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!?3,"* WARNING, THIS DRUG IS INACTIVE. *",! Line Location: DE+1
Function Call: WRITE	Prompt: ! Line Location: DE+2
Function Call: READ	Timeout: DTIME Variable: Z3 Line Location: RBNP+0
Function Call: WRITE	Prompt: """^"" TO STOP: " 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: $C(13)," ",$C(13) Line Location: RBNP+0
Function Call: WRITE	Prompt: !!?3,"...This option is still under development...",! Line Location: ENPPD+1
Function Call: WRITE	Prompt: $C(7),!!?2 Line Location: ENCPDD+5
Function Call: WRITE	Prompt: ! Condition for execution: $L(X(1))+$X>78 Line Location: ENCPDD+5
Function Call: WRITE	Prompt: X(1)," " Line Location: ENCPDD+5
Function Call: WRITE	Prompt: !! Line Location: ENCPDD+6
Function Call: WRITE	Prompt: ! Line Location: ENSYS+3
Function Call: WRITE	Prompt: !!,"Current site: ",$P(PSJSYSW0,"^") Line Location: ENCS+1
Routine Call	DIE Line Location: GED+1 ENAT+1 ENMR+2 ENWG+1 ENMI+1 DE+3 ENOSE+1 ENCPDD+6 ENSYS+3 DF+6 DF+7 ENCD+2 ENCG+1
Routine Call	DIC Line Location: ENAT+1 ENMR+2 ENWG+1 ENMI+1 ENDRG+1 ENOSE+1 DF+5 ENCD+1 ENCG+1
Routine Call	DIR Line Location: DF+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	ENCPDD+4
^DPT - [#2]	ENCPDD+3
^PS(50.606 - [#50.606]	DF+6
^PS(59.6 - [#59.6]	ENCPDD+4
^PSDRUG - [#50]	DE+1

Name	Line Occurrences
DE	ENDRG+1
DF	ENMR+2
DONE	ENAT+2, ENMR+3, ENWG+2, ENMI+2, ENDRG+2, ENOSE+2, ENCPDD+7, ENCG+2

Name	Field # of Occurrence
>> %	ENDRG+1
D0	DONE!, ENOSE+1!
D1	DONE!, ENOSE+1!
D2	DONE!
DA	GED+1, ENAT+1, ENMR+2, ENWG+1!, ENMI+1, DE+2, DE+3!, ENOSE+1!, ENCPDD+6, ENSYS+2* , ENSYS+3!, DF+4!, DF+6, DF+7, ENCD+2!, ENCG+1!
DFNO	DF+4~, DF+5*, DF+6, DF+7
DIC	ENAT+1!, ENMR+1!, ENMR+2!, ENWG+1!, ENMI+1!, ENDRG+1!, ENOSE+1!, DF+4!, DF+5, DF+7! , ENCD+1!, ENCG+1*!
DIC("A"	ENAT+1, ENDRG+1, ENOSE+1, ENCD+1
DIC(0	ENAT+1, ENMR+2, ENWG+1, ENMI+1, ENDRG+1, ENOSE+1, DF+5, ENCD+1, ENCG+1*
DIE	ENAT+1, ENMR+1!, ENMR+2, ENWG+1, ENMI+1, DE+2, DE+3!, ENOSE+1!, ENCPDD+6, ENSYS+2 , ENSYS+3!, DF+4!, DF+6, DF+7!, ENCD+2!, ENCG+1
>> DIR("?"	DF+2*
>> DIR("A"	DF+1*
>> DIR("B"	DF+3*
>> DIR(0	DF+3*
DLAYGO	ENAT+1!, ENMR+2!, ENWG+1, ENMI+1, ENOSE+1, ENCD+1, ENCG+1*
DR	GED+1, ENAT+1, ENMR+1!, ENMR+2, ENWG+1!, ENMI+1, DE+2, DE+3!, ENOSE+1!, ENCPDD+6 , ENSYS+2, ENSYS+3!, DF+4!, DF+6, DF+7!, ENCD+2!, ENCG+1!*
DTIME	RBNP
MR	ENMR+1~, ENMR+2*, DF+6, DF+7!
MRNO	ENMR+1~, ENMR+2*, DF+6
PSGCSF	ENCS+2*!
>> PSGDT	ENDRG+1*, DE+1
PSGNEDFD	ENOSE+1!
PSGORSET	ENCS+2!
>> PSGP	ENCPDD+2, ENCPDD+3, ENCPDD+6
PSGRBS	DONE!
PSGS0XT	ENOSE+1!
PSGS0Y	ENOSE+1!
PSIUA	ENDRG+2!, DE+3
PSIUDA	ENDRG+2!, DE+2*
PSIUX	ENDRG+2!, DE+3*
>> PSJSYSW0	ENCS+1
U	ENMR+2
WD	ENCPDD+4*, ENCPDD+7!
WDN	ENCPDD+3*, ENCPDD+4, ENCPDD+7!
>> X	ENCPDD+4, ENCPDD+5
>> X(1	ENCPDD+5*
XQUIT	ENCPDD+1, ENCS+2!
Y	GED+1, ENAT+1, ENMR+1!, ENMR+2, ENWG+1, ENMI+1, ENDRG+1, DE+1, DE+2, ENOSE+1 , ENCPDD+5*, DF+3, DF+4~, DF+5, ENCD+1, ENCD+2, ENCG+1
>> Z3	RBNP*