Routine: RASYNCHLU

Information

RASYNCHLU ;HISC/GJC-Case Number Lookup Synch Logic ; Dec 05, 2024@14:35:25

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	DT^DIO2 $$GET1^DIQ ^DIR
Kernel	2	HOME^%ZIS $$CJ^XLFSTR
Radiology Nuclear Medicine	1	($$SSN,D)^RAUTL

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
Radiology Nuclear Medicine	1	RASYNCH

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point for 'Synch Canceled/Completed Exams with CPRS & RIS Orders'
SEL	; selection criteria part one
SEL2	; selection criteria part two
SAVE	; Screen only if entered through Rad/Nuc Med must be canceled/completed exams (determined by order #)
DATA	;display data here
HD	;print header once
USRSEL	;prompt user for selection.
SETUP	;setup basic exam and order data.
OTHERS(RAOIFN,RADFN)	;For the cancelled exam check only: Are there other

External References

Name	Field # of Occurrence
HOME^%ZIS	SEL+2
DT^DIO2	HD+2
$$GET1^DIQ	SAVE+15, SAVE+17, SETUP+6, SETUP+8
^DIR	USRSEL+7
$$SSN^RAUTL	SEL+1
D^RAUTL	SAVE+37
$$CJ^XLFSTR	HD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"Patient information is missing, exiting the option." Line Location: EN+6
Function Call: WRITE	Prompt: !,RAI,?4,RAACC,?21,$E(RAPRC,1,17),?41,RAEXDT,?52,$E(RACEXST,1,9),?62,RAORIFN Line Location: DATA+5
Function Call: WRITE	Prompt: @IOF,?25,RAHDR,!!,"Patient's Name: ",$E(RAPTNAME,1,20),RABS5,?59,"Run Date: " Line Location: HD+2
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("========== Synch Exams with CPRS/Radiology Orders ==========",IOM) Line Location: HD+3
Function Call: WRITE	Prompt: !!?4,"Accession #",?21,"Procedure",?41,"Exam DT",?52,"Exam ST",?62,"CPRS Order #" Line Location: HD+4
Function Call: WRITE	Prompt: !?4,"-----------",?21,"---------",?41,"-------",?52,"-------",?62,"------------" Line Location: HD+5
Routine Call	%ZIS Line Location: SEL+2
Routine Call	DIR Line Location: USRSEL+7

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^RAO(75.1 - [#75.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SEL2+2
^DPT - [#2]	SEL+1
^RA(72 - [#72]	SAVE+1, DATA+4, OTHERS+12
^RA(79 - [#79]	SEL2+2
^RA(79.2 - [#79.2]	SEL2+4
^RADPT - [#70]	SEL+3, SEL+4, SEL2+6, SEL2+7, SETUP+1, SETUP+2, OTHERS+11
^RADPT("AO"	OTHERS+9, OTHERS+10
^RAMIS(71 - [#71]	SAVE+7, SETUP+3
^RAO(75.1 - [#75.1]	SAVE+8, SETUP+5
^TMP($J	EN+10, EN+12, SAVE+38*

Label References

Name	Line Occurrences
$$OTHERS	SAVE+30
DATA	EN+16
HD	DATA+2
SAVE	SEL2+8
SEL	EN+10
SEL2	SEL+4
SETUP	EN+16
USRSEL	DATA+9, DATA+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	USRSEL+3~
DIC	USRSEL+3~
DIE	USRSEL+3~
DIR	USRSEL+3~
DIR("?"	USRSEL+5, USRSEL+6, USRSEL+7*
DIR("A"	USRSEL+4*
DIR(0	USRSEL+4*
DIROUT	USRSEL+3~, USRSEL+8
DIRUT	USRSEL+3~
DR	USRSEL+3~
DT	HD+2
DTOUT	USRSEL+3~, USRSEL+8
DUOUT	USRSEL+3~, USRSEL+8
IOF	DATA+10, HD+2
IOM	HD+3
IOSL	DATA+8
RA0	OTHERS+8~, OTHERS+10*, OTHERS+11
RA1	OTHERS+8~, OTHERS+9, OTHERS+10, OTHERS+11
RA72	OTHERS+8~, OTHERS+12*
RA72(0	OTHERS+12*, OTHERS+13
RAA	OTHERS+8~
>> RAACC	SAVE+34, SAVE+35, SAVE+38, DATA+5
RABS5	EN+7~, HD+1*, HD+2
RAC	OTHERS+8~
RACEXST	EN+7~, DATA+4*, DATA+5
>> RACN	SEL2+7, SAVE+5, SAVE+35, SAVE+38
>> RACNI	SEL2+5, SEL2+6, SEL2+7, SAVE+38, SETUP+2
>> RACNT	EN+9, SEL+2, SAVE+37*, SAVE+38
RACPRS	EN+7~
RADATE	EN+7~, SAVE+37*
RADFN	EN+6, SEL+1, SEL+3, SEL+4, SEL2+6, SEL2+7, SAVE+30, SAVE+38, SETUP+1, SETUP+2 , OTHERS~, OTHERS+9, OTHERS+10, OTHERS+11
RADFN(0	SEL+1*
RADIV	EN+7~, SEL2+1, SEL2+2, SEL2+3*
>> RADTE	SEL+4*, SAVE+6, SAVE+35, SAVE+37, SAVE+38, SETUP+4
>> RADTI	SEL+2, SEL+3, SEL+4, SEL2+6, SEL2+7, SAVE+38, SETUP+1, SETUP+2
RADTPRT	EN+7~, SAVE+37*
RAEXDT	EN+7~, SAVE+6, DATA+5, SETUP+4
RAEXST	EN+7~, SAVE+1*
RAEXST(0	SAVE+1*, SAVE+2, SAVE+4, SAVE+21, SAVE+24, SAVE+30
RAEXST(1	SAVE+2*
RAHDFLG	EN+7~, EN+9, DATA+2, HD+1
RAHDR	EN+7~, EN+9*, HD+2
RAI	EN+7~, EN+12, EN+13, EN+14, DATA+5, DATA+10, DATA+13, USRSEL+4, USRSEL+7
RAII	EN+7~, EN+15*
RAIMAGE	EN+7~, SEL2+1, SEL2+4, SEL2+5*
RAOIFN	EN+8~, SAVE+8, SAVE+15, SAVE+30, SAVE+38, SETUP+5, SETUP+6, OTHERS~, OTHERS+9, OTHERS+10
RAOIFN(0	SAVE+8, SAVE+16, SETUP+5, SETUP+7
RAORIFN	EN+8~, SAVE+16, SAVE+17, DATA+5, SETUP+7, SETUP+8
RAORSTS	EN+8~, SAVE+17, SAVE+21, SAVE+24, SETUP+8
RAPRC	EN+8~, SAVE+7, DATA+5, SETUP+3
RAPRC(0	SAVE+7, SETUP+3
RAPTNAME	EN+8~, SEL+1*, HD+1, HD+2
RAQ	OTHERS+8~, OTHERS+11*, OTHERS+12
>> RAQS	EN+13, SEL+2, SEL+3, SEL2+6, DATA+9, USRSEL+9
RAR	OTHERS+8~, OTHERS+9, OTHERS+10, OTHERS+13, OTHERS+16
RAREQST	EN+8~, SAVE+15, SETUP+6
RAROOT	EN+8~, EN+12*, EN+13, EN+14, DATA+10, DATA+13
RASSN	EN+8~, SEL+1*, HD+1
RAX	EN+8~, EN+14*, EN+15
RAXIT	EN+8~, EN+9, EN+13, SEL+3, SEL2+6, DATA+9, USRSEL+8
RAY2	EN+8~, SEL+4, SEL2+1, SETUP+1
RAY3	EN+8~, SEL2+7, SAVE+1, SAVE+5, SAVE+7, SAVE+8, SAVE+34, DATA+4, SETUP+2, SETUP+3 , SETUP+5
U	SEL+4, SEL2+1, SEL2+2, SEL2+4, SEL2+7, SAVE+1, SAVE+2, SAVE+4, SAVE+5, SAVE+7 , SAVE+8, SAVE+16, SAVE+21, SAVE+24, SAVE+30, SAVE+34, SAVE+38, DATA+4, SETUP+3, SETUP+5 , SETUP+7, OTHERS+12, OTHERS+13
X	USRSEL+3~
Y	SAVE+37, HD+2, USRSEL+3~, USRSEL+9

Customize PDF page

Package: Radiology Nuclear Medicine