Routine: MCPFTSS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

MCPFTSS ;WISC/MLH-PFT SPECIAL STUDIES ANCILLARY ;7/9/99 10:13

Source Information

Source file <MCPFTSS.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Medicine	1	$$ETHN^MCPFTP1
Registration	1	(DEM,KVAR)^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Medicine	3	MCARE MCPFTE MCPFTI

Entry Points

Name	Comments	DBIA/ICR reference
RACECDE(DFN)	;Returns a value of RACE B = BLACK, O = ASIAN, and null for anything else
RACEMSG	; If patient race field is empty, notify user

External References

Name	Field # of Occurrence
$$ETHN^MCPFTP1	RACECDE+2
DEM^VADPT	RACECDE+1
KVAR^VADPT	RACECDE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!?5,"* Patient's race not specified in the patient file *" Line Location: RACEMSG+1
Function Call: READ	Variable: X Timeout: 3 Line Location: RACEMSG+2
Function Call: WRITE	Prompt: $C(7) Line Location: RACEMSG+2
Function Call: WRITE	Prompt: ! Line Location: RACEMSG+2

Label References

Name	Line Occurrences
RACEMSG	RACECDE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	RACECDE~
>> DJJ(23	MCPFTSS+4, MCPFTSS+5, MCPFTSS+6, MCPFTSS+7
>> DJR	MCPFTSS+3
MCHOLD	RACECDE+2~*
MCMRACE	RACECDE+2~, RACECDE+3, RACECDE+6, RACECDE+7*, RACECDE+8
>> MCRACE	RACECDE+1, RACECDE+2, RACECDE+4, RACECDE+5, RACECDE+6, RACECDE+7, RACECDE+8*, RACECDE+9
U	MCPFTSS+4, MCPFTSS+5, MCPFTSS+6, MCPFTSS+7, RACECDE+1
>> V(23	MCPFTSS+4, MCPFTSS+5, MCPFTSS+6, MCPFTSS+7
>> VADM	RACECDE+2
>> VADM(8	RACECDE+1
X	RACEMSG+2~*