Routine: RASYNCHLU

Information

RASYNCHLU ;HISC/GJC-Case Number Lookup Synch Logic ; Mar 24, 2023@13:19:45

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)	;are there other non-canceled exams tied

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"Patient information is missing, exiting the option." Line Location: EN+4
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+11
^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+10
^RADPT("AO"	OTHERS+8, OTHERS+9
^RAMIS(71 - [#71]	SAVE+7, SETUP+3
^RAO(75.1 - [#75.1]	SAVE+8, SETUP+5
^TMP($J	EN+8, EN+10, SAVE+27*

Label References

Name	Line Occurrences
$$OTHERS	SAVE+20
DATA	EN+14
HD	DATA+2
SAVE	SEL2+8
SEL	EN+8
SEL2	SEL+4
SETUP	EN+14
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+7~, OTHERS+9*, OTHERS+10
RA1	OTHERS+7~, OTHERS+8, OTHERS+9, OTHERS+10
RA72	OTHERS+7~, OTHERS+11*
RA72(0	OTHERS+11*, OTHERS+12
RAA	OTHERS+7~
>> RAACC	SAVE+23, SAVE+24, SAVE+27, DATA+5
RABS5	EN+5~, HD+1*, HD+2
RAC	OTHERS+7~
RACEXST	EN+5~, DATA+4*, DATA+5
>> RACN	SEL2+7, SAVE+5, SAVE+24, SAVE+27
>> RACNI	SEL2+5, SEL2+6, SEL2+7, SAVE+27, SETUP+2
>> RACNT	EN+7, SEL+2, SAVE+26*, SAVE+27
RACPRS	EN+5~
RADATE	EN+5~, SAVE+26*
RADFN	EN+4, SEL+1, SEL+3, SEL+4, SEL2+6, SEL2+7, SAVE+20, SAVE+27, SETUP+1, SETUP+2 , OTHERS~, OTHERS+8, OTHERS+9, OTHERS+10
RADFN(0	SEL+1*
RADIV	EN+5~, SEL2+1, SEL2+2, SEL2+3*
>> RADTE	SEL+4*, SAVE+6, SAVE+24, SAVE+26, SAVE+27, SETUP+4
>> RADTI	SEL+2, SEL+3, SEL+4, SEL2+6, SEL2+7, SAVE+27, SETUP+1, SETUP+2
RADTPRT	EN+5~, SAVE+26*
RAEXDT	EN+5~, SAVE+6, DATA+5, SETUP+4
RAEXST	EN+5~, SAVE+1*
RAEXST(0	SAVE+1*, SAVE+2, SAVE+4, SAVE+20
RAEXST(1	SAVE+2*
RAHDFLG	EN+5~, EN+7, DATA+2, HD+1
RAHDR	EN+5~, EN+7*, HD+2
RAI	EN+5~, EN+10, EN+11, EN+12, DATA+5, DATA+10, DATA+13, USRSEL+4, USRSEL+7
RAII	EN+5~, EN+13*
RAIMAGE	EN+5~, SEL2+1, SEL2+4, SEL2+5*
RAOIFN	EN+6~, SAVE+8, SAVE+12, SAVE+20, SAVE+27, SETUP+5, SETUP+6, OTHERS~, OTHERS+8, OTHERS+9
RAOIFN(0	SAVE+8, SAVE+13, SETUP+5, SETUP+7
RAORIFN	EN+6~, SAVE+13, SAVE+14, DATA+5, SETUP+7, SETUP+8
RAORSTS	EN+6~, SAVE+14, SAVE+15, SETUP+8
RAPRC	EN+6~, SAVE+7, DATA+5, SETUP+3
RAPRC(0	SAVE+7, SETUP+3
RAPTNAME	EN+6~, SEL+1*, HD+1, HD+2
RAQ	OTHERS+7~, OTHERS+10*, OTHERS+11
>> RAQS	EN+11, SEL+2, SEL+3, SEL2+6, DATA+9, USRSEL+9
RAR	OTHERS+7~, OTHERS+8, OTHERS+9, OTHERS+12, OTHERS+15
RAREQST	EN+6~, SAVE+12, SETUP+6
RAROOT	EN+6~, EN+10*, EN+11, EN+12, DATA+10, DATA+13
RASSN	EN+6~, SEL+1*, HD+1
RAX	EN+6~, EN+12*, EN+13
RAXIT	EN+6~, EN+7, EN+11, SEL+3, SEL2+6, DATA+9, USRSEL+8
RAY2	EN+6~, SEL+4, SEL2+1, SETUP+1
RAY3	EN+6~, SEL2+7, SAVE+1, SAVE+5, SAVE+7, SAVE+8, SAVE+23, 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+13, SAVE+20, SAVE+23, SAVE+27, DATA+4, SETUP+3, SETUP+5, SETUP+7, OTHERS+11 , OTHERS+12
X	USRSEL+3~
Y	SAVE+26, HD+2, USRSEL+3~, USRSEL+9

Customize PDF page

Package: Radiology Nuclear Medicine