Routine: PXUACM

Information

PXUACM ; ISA/KWP - Convert PCE Mapping File and Immunization file ;3/3/1999

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	3	FILE^DICN ^DIE IX1^DIK

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: 1

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PX166P

Entry Points

Name	Comments	DBIA/ICR reference
CONVERT(CHANGE,REPORT)	;see comments above
CQ
BUILD(TYPE,ARR)	;TYPE-IA or NW, ARR-INACT or NEW
INACT	;Inactivate subroutine
NODE	;0 node of the map entry missing
NEW	;New codes subroutine
NEW1
IA	;These codes will be deleted from the map. The corresponding
NW	;These codes will be added to the map. The second and third
R

External References

Name	Field # of Occurrence
FILE^DICN	NEW1+13, NEW1+20, NEW1+27
^DIE	INACT+9, INACT+11
IX1^DIK	NEW1+14, NEW1+21, NEW1+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Incorrect entry point. This program must be utilized through" Line Location: PXUACM+11
Function Call: WRITE	Prompt: !,"the Extrinsic Function. For example: SET RESULT=$$CONVERT(1,2)" Line Location: PXUACM+12
Function Call: WRITE	Prompt: !,"See program comments for parameter definitions." Line Location: PXUACM+13
Function Call: WRITE	Prompt: !,"Building INACT and NEW arrays." Line Location: CONVERT+3
Function Call: WRITE	Prompt: !,"Processing Inactive Codes:" Line Location: CONVERT+6
Function Call: WRITE	Prompt: !!,"Processing New Codes:" Line Location: CONVERT+8
Function Call: WRITE	Prompt: " Map Code Inactivated." Line Location: INACT+10
Function Call: WRITE	Prompt: " IMM Inactivated." Line Location: INACT+12
Function Call: WRITE	Prompt: !,"WARNING: Code "_INO_" does not contain a from/to entry to turn off in the map." Line Location: INACT+14
Function Call: WRITE	Prompt: !," ERROR: Map 0 Node Missing." Line Location: NODE+2
Function Call: WRITE	Prompt: "(^PXD(811.1,"_INO_",0)" Line Location: NODE+2
Function Call: WRITE	Prompt: !,?5,"ERROR: Immunization for code "_CODE_" doesn't match update file." Line Location: NEW1+5
Function Call: WRITE	Prompt: !,?5,"Adding: "_CODE_"." Line Location: NEW1+7
Function Call: WRITE	Prompt: " IMM exist." Line Location: NEW1+10
Function Call: WRITE	Prompt: " IMM added." Line Location: NEW1+15
Function Call: WRITE	Prompt: " IMM-CPT map exist." Line Location: NEW1+17
Function Call: WRITE	Prompt: " IMM-CPT map added." Line Location: NEW1+22
Function Call: WRITE	Prompt: " CPT-IMM map exist." Line Location: NEW1+24
Function Call: WRITE	Prompt: " CPT-IMM map added." Line Location: NEW1+29
Routine Call	DIE Line Location: INACT+9 INACT+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PXD(811.1 - [#811.1]	Classic Fileman Calls
^AUTTIMM - [#9999999.14]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTIMM - [#9999999.14]	NEW1+4, NEW1+14*
^AUTTIMM(0	NEW1+12*
^PXD(811.1 - [#811.1]	INACT+1, NEW1+21, NEW1+28

Label References

Name	Line Occurrences
$$CONVERT	R
BUILD	CONVERT+4, CONVERT+5
CQ	CONVERT+7
INACT	CONVERT+7
NEW	CONVERT+9
NEW1	NEW+3
NODE	INACT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	BUILD~
ARR(	BUILD+2*
CERRFR	NEW+1~, NEW1*, NEW1+2, NEW1+4, NEW1+6, NEW1+10, NEW1+11, NEW1+19, NEW1+24, NEW1+25 , NEW1+26
CERRTO	NEW+1~, NEW1*, NEW1+2, NEW1+4, NEW1+6, NEW1+10, NEW1+11, NEW1+17, NEW1+18, NEW1+26
CHANGE	CONVERT~, CONVERT+2*, INACT+9, INACT+11, NEW1+11, NEW1+18, NEW1+25
CODE	NEW+1~, NEW+3*, NEW1, NEW1+5, NEW1+6, NEW1+7, NEW1+21, NEW1+27
CPIECE	INACT+1~, INACT+4, INACT+7, INACT+8, INACT+11, INACT+13
DA	INACT+1~, INACT+9, INACT+11, NEW+1~, NEW1+14, NEW1+21, NEW1+28*
DD	NEW1+13!, NEW1+20!, NEW1+27!
DIC	NEW+1~, NEW1+13, NEW1+20, NEW1+27*
DIC(0	NEW1+13, NEW1+20, NEW1+27*
DIE	INACT+1~, INACT+9, INACT+11, NEW+1~
>> DIK	NEW1+14, NEW1+21, NEW1+28*
DO	NEW1+13!, NEW1+20!, NEW1+27!
DR	INACT+1~, INACT+9, INACT+11, NEW+1~
DUZ(0	INACT+9, INACT+11
ERROR	CONVERT+1~, CONVERT+7, CQ, INACT+1, NODE+1, NEW+3, NEW1+2, NEW1+5, NEW1+11, NEW1+13 , NEW1+18, NEW1+20, NEW1+25, NEW1+27
I	BUILD+1~, BUILD+2*
IMINO	NEW+1~, NEW1, NEW1+14, NEW1+19, NEW1+20, NEW1+26, NEW1+28
IMM	INACT+1~, INACT+4*
>> INACT	CONVERT+4
>> INACT(	INACT+6, INACT+8, INACT+13, INACT+14
INO	INACT+1~, INACT+9, INACT+14, NODE+2, NEW+1~, NEW1+21, NEW1+28
LNAME	NEW+1~, NEW1*, NEW1+5, NEW1+13
LNAME2	NEW1+3~, NEW1+4*, NEW1+5
MAP	INACT+1~, INACT+3, INACT+4, INACT+6, INACT+7, INACT+8, INACT+11, INACT+13, INACT+14
>> NEW	CONVERT+5
>> NEW(	INACT+3, INACT+4*, NEW+3, NEW1
REPORT	CONVERT~, CONVERT+2*, CONVERT+3, CONVERT+6, CONVERT+8, INACT+1, INACT+8, INACT+10, INACT+12, INACT+14 , NODE+2, NEW1+5, NEW1+6, NEW1+7, NEW1+10, NEW1+13, NEW1+15, NEW1+17, NEW1+20, NEW1+22 , NEW1+24, NEW1+27, NEW1+29
>> RESULT	R*
S	CONVERT+1~*, INACT+3, INACT+4, INACT+6, INACT+8, INACT+11, INACT+13
SNAME	NEW+1~, NEW1*, NEW1+14
T	BUILD+1~, BUILD+2*
TYPE	BUILD~, BUILD+2
U	CONVERT+1~*, BUILD+2, INACT+3, INACT+4, INACT+6, INACT+7, INACT+8, INACT+11, INACT+13, INACT+14 , NEW1, NEW1+4, NEW1+14, NEW1+21, NEW1+28
X	NEW+1~, NEW1+13, NEW1+20, NEW1+27*
Y	NEW+1~, NEW1+13, NEW1+14, NEW1+20, NEW1+21, NEW1+27, NEW1+28

Marked Items

Name	Field # of Occurrence
$T(@TYPE+I	BUILD+2

Customize PDF page

Package: PCE Patient Care Encounter