Routine: PXRMVAL

Package	Total	Call Graph
VA Fileman	3	^DIC (FIELD,FILE)^DID ^DIR
Clinical Reminders	2	($$CPT,$$ICD,$$ICP)^PXRMVALC ($$FILE,$$TYPE)^PXRMVALU

Package

Total

Call Graph

^DIC (FIELD,FILE)^DID ^DIR

($$CPT,$$ICD,$$ICP)^PXRMVALC ($$FILE,$$TYPE)^PXRMVALU

Package	Total	Caller Graph
Clinical Reminders	5	PXRMCODE PXRMGEDT PXRMLEX PXRMTAXS PXRMV1ID

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN	; Validate a code format (ICD or CPT)
CODE(X,DIC)	; Extrinsic Function to check code format and value
FN(X)	; File Name (DBIA #2052)
VAL(X,Y)	; Validate code
FD	; File and file root based on DIC
DD(X)	; DD Exist? (DBIA #2052)
FI(SO)	; Prompt user for file (FI,DIC)
SO(X)	; Prompt user for source code (CODE)
GL(X)	; Global Location (DBIA #2052)

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Name	Field # of Occurrence
CODE	VAL+1~*, VAL+2, VAL+3, VAL+4, VAL+5
DIC	EN+1~, EN+5, EN+6, EN+8, EN+9, CODE~, CODE+1, FI+1~, FI+7, FD+1* , FD+2, FD+3, FD+4, FD+5, FD+6*
DIC("A"	FI+4, FI+5
DIC("B"	FI+4*
DIC("S"	FI+6*
DIC(0	FI+7*
DINUM	FI+1~
DIR	SO+1~
DIR("A"	SO+3*
DIR("B"	SO+4*
DIR(0	SO+2*
DIROUT	SO+1~, SO+5
DIRUT	SO+1~, SO+5
DLAYGO	FI+1~
DO	FI+1~
DTOUT	SO+1~, SO+5, FI+1~
DUOUT	SO+1~, SO+5, FI+1~
FI	EN+1~, EN+5, EN+8, EN+9, EN+11, FD+1, FD+3, FD+5, FD+6*
FILEDEF	FI+1~, FI+2, FI+3, FI+4
FILENM	FI+1~, FI+3*
FILENUM	VAL+1~*, VAL+2, VAL+3, VAL+4
OX	EN+1~, EN+3, EN+5, EN+6, EN+8, EN+9
PXRMF	DD+1~, GL+1~, FN+1~
PXRMF("GLOBAL	NAME" , GL+1
PXRMF("LABEL"	DD+2
PXRMF("NAME"	FN+1
SO	FI~, FI+2, FI+5, FI+7
TY	EN+1~, EN+8*, EN+9
X	EN+1, EN+3, EN+6, EN+8, EN+9, EN+11, CODE~, CODE+1, VAL~, VAL+1 , SO~, SO+2, SO+4, SO+5, SO+6, FI+1~, DD~, DD+1, DD+2, GL~ , GL+1, FN~, FN+1*
Y	EN+1!, EN+3, EN+6, EN+8, EN+9, EN+11, CODE+1~, VAL~, VAL+1, SO+1~ , SO+5, FI+1~, FI+7

Information