Routine: PXRMXSC

Information

PXRMXSC ; SLC/PJH - Reminder reports service category selection ;12/18/2006

Package	Total	Call Graph
VA Fileman	3	EN^DDIOL HELP^DIE ^DIR
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Clinical Reminders	1	PXRMXD

Name	Comments	DBIA/ICR reference
SCATHELP	;? help for service categories.
VSCLIST(LIST,SLIST)	;LIST is a comma separated list of service categories. SLIST
SCAT	;Get the list of service categories.
SCATP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SCATP+4
Function Call: WRITE	Prompt: !!,"Enter the letter(s), separated by commas, corresponding to the desired service" Line Location: SCATHELP+13
Function Call: WRITE	Prompt: !,"category or categories. For example A,H,T,E would allow only encounters with" Line Location: SCATHELP+14
Function Call: WRITE	Prompt: !,"service categories of ambulatory, hospitalization, telecommunications, and" Line Location: SCATHELP+15
Function Call: WRITE	Prompt: !,"event (historical) to be included." Line Location: SCATHELP+16
Function Call: WRITE	Prompt: !!,"The possible service categories for the report are:",! Line Location: SCATHELP+17
Function Call: WRITE	Prompt: !,ARRAY(IC) Line Location: SCATHELP+18
Routine Call	DIE Line Location: SCAT+6 SCATHELP+3 VSCLIST+9
Routine Call	DIR Line Location: SCATP+5

FileNo	Call Tags
^AUPNVSIT - [#9000010]	HELP^DIE

Name	Line Occurrences
$$VSCLIST	SCATP+9
SCATP	SCATP+10

Name	Field # of Occurrence
ARRAY	SCATHELP+1~
ARRAY(	SCATHELP+11*, SCATHELP+18
DIEA	SCAT+1~
DIR	SCAT+1~, SCATP+5!
DIR("?"	SCAT+8*
DIR("??"	SCAT+9*
DIR("A"	SCATP+2*
DIR("B"	SCATP+3*
DIR(0	SCATP+1*
>> DIROUT	SCATP+6
DIRUT	SCAT+2!
DTOUT	SCAT+2!, SCATP+6*, SCATP+7
DUOUT	SCAT+2!, SCATP+7
IC	SCAT+1~, SCATP+12, SCATHELP+1~, SCATHELP+6, SCATHELP+7, SCATHELP+11, SCATHELP+18, VSCLIST+8~, VSCLIST+11, VSCLIST+12 , VSCLIST+15~, VSCLIST+19*, VSCLIST+20
JC	SCAT+1~, SCATHELP+1~, SCATHELP+5, SCATHELP+10, SCATHELP+11, SCATHELP+12
LE	VSCLIST+15~, VSCLIST+20*, VSCLIST+21, VSCLIST+24, VSCLIST+25
LEN	VSCLIST+15~, VSCLIST+18*, VSCLIST+19
LIST	VSCLIST~, VSCLIST+6, VSCLIST+16*, VSCLIST+18, VSCLIST+20
NSC	SCAT+1~, SCAT+7, SCATP+1, SCATHELP+1~, SCATHELP+4, SCATHELP+6, SCATHELP+12*, SCATHELP+18
PCESVC	SCAT+1~, SCAT+5, SCATP+9, SCATHELP+1~, SCATHELP+2, SCATHELP+8, SCATHELP+9
>> PXRMSCAT	SCATP+11*, SCATP+12
>> PXRMSCAT(	SCATP+12*
SCA	SCAT+1~, VSCLIST+8~
SCA("DIHELP"	SCAT+7, SCATHELP+4, SCATHELP+7, SCATHELP+11, VSCLIST+11, VSCLIST+12
SLIST	VSCLIST~, VSCLIST+7, VSCLIST+10, VSCLIST+13, VSCLIST+14*, VSCLIST+24
TEMP	VSCLIST+8~, VSCLIST+12*, VSCLIST+13, VSCLIST+14
U	SCAT+8, SCAT+9, SCATP+1
VALID	SCAT+1~, SCATP+9, SCATP+10, VSCLIST+15~, VSCLIST+17, VSCLIST+23, VSCLIST+26, VSCLIST+27
X	SCAT+1~, SCATP+12, SCATHELP+7, SCATHELP+8, SCATHELP+9
Y	SCAT+1~, SCATP+9, SCATP+11