Routine: PSOLMUTL

Information

PSOLMUTL ;BIR/SAB - listman utilities ;29-May-2012 14:54;PLS

Source file <PSOLMUTL.m>

Package	Total	Call Graph
Outpatient Pharmacy	11	^PSOBUILD EN^PSOLMPI ^PSOLSET SELAL^PSOORDA EDTSEL^PSOOREDT EDTSEL^PSOORNE1 NEWSEL^PSOORNE2 EDTSEL^PSOORNE4 EDTSEL^PSOORNEW BLD^PSOORUT1 (,ALLERGY)^PSOORUT2
Registration	2	($$SETSTR,FULL)^VALM1 RE^VALM4
Adverse Reaction Tracking	1	EN2^GMRAPEM0
IHS Changes To Pharmacy	1	$$FMTSSN^APSPFUNC
VA Fileman	1	^DIC

Package	Total	Caller Graph
Outpatient Pharmacy	19	PSOCAN3 PSOLMAL PSOLMAO PSOLMDA PSOLMPAT PSOLMPF PSOLMPI PSOLMPO PSOLMPO1 PSOLMPO2 PSOLMRN PSONEW PSOORAL PSOOREDT PSOORFI2 PSOORNE1 PSOORNE4 PSORX1 PSOTPRX1
IHS Changes To Pharmacy	1	APSPCO

Name	Comments	DBIA/ICR reference
ACTIONS1()	;screen actions on pending orders
EN
HDR	;patient med profile display
EDTSEL	;allows edit selection by number instead of action - active orders
EDTRNEW	;allows edit selection by number instead of action - renew orders
EDTPEN	;allows edit selection by number instead of action - pending orders
RFDSP	;screen action to toggle display of prescriptions between LAST FILL date and LAST RELEASE Date.
SELAL	;selection of allergy by number instead of action - select allergy
NEWALL(DFN)	; Enter Allergy info.
PKIACT()	;screen actions on pending orders DEA/PKI proj.
INITQ
ACTIONS()	;screen actions on active orders
HLDHDR	;keeps patient's header info
EDTNEW	;allows edit selection by number instead of action - new orders
NEWSEL	;allows order selection by number instead of action
BYPASS

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+0
Function Call: WRITE	Prompt: $C(7),!!?5,"Site parameter must be defined!",! Line Location: EN+1
Function Call: WRITE	Prompt: IOSC Line Location: HLDHDR+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: HLDHDR+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: HLDHDR+1
Routine Call	DIC Line Location: ACTIONS+2 ACTIONS1+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSOHDR"	HDR+1, HDR+2, HDR+3, HDR+12, HDR+13, HDR+14, HDR+15, HDR+16, HDR+18, HDR+21 , HDR+22

Name	Line Occurrences
INITQ	EN+1

Name	Field # of Occurrence
>> DA	ACTIONS+2, ACTIONS1+2
>> DA(1	ACTIONS+2, ACTIONS1+2
DFN	NEWALL~
DIC	ACTIONS+2~!, ACTIONS1+2~!
DIC(0	ACTIONS+2, ACTIONS1+2
>> HDR	HDR+1, HDR+2, HDR+4, HDR+12, HDR+13, HDR+14, HDR+15, HDR+16, HDR+17
>> IOBM	HLDHDR+1*
IOF	EN
>> IORC	HLDHDR+1
>> IORVOFF	HDR+2, HDR+4
>> IORVON	HDR+2, HDR+4
>> IOSC	HLDHDR+1
IOSL	HLDHDR+1
>> IOSTBM	HLDHDR+1
>> IOTM	HLDHDR+1*
>> PKI1	ACTIONS+1, ACTIONS1+1, PKIACT+1
>> PS	HDR+19
>> PSOACT	ACTIONS+4, ACTIONS+5, ACTIONS+6, ACTIONS+7, ACTIONS+8, ACTIONS+9, ACTIONS+10, ACTIONS+11, ACTIONS+12, ACTIONS+13 , ACTIONS+14, ACTIONS1+4, ACTIONS1+5, ACTIONS1+6, ACTIONS1+7
>> PSOFDR	BYPASS
PSOID	NEWALL+1~
PSONOAL	HDR+3*!
>> PSOPAR	EN+1
>> PSORFG	RFDSP+1*
>> PSOSD	RFDSP+2
>> SEDT	EDTPEN+1*
>> SIGOK	BYPASS*
>> VA("PID"	HDR+12
>> VALM("TM"	HLDHDR+1
>> VALMBCK	NEWALL+1, BYPASS
VALMCNT	EN*, NEWSEL+1~, EDTSEL+1~, SELAL+1~, EDTNEW+1~, EDTRNEW+1~, EDTPEN+1~
VALMHDR	HDR+1!, RFDSP+4!
VALMHDR(1	HDR+2, HDR+4
VALMHDR(2	HDR+13*
VALMHDR(3	HDR+15*
VALMHDR(4	HDR+17*
VALMHDR(5	HDR+18*
VALMHDR(6	HDR+21*
VALMHDR(7	HDR+22*
X	HDR+2, HDR+4, ACTIONS+2~, ACTIONS1+2~
>> XQORNOD(0	NEWSEL+1, EDTSEL+1, SELAL+1, EDTNEW+1, EDTRNEW+1, EDTPEN+1
Y	NEWSEL+1, EDTSEL+1, SELAL+1, EDTNEW+1, EDTRNEW+1, EDTPEN+1, BYPASS, ACTIONS+2~!, ACTIONS+3, ACTIONS+4 , ACTIONS+5, ACTIONS+6, ACTIONS+7, ACTIONS+8, ACTIONS+9, ACTIONS+10, ACTIONS+11, ACTIONS+12, ACTIONS+13, ACTIONS+14 , ACTIONS+15, ACTIONS1+2~!, ACTIONS1+3*, ACTIONS1+4, ACTIONS1+5, ACTIONS1+6, ACTIONS1+7
Y(0	ACTIONS+3, ACTIONS1+3