Routine: BRAPCC

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC (,FILE)^DIE ^DIK $$GET1^DIQ
Patient Care Component	3	^APCDALV ^APCDALVR ^APCDVDLT
IHS Changes To ADT	1	($$INPT1,$$PRIORTXN)^BDGF1
IHS Patient	1	MOD^AUPNVSIT
Kernel	1	^%ZTER

Package	Total	Caller Graph
IHS Mods To Radiology Nuclear Medicine	1	BRAPRAD

Entry Points

Name	Comments	DBIA/ICR reference
CLN	;
UPDTIMP(RADFN,RADTI)	;EP ---> Called from BRAPRAD and VRAD above
VISIT	;---> CREATE OR MODIFY VISIT IN VISIT FILE.
CREATE	;EP---> CREATE OR MODIFY A VISIT FILE ENTRY, CREATE A NEW V RAD ENTRY.
CDIE	;CALL DIE
VRAD	;---> CREATE (ADD) VISIT TO V RADIOLOGY FILE.
Q	;
CLINIC	; ; Identify radiology clinic rather than stuff a value
STORE(RAFLD,RAVALUE)	;---> STORE VISIT AND V RAD IEN'S IN RADIOLOGY EXAMS FILE #70
EXIT	;
DISPLAY3	;---> DISPLAY VISIT AND V RAD GLOBAL NODES AND FILE#70 IENS.
DISPLAY1	;---> DISPLAY VISIT IEN.
DISPLAY2	;---> DISPLAY V RAD IEN.
SETIMP()	;moved set impression string to function call ;IHS/ITSC/CLS 01/08/2004
DELETE	;EP---> DELETE PCC V RAD ENTRY. (REQUIRES RADFN, RADTI, & RACNI)

External References

Name	Field # of Occurrence
NOW^%DTC	CREATE+21
^%ZTER	STORE+10
^APCDALV	VISIT+65
^APCDALVR	VRAD+42
^APCDVDLT	DELETE+12
MOD^AUPNVSIT	CDIE+14
$$INPT1^BDGF1	VISIT+35
$$PRIORTXN^BDGF1	VISIT+36
^DIC	CREATE+8
^DIE	CDIE+4
FILE^DIE	STORE+6
^DIK	DELETE+10
$$GET1^DIQ	VISIT+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"VISIT FILE: " Line Location: DISPLAY3+1
Function Call: WRITE	Prompt: !!,"V RAD FILE: " Line Location: DISPLAY3+6
Function Call: WRITE	Prompt: !,"EXAM IENS: ",RADFN," ",RADTI," ",RACNI Line Location: DISPLAY3+10
Function Call: WRITE	Prompt: !,"NO PCC data available for this exam." Line Location: UPDTIMP+18
Function Call: WRITE	Prompt: !,"Can not update IMPRESSION in V RAD file. File being edit by another user." Line Location: CDIE+3
Function Call: WRITE	Prompt: !,"IMPRESSION has been updated in the V RAD file." Line Location: CDIE+6
Routine Call	DIC Line Location: CREATE+8
Routine Call	DIE Line Location: CDIE+4
Routine Call	DIE Line Location: STORE+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPM - [#405]	GET1^DIQ
^AUPNVRAD - [#9000010.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	CREATE+6, CREATE+12, CREATE+13, CREATE+15, VISIT+22
^AUPNVRAD - [#9000010.22]	DELETE+8, DELETE+9, DISPLAY3+8, DISPLAY3+9, UPDTIMP+32, CDIE+3, CDIE+5, CDIE+13
^AUPNVSIT - [#9000010]	DELETE+12, DISPLAY3+3, DISPLAY3+4
^AUTTSITE(1	CREATE+4
^DD(9000010.22	VISIT+55
^DIC(16 - [#16]	VISIT+58
^DIC(40.7 - [#40.7]	CLINIC+21
^RA(79.1 - [#79.1]	VISIT+17
^RADPT - [#70]	CREATE+19, CREATE+22, VISIT+8, VISIT+15, VISIT+30, VISIT+50, VRAD+2, VRAD+8, VRAD+11, VRAD+16 , VRAD+28, VRAD+29, CLINIC+7, DELETE+4, DELETE+5, DELETE+11, DELETE+14*, UPDTIMP+13, UPDTIMP+17, UPDTIMP+36 , UPDTIMP+38, UPDTIMP+39
^RARPT - [#74]	VRAD+36, UPDTIMP+36, SETIMP+1, SETIMP+2
^SC - [#44]	CLINIC+11
^VA(200 - [#200]	VISIT+57

Label References

Name	Line Occurrences
$$SETIMP	VRAD+37, UPDTIMP+37
$$STORE	VISIT+68, VRAD+45
CDIE	UPDTIMP+23, UPDTIMP+40
CLINIC	VISIT+46
CLN	UPDTIMP+18, UPDTIMP+36
DISPLAY1	VISIT+66
DISPLAY2	VRAD+43
DISPLAY3	VRAD+49
EXIT	VISIT+68, VISIT+72, VRAD+45, VRAD+48
Q	UPDTIMP+13
UPDTIMP	VRAD+2

Naked Globals

Name	Field # of Occurrence
^(	UPDTIMP+13
^(0	SETIMP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CREATE+23
>> ACTION	UPDTIMP+32
APCDALVR	CREATE+2!
APCDALVR("APCDADFN"	VRAD+45, DISPLAY2+1, DISPLAY2+2, DISPLAY3+7
APCDALVR("APCDAFLG"	VISIT+72, VRAD+48, DISPLAY1+6, DISPLAY1+7, DISPLAY2+4, DISPLAY2+5
APCDALVR("APCDANE"	VISIT+63*
APCDALVR("APCDATMP"	VRAD+41*
APCDALVR("APCDAUTO"	VISIT+27*
APCDALVR("APCDCAT"	VISIT+38*, CLINIC+19
APCDALVR("APCDCLN"	CLINIC+15, CLINIC+22
APCDALVR("APCDDATE"	VISIT+8, VISIT+9
APCDALVR("APCDLOC"	VISIT+12, VISIT+17
APCDALVR("APCDPAT"	VISIT+5*
APCDALVR("APCDTCDT"	VRAD+16*
APCDALVR("APCDTCLN"	CLINIC+15, CLINIC+22
APCDALVR("APCDTDC"	VRAD+29*
APCDALVR("APCDTEPR"	VRAD+12*
APCDALVR("APCDTIMP"	VRAD+35, VRAD+38
APCDALVR("APCDTPRV"	VISIT+60*
APCDALVR("APCDTRAD"	VRAD+8*
APCDALVR("APCDTYPE"	VISIT+22*
APCDALVR("APCDVSIT"	VISIT+68, DISPLAY1+1, DISPLAY1+2, DISPLAY1+3, DISPLAY1+4, DISPLAY3+2
APCDALVR("AUPNTALK"	VISIT+63*
>> APCDVDLT	DELETE+9*, DELETE+11, DELETE+12
AUPNVSIT	CDIE+12, CDIE+13, CDIE+14, CDIE+15!
BRATEST	VISIT+2*, VISIT+66, VRAD+43, VRAD+49, EXIT+1!
BRAZZ	VISIT+15*, VISIT+17, VISIT+18!
CA	VISIT+34~, VISIT+35*, VISIT+36
CN	CLN+1!
DA	DELETE+5, DELETE+7, DELETE+8, DELETE+9, UPDTIMP+33~, CDIE+2, CDIE+15!
DAT	VISIT+34~*, VISIT+35, VISIT+36
DC	UPDTIMP+39*, CDIE+2, CLN+1!
>> DIC	CREATE+8*
>> DIC(0	CREATE+8*
DIE	UPDTIMP+33~, CDIE+2*, CDIE+15!
>> DIERR	STORE+7
>> DIK	DELETE+10*
>> DLAYGO	VRAD+5*
DR	UPDTIMP+33~, CDIE+2*, CDIE+15!
DUZ(2	CREATE+6, CREATE+12, CREATE+13, CREATE+15, VISIT+12, VISIT+22
I	CREATE+2~, VRAD+37, VRAD+38, EXIT+1!, UPDTIMP+23, UPDTIMP+37, CDIE+2, CLN+1!, SETIMP+1, SETIMP+2* , SETIMP+3, SETIMP+5, SETIMP+6, SETIMP+7, SETIMP+8*, SETIMP+9
>> M	DISPLAY3+7*, DISPLAY3+8
N	CREATE+2~, EXIT+1!, DISPLAY3+2, DISPLAY3+3, DISPLAY3+4, DISPLAY3+7, DISPLAY3+8, DISPLAY3+9, SETIMP+1, SETIMP+2 , SETIMP+3
>> ORDSTS	UPDTIMP+23
PCCVRAD	UPDTIMP+17*, UPDTIMP+18, UPDTIMP+32, CDIE+2, CDIE+3, CDIE+5, CDIE+13, CLN+1!
RACLINIC	CLINIC+5~, CLINIC+7, CLINIC+11, CLINIC+15, CLINIC+21*, CLINIC+22
>> RACN	UPDTIMP+6*, UPDTIMP+13
>> RACNE	UPDTIMP+6
>> RACNI	CREATE+17, CREATE+19, CREATE+22, VISIT+8, VISIT+30, VISIT+50, VRAD+2, VRAD+8, VRAD+11, VRAD+28 , VRAD+29, CLINIC+7, STORE+5, DELETE+3, DELETE+4, DELETE+5, DELETE+11, DELETE+14, DISPLAY3+10
RACNIZ	Q+1!
>> RACNUM	UPDTIMP+8, UPDTIMP+13
RADA	Q+1!
RADFN	CREATE+17, CREATE+19, CREATE+22, VISIT+5, VISIT+8, VISIT+15, VISIT+30, VISIT+35, VISIT+36, VISIT+50 , VRAD+2, VRAD+8, VRAD+11, VRAD+16, VRAD+28, VRAD+29, CLINIC+7, STORE+5, DELETE+3, DELETE+4 , DELETE+5, DELETE+11, DELETE+14, DISPLAY3+10, UPDTIMP~, UPDTIMP+13, UPDTIMP+17, UPDTIMP+36, UPDTIMP+38, UPDTIMP+39
RADFNZ	Q+1!
>> RADTE	CREATE+17, DELETE+3
RADTI	CREATE+17, CREATE+19, CREATE+22, VISIT+8, VISIT+15, VISIT+30, VISIT+34, VISIT+50, VRAD+2, VRAD+8 , VRAD+11, VRAD+16, VRAD+28, VRAD+29, CLINIC+7, STORE+5, DELETE+3, DELETE+4, DELETE+5, DELETE+11 , DELETE+14, DISPLAY3+10, UPDTIMP~, UPDTIMP+13, UPDTIMP+17, UPDTIMP+36, UPDTIMP+38, UPDTIMP+39
RADTIZ	Q+1!
RAFDA	STORE+1~
RAFDA(	STORE+5*, STORE+9
RAFLD	STORE~, STORE+5
RAFN	CLN+1!
RAOK	STORE+1~, STORE+2, STORE+3, STORE+4, STORE+7, STORE+10*, STORE+11
RARPT	VRAD+36, UPDTIMP+36~*, SETIMP+1, SETIMP+2
RATI	CLN+1!
RAVALUE	STORE~, STORE+3, STORE+5
>> RAXM	UPDTIMP+8, UPDTIMP+13, UPDTIMP+17, UPDTIMP+36, UPDTIMP+38, UPDTIMP+39
U	CREATE+4, CREATE+13, CREATE+15, CREATE+22, VISIT+8, VISIT+15, VISIT+22, VISIT+30, VISIT+50, VISIT+55 , VISIT+58, VISIT+59, VRAD+8, VRAD+11, VRAD+16, VRAD+28, VRAD+29, CLINIC+7, CLINIC+11, DELETE+5 , DELETE+9, DELETE+11, DELETE+12, DELETE+14, UPDTIMP+13, UPDTIMP+17, UPDTIMP+36, UPDTIMP+38, UPDTIMP+39, CDIE+13
X	CREATE+2~, CREATE+8, VISIT+30, VISIT+33, VISIT+36, VISIT+38!, VISIT+50, VISIT+57, VISIT+58, VISIT+59 , VISIT+60!, VRAD+11*, VRAD+12, EXIT+1!
XM	CLN+1!
Y	CREATE+9, CREATE+12, CREATE+13, CREATE+22, CREATE+23, VISIT+56~, VISIT+57, VISIT+58, VISIT+59

Customize PDF page

Package: IHS Mods To Radiology Nuclear Medicine

Routine: BRAPCC

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: