Routine: ISIJNOTE

Package	Total	Call Graph
VA FileMan	5	(NOW,YX)^%DTC FIND^DIC DT^DICRW (FILE,UPDATE)^DIE GETS^DIQ
Imaging	2	GETEXAM2^MAGJUTL1 MAGJOBNC^MAGJUTL3
Kernel	1	$$EC^%ZOSV
Radiology Nuclear Medicine	1	EN2^RAUTL20

Package	Total	Caller Graph
Vendor - ISI	2	ISIJ NOTES ^ISI(23453
Imaging	1	MAGJRPT

Entry Points

Name	Comments	DBIA/ICR reference
ERR	;
NOTE(MAGGRY,PARAMS,DATA)	; ; * this ep also called directly as subroutine by magjrpt for req/rpt display ; PARAMS: TXID ^ RADFN ^ RADTI ^ RACNI ^ RARPT ^ FLAG ; TXID: Req'd--action to take ; FLAG: Optional--use to flag RAD-Dept-only note ; DATA--(required for create note) input array containing Notes text ; Pattern for DATA input & reply is: ; NOTES Start for NOTES ; (1:N lines of text follow) ; NOTES_END end for note
NOTEZ	;
STATUS(REPLY,RADFN,RADTI,RACNI)	; Return status information for inserting at top of Requisition ; EP called by MAGJRPT
EXAMID(RADFN,RADTI,RACNI)	; calculate examid; printsets share a single examid
EXAMIEN(EXAMID)	; Return ExamIEN for input examid
NOTEUPD(RET,EXAMIEN,DATA,RADFN,RADTI,RACNI)	; Update Note
CHKTXT(NOTETXT,DATA)	; check for any notes in input data ; NOTETXT: return extracted text, if any
ADDNOTES(RET,RETNAM,EXAMIEN,NOTIEN,NOTETXT)	; format notes text data for fileman DBS calls ; re RETNAM: the fileman update call for a WP field needs the ; name of the input array at the node defined below
NEWEXAM(EXAMID,RADFN,RADTI,RACNI)	; Create new Exam entry in Notes file; only called if not yet defined
ACNINDX(EXAMIEN,RADFN,RADTI,RACNI,KILL)	; update C index by accession number ; --> if a printset, index for all pset members ; * * This also callable by fileman Index creation * * ; KILL--only set by fileman indexer code if deleting entry
DAYCASE(RADFN,RADTI,RACNI)	; return daycase
NEWNOTE(EXAMIEN,TIMESTMP,DUZ,FLAG)	; Create new Note entry in file; only called if not yet defined
NOTEGET(REPLY,RET,EXAMIEN,STATUS,RADFN,RADTI,RACNI)	; return Notes details ; STATUS-optional; if true, return status only, no details ; package mult notes into one array, formatted per each note... ; filter for flagged RAD-Only notes--only rad personnel may view
RADATA(RADFN,RADTI,RACNI)	; get rad data
STRIP(X)	; remove up-carets & leading/trailing spaces
END

Name	Field # of Occurrence
NOW^%DTC	NOTE+20
YX^%DTC	NOTEGET+33
$$EC^%ZOSV	ERR+1
FIND^DIC	EXAMIEN+3
DT^DICRW	NOTE+20
FILE^DIE	NOTEUPD+13
UPDATE^DIE	NEWEXAM+3, NEWNOTE+5
GETS^DIQ	NOTEGET+18, NOTEGET+23
GETEXAM2^MAGJUTL1	RADATA+2
MAGJOBNC^MAGJUTL3	NOTE+14
EN2^RAUTL20	EXAMID+3, ACNINDX+11

RPC Name	Call Tags
ISIJ NOTES	NOTE

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR+2
^ISI(	NOTE+16, STATUS+4, ACNINDX+6
^RADPT - [#70]	NOTE+21, STATUS+6, EXAMID+2, DAYCASE+3
^TMP($J	NOTE+19, NOTEGET+6!, RADATA+3, RADATA+4!
^VA(200 - [#200]	NOTEGET+21

Name	Line Occurrences
$$DAYCASE	ACNINDX+7
$$EXAMID	NOTE+23, STATUS+7
$$EXAMIEN	NOTE+24, STATUS+8
$$NEWEXAM	NOTEUPD+6
$$NEWNOTE	NOTEUPD+9
$$RADATA	NOTEGET+8
$$STRIP	CHKTXT+7
@(	ERR+2
ACNINDX	NEWEXAM+4
ADDNOTES	NOTEUPD+11
CHKTXT	NOTEUPD+3
NOTEGET	NOTE+27, STATUS+9
NOTEUPD	NOTE+30
NOTEZ	NOTE+22
STATUS	NOTE+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOTE+20
>> %H	NOTEGET+33*
COMMA	NOTE+12~, NOTE+17, STATUS+2~, STATUS+5, ADDNOTES+4, NOTEGET+17
DASH	NOTE+12~, NOTE+17, STATUS+2~, STATUS+5, EXAMID+1~*, EXAMID+5
DATA	NOTE~, NOTE+30, NOTEUPD~, NOTEUPD+3, CHKTXT~
DATA(	CHKTXT+3
DAYCASE	NEWEXAM+1~, ACNINDX+5~, ACNINDX+7, ACNINDX+8, ACNINDX+9, ACNINDX+10, ACNINDX+12, ACNINDX+13, ACNINDX+14, ACNINDX+15 , DAYCASE+1~, DAYCASE+2, DAYCASE+4, DAYCASE+5, NOTEGET+4~, NOTEGET+9*, NOTEGET+11
DC1	NEWEXAM+1~, ACNINDX+5~, ACNINDX+12*, ACNINDX+13
DIQUIET	NOTE+20~*
DUZ	NOTEUPD+9, NEWNOTE~, NEWNOTE+3, NOTEGET+21
ERR	ERR+1~*
EXAMID	NOTE+12~, NOTE+23, NOTE+24, STATUS+2~, STATUS+7, STATUS+8, EXAMIEN~, EXAMIEN+2, EXAMIEN+3, NOTEUPD+6 , NEWEXAM~, NEWEXAM+2
EXAMIEN	NOTE+13~, NOTE+24, NOTE+26, NOTE+27, NOTE+30, STATUS+2~, STATUS+3, STATUS+8, STATUS+9, EXAMIEN+1~ , EXAMIEN+2, EXAMIEN+4, EXAMIEN+5, NOTEUPD~, NOTEUPD+5, NOTEUPD+6, NOTEUPD+7, NOTEUPD+9, NOTEUPD+11, ADDNOTES~ , ADDNOTES+4, ACNINDX~, ACNINDX+4, ACNINDX+9, ACNINDX+10, ACNINDX+14, ACNINDX+15, NEWNOTE~, NEWNOTE+2, NEWNOTE+3 , NEWNOTE+4, NOTEGET~, NOTEGET+13, NOTEGET+16, NOTEGET+17
FILEREF	NOTE+12~, NOTE+16, STATUS+2~, STATUS+4, ACNINDX+5~, ACNINDX+6*, ACNINDX+9, ACNINDX+10, ACNINDX+14, ACNINDX+15 , NOTEGET+16
FLAG	NOTE+13~, NOTE+18, NOTEUPD+9, NEWNOTE~, NEWNOTE+4, NOTEGET+4~, NOTEGET+19, NOTEGET+20, NOTEGET+27
I	ACNINDX+5~, ACNINDX+12, ACNINDX+13, NOTEGET+37, STRIP+1~, STRIP+3, STRIP+4, STRIP+5*, STRIP+6
IENS	ADDNOTES+3~, ADDNOTES+4, ADDNOTES+6, ADDNOTES+7, NOTEGET+4~, NOTEGET+17, NOTEGET+18, NOTEGET+19, NOTEGET+23, NOTEGET+24 , NOTEGET+25, NOTEGET+28, NOTEGET+30
IP	CHKTXT+2~, CHKTXT+3, ADDNOTES+3~, ADDNOTES+5, ADDNOTES+6, ADDNOTES+7
IRET	NOTEGET+4~, NOTEGET+10, NOTEGET+11, NOTEGET+14, NOTEGET+26, NOTEGET+27, NOTEGET+30, NOTEGET+31, NOTEGET+33, NOTEGET+34* , NOTEGET+36, NOTEGET+39
ISS	NOTEGET+4~, NOTEGET+29, NOTEGET+30
KILL	ACNINDX~, ACNINDX+9, ACNINDX+14
MAGGRY	ERR+1, NOTE~, NOTE+19*, NOTE+28, NOTEZ+1
>> MAGJOB("USER"	NOTE+14, NOTEGET+21
MAGLST	NOTE+13~, NOTE+19*
NEWEXAM	NOTEUPD+1~, NOTEUPD+2, NOTEUPD+7, NOTEUPD+17
NOGO	NOTEGET+5~, NOTEGET+20, NOTEGET+21
NOTE	CHKTXT+2~, CHKTXT+4, CHKTXT+5, CHKTXT+6
NOTECT	NOTEGET+5~, NOTEGET+7, NOTEGET+22, NOTEGET+32
NOTEFILE	NOTE+12~, NOTE+16, STATUS+2~, STATUS+4, EXAMIEN+3, NEWEXAM+2, ACNINDX+5~, ACNINDX+6*
NOTEMULT	NOTE+12~, NOTE+16, STATUS+2~, STATUS+4, ADDNOTES+6, ADDNOTES+7, NEWNOTE+2, NEWNOTE+3, NEWNOTE+4, NOTEGET+18 , NOTEGET+19, NOTEGET+23, NOTEGET+24, NOTEGET+25, NOTEGET+28, NOTEGET+30
NOTETXT	NOTEUPD+1~, NOTEUPD+2, NOTEUPD+3, NOTEUPD+4, NOTEUPD+11, CHKTXT~, CHKTXT+8, ADDNOTES~, ADDNOTES+5
NOTETXT(	CHKTXT+8*, ADDNOTES+5
NOTIEN	NOTEUPD+1~, NOTEUPD+9, NOTEUPD+10, NOTEUPD+11, ADDNOTES~, ADDNOTES+4, NOTEGET+5~, NOTEGET+15, NOTEGET+16*, NOTEGET+17
NOTTIME	NOTEGET+5~, NOTEGET+25*, NOTEGET+26
NOTWHO	NOTEGET+5~, NOTEGET+24*, NOTEGET+26
PARAMS	NOTE~, NOTE+18, NOTE+22, NOTE+33, NOTEUPD+4, NOTEUPD+8, NOTEUPD+10, NOTEUPD+15
PROC	NOTEGET+5~, NOTEGET+9*, NOTEGET+11
PSET	EXAMID+1~, EXAMID+3, NEWEXAM+1~, ACNINDX+5~, ACNINDX+11
PSET(	ACNINDX+13
PSET(""	EXAMID+4
RACN	DAYCASE+1~, DAYCASE+3*, DAYCASE+4
RACNI	NOTE+12~, NOTE+18, NOTE+21, NOTE+23, NOTE+27, NOTE+30, NOTE+32, STATUS~, STATUS+6, STATUS+7 , STATUS+9, EXAMID~, EXAMID+2, EXAMID+4, EXAMID+5, NOTEUPD~, NOTEUPD+6, NEWEXAM~, NEWEXAM+4, ACNINDX~ , ACNINDX+4, ACNINDX+7, DAYCASE~, DAYCASE+3, NOTEGET~, NOTEGET+8, RADATA~, RADATA+2
RADATA	NEWEXAM+1~, NOTEGET+5~, NOTEGET+8, NOTEGET+9, RADATA+1~, RADATA+3, RADATA+5
RADFN	NOTE+12~, NOTE+18*, NOTE+21, NOTE+23, NOTE+27, NOTE+30, NOTE+32, STATUS~, STATUS+6, STATUS+7 , STATUS+9, EXAMID~, EXAMID+2, EXAMID+5, NOTEUPD~, NOTEUPD+6, NEWEXAM~, NEWEXAM+4, ACNINDX~, ACNINDX+4 , ACNINDX+7, DAYCASE~, DAYCASE+3, NOTEGET~, NOTEGET+8, RADATA~, RADATA+2
RADTE	DAYCASE+1~, DAYCASE+2*, DAYCASE+4
RADTI	NOTE+12~, NOTE+18*, NOTE+21, NOTE+23, NOTE+27, NOTE+30, NOTE+32, STATUS~, STATUS+6, STATUS+7 , STATUS+9, EXAMID~, EXAMID+2, EXAMID+5, NOTEUPD~, NOTEUPD+6, NEWEXAM~, NEWEXAM+4, ACNINDX~, ACNINDX+4 , ACNINDX+7, DAYCASE~, DAYCASE+2, DAYCASE+3, NOTEGET~, NOTEGET+8, RADATA~, RADATA+2
RAPRTSET	EXAMID+1~, EXAMID+4, NEWEXAM+1~, ACNINDX+5~, ACNINDX+12
REPLY	NOTE+13~, NOTE+15, NOTE+22, NOTE+26, NOTE+27, NOTE+28, NOTE+31, NOTE+32, NOTE+33, NOTEZ+1 , STATUS~, STATUS+3, STATUS+9, NOTEGET~, NOTEGET+32, NOTEGET+35, NOTEGET+38
REPLYTXT	NOTEUPD+1~, NOTEUPD+17*, NOTEUPD+18
RET	NOTE+13~, NOTE+30, NOTE+31, STATUS+2~, STATUS+9, NOTEUPD~, NOTEUPD+2, NOTEUPD+4, NOTEUPD+8, NOTEUPD+10 , NOTEUPD+15, NOTEUPD+16, NOTEUPD+18, ADDNOTES~, NOTEGET~, NOTEGET+11, NOTEGET+14, NOTEGET+26, NOTEGET+27, NOTEGET+30 , NOTEGET+31, NOTEGET+33, NOTEGET+34, NOTEGET+35, NOTEGET+37, NOTEGET+38, NOTEGET+39
RET(	ADDNOTES+6, ADDNOTES+7
RETNAM	ADDNOTES~, ADDNOTES+6
RSL	NEWEXAM+1~, NEWNOTE+1~
RSL("DIERR"	NOTEUPD+14
RSL(1	NEWEXAM+4, NEWEXAM+5, NEWNOTE+6
STATUS	NOTEGET~, NOTEGET+7*, NOTEGET+11, NOTEGET+14, NOTEGET+22, NOTEGET+32, NOTEGET+34, NOTEGET+39
T	STRIP+1~
TIMESTMP	NOTE+13~, NOTE+20*, NOTEUPD+9, NEWNOTE~, NEWNOTE+2
TXID	NOTE+13~, NOTE+18*, NOTE+25, NOTE+29, NOTE+32
U	NOTE+18, NOTE+28, NOTE+31, NOTE+33, ACNINDX+13, DAYCASE+3, NOTEGET+9, STRIP+2
USERIEN	NOTE+13~
WHO	NOTEGET+5~
X	NOTEUPD+14, NOTEUPD+15, CHKTXT+3, CHKTXT+4, CHKTXT+6, CHKTXT+7, CHKTXT+8, ADDNOTES+5, ADDNOTES+7, RADATA+2 , STRIP~, STRIP+2, STRIP+3, STRIP+4, STRIP+5, STRIP+6*, STRIP+7
>> Y	NOTEGET+33
ZJ	EXAMIEN+1~, NOTEUPD+1~, NOTEUPD+11, NOTEUPD+12, NEWEXAM+1~, NEWNOTE+1~, NOTEGET+5~
ZJ(	NEWEXAM+2, NEWNOTE+2, NEWNOTE+3, NEWNOTE+4, NOTEGET+19, NOTEGET+24, NOTEGET+25, NOTEGET+28, NOTEGET+30
ZJ("DILIST"	EXAMIEN+4
ZJMSG	NEWEXAM+1~, NEWNOTE+1~

Customize PDF page

Package: Vendor - ISI

Routine: ISIJNOTE

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend: