Routine: PSOPATLK

Information

PSOPATLK ;BIR/JAM - Patient Lookup utility ;7/21/08

Source file <PSOPATLK.m>

Package	Total	Call Graph
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Outpatient Pharmacy	11	PSOADDR PSOBAIRP PSOBINGO PSOLLL7 PSONVARP PSOP PSOPAT PSOPOLY PSORX1 PSOSD1 PSOTALK2

Name	Comments	DBIA/ICR reference
INST()	;get institution number
EN	;Entry point - Prompts for Patient, Prescription Number or Barcode ; ; Input - DIC(0) & DIC("A") [Optional] ; Used by DIR if defined by the calling routine.
RXLK	;Prescription Lookup
PATVAL()	;Validate user input
PATHLP	;Help text for patient prompt

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"No prescription number entered." Line Location: RXLK+3
Routine Call	DIC Line Location: PATHLP+8 PATVAL+8 RXLK+10
Routine Call	DIR Line Location: EN+12

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	RXLK+6
^PSRX("B"	RXLK+6

Name	Line Occurrences
$$INST	RXLK+4
RXLK	PATVAL+4, PATVAL+6

Name	Field # of Occurrence
DA	INST+1~, INST+2*, INST+3
DFN	RXLK+1~, RXLK+9*, RXLK+10
DIC	PATHLP+1~, PATHLP+8, PATVAL+8, RXLK+1~, RXLK+10~*
DIC("A"	EN+9, EN+10
DIC(0	PATHLP+8, PATVAL+8, RXLK+10*
DIQ	INST+1~
DIR	EN+7~
DIR("?"	EN+11*
DIR("??"	EN+11*
DIR("A"	EN+10*
DIR(0	EN+9*
DIROUT	EN+14!
DIRUT	EN+14!
DTOUT	EN+14!
DUOUT	EN+14!
OUT	PATVAL+1~, PATVAL+2, PATVAL+4, PATVAL+6, PATVAL+9, PATVAL+10, RXLK+3, RXLK+4, RXLK+7*
PSOINST	INST+1~, INST+3*, INST+4
PSOPTLK	EN+8!, EN+13*
RX	RXLK+1~, RXLK+2*, RXLK+3, RXLK+6
RXNUM	RXLK+1~, RXLK+2*, RXLK+4, RXLK+6, RXLK+8
X	PATHLP+2, PATHLP+3, PATVAL+4, PATVAL+6, RXLK+2, RXLK+10~*
Y	EN+13, PATVAL+9, RXLK+6*, RXLK+7, RXLK+9!
Z	RXLK+1~, RXLK+6*, RXLK+7