Routine: QANCDNT

Information

QANCDNT ;HISC/GJC-Initial sighting of an incident ; 10/29/03 10:39am

Package	Total	Call Graph
VA FileMan	7	DD^%DT ^%DTC MIX^DIC1 (FILE,YN)^DICN ^DIE (,IX1)^DIK ^DIR
Incident Reporting	5	^QANBRIF DEL^QANCDNT (DIE,DIKAUDIT)^QANEDIT ADMDT^QANUTL1 BULL^QANUTL3
Quality Assurance Integration	2	^QAQAUDIT ENSET^QAQAXREF

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

Package	Total	Caller Graph
Incident Reporting	7	QAN INCIDENT REPORT QANCDNT QANEDIT QANQUCK QANUTL QANUTL1 QANVAL

Entry Points

Name	Comments	DBIA/ICR reference
NEWREC	;create new record number
DIV	;check to see if station is multi-divisional for Incid Reporting. If
LIST
DIE
SC1	;
DEL	;Delete incident.
PAT	;Patient data.
PRIOR	;
PRIOR1	;
DISP	;display to user what has been entered and ask if it is okay
GOEDIT	;
QANPID(Y)	;Function to set up Patient ID.

External References

Name	Field # of Occurrence
DD^%DT	DISP+5
^%DTC	PAT+18
MIX^DIC1	PAT+2
FILE^DICN	NEWREC+22, PAT+22
YN^DICN	PAT+6
^DIE	LIST+17, DIE+1, SC1+1, SC1+3
^DIK	DEL+1, PAT+12, GOEDIT+7
IX1^DIK	NEWREC+30, PAT+29
^DIR	LIST+7, LIST+10, DISP+25
^QANBRIF	GOEDIT+13
DEL^QANCDNT	PAT+3, PAT+8
DIE^QANEDIT	GOEDIT+4
DIKAUDIT^QANEDIT	GOEDIT+11
ADMDT^QANUTL1	PAT+21
BULL^QANUTL3	GOEDIT+20
^QAQAUDIT	SC1+2, PAT+32
ENSET^QAQAXREF	DIE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"CASE NUMBER VIOLATION, CONTACT YOUR QA COORDINATOR!!" Line Location: NEWREC+17
Function Call: WRITE	Prompt: !!,"Another user is editing this incident." Line Location: NEWREC+24
Function Call: WRITE	Prompt: !!,"DIVISION: " Line Location: DIV+4
Function Call: WRITE	Prompt: !?5,"There are no divisions entered in your QA Site Parameter File (#704).",!?5,"Ask your IRM support person to edit this file. If your site" Line Location: LIST+1
Function Call: WRITE	Prompt: !?5,"is entered in file #740 as a MULTI-DIVISIONAL INCID REP FACILITY you need",!?5,"entries in the IR HOSPITAL DIVISION multiple." Line Location: LIST+2
Function Call: WRITE	Prompt: !!?5,"You must enter a Division.",! Line Location: LIST+9
Function Call: WRITE	Prompt: !,"Enter the number of your choice." Line Location: LIST+13
Function Call: WRITE	Prompt: !!,$C(7),"Insufficient data entered for an incident, deleting!!" Line Location: DEL+1
Function Call: WRITE	Prompt: !?5,$G(Y(0,0))_" OK?" Line Location: PAT+5
Function Call: WRITE	Prompt: " Confirm that this is the correct patient." Line Location: PAT+7
Function Call: WRITE	Prompt: " ??" Line Location: PAT+10
Function Call: WRITE	Prompt: !!,$C(7),$P(^DPT(+Y,0),U)_" has been previously entered for this incident." Line Location: PAT+13
Function Call: WRITE	Prompt: !!,$C(7),"The date of death for patient: "_$P(^DPT(+Y,0),U)_" precedes the incident date." Line Location: PAT+14
Function Call: WRITE	Prompt: !!,"Another user is editing this patient incident." Line Location: PAT+26
Function Call: WRITE	Prompt: !!,$C(7),"Patient "_$P(^DPT(+Y,0),U)_" has a duplicate incident on record." Line Location: PRIOR1+2
Function Call: WRITE	Prompt: @IOF Line Location: DISP+2
Function Call: WRITE	Prompt: !!!,"Incident Report: "_$P(QAN74240,U) Line Location: DISP+4
Function Call: WRITE	Prompt: ?35,"Date of Incident: "_Y Line Location: DISP+6
Function Call: WRITE	Prompt: !,"Patient: " Line Location: DISP+7
Function Call: WRITE	Prompt: ?10,$P(^DPT($P(^QA(742,QANCC,0),U),0),U),! Line Location: DISP+9
Function Call: WRITE	Prompt: !,"Incident Type: " Line Location: DISP+10
Function Call: WRITE	Prompt: $P(^QA(742.1,$P(QAN74240,U,2),0),U) Line Location: DISP+11
Function Call: WRITE	Prompt: !,"Incident Location: " Line Location: DISP+12
Function Call: WRITE	Prompt: $P(^QA(742.5,$P(QAN74240,U,4),0),U) Line Location: DISP+13
Function Call: WRITE	Prompt: !,"Was the Incident Witnessed?: "_$S($P(QAN74240,U,7)=1:"Yes",$P(QAN74240,U,7)=0:"No",1:"") Line Location: DISP+14
Function Call: WRITE	Prompt: !,"Incident Description: " Line Location: DISP+15
Function Call: WRITE	Prompt: !?3,^QA(742.4,QANIEN,1,QANEE,0) Line Location: DISP+17
Function Call: WRITE	Prompt: !! Line Location: DISP+18
Function Call: WRITE	Prompt: !!,"No patients on this Incident Report - deleting Report." Line Location: GOEDIT+6
Routine Call	DIE Line Location: LIST+17 DIE+1 SC1+1 SC1+3
Routine Call	DIR Line Location: LIST+7 LIST+10 DISP+25

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^QA(742 - [#742]	Classic Fileman Calls
^QA(742.4 - [#742.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	NEWREC+6
^DPT - [#2]	PAT+13, PAT+14, PAT+17, PRIOR1+2, DISP+9, GOEDIT+17
^QA(740 - [#740]	NEWREC+6, DIV+3, LIST+13
^QA(742 - [#742]	PAT+26, PAT+27, PAT+28, PAT+30, PRIOR+3, DISP+8, DISP+9, GOEDIT+5, GOEDIT+15, GOEDIT+16
^QA(742.1 - [#742.1]	DIE+2, DISP+11
^QA(742.4 - [#742.4]	NEWREC+11, NEWREC+12, NEWREC+16, NEWREC+24, NEWREC+29, NEWREC+30, DIE+2, SC1+5, PAT+14, PRIOR+1 , PRIOR+3, DISP+3, DISP+16, DISP+17, GOEDIT+12
^QA(742.5 - [#742.5]	DISP+13
^UTILITY($J	DIE+3!, PAT+13, PAT+16*
^VA(200 - [#200]	NEWREC+7

Label References

Name	Line Occurrences
$$QANPID	PAT+20
DEL	QANCDNT+7, DIE+1, PAT+15, PAT+23
DIE	QANCDNT+8
DISP	SC1+4
DIV	QANCDNT+6
LIST	LIST+13, LIST+17
NEWREC	QANCDNT+5
PAT	DIE+3, PAT+10, PAT+13, PAT+14
PRIOR	PAT+11
PRIOR1	PRIOR+3

Naked Globals

Name	Field # of Occurrence
^(	NEWREC+16
^(0	NEWREC+6
^(99	NEWREC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAT+4, PAT+6*, PAT+8, PAT+9, PAT+10
>> D	PAT+1*
DA	NEWREC+30!, LIST+16, DIE, SC1+1, SC1+3, DEL+1!, PAT+12!, PAT+29!, GOEDIT+7*
DD	NEWREC+21!, NEWREC+23!, PAT+22!
DIC	NEWREC+21!, NEWREC+23!, PAT+1!, PAT+2!, PAT+22!*
DIC("A"	PAT+1*
DIC("W"	PAT+1*
DIC(0	NEWREC+21, PAT+1, PAT+22*
DIE	NEWREC+21, LIST+15, DIE, DIE+1!, SC1+1!, SC1+3*
DIK	NEWREC+30!, DEL+1!, PAT+12!, PAT+29!, GOEDIT+7*!
DINUM	NEWREC+21!, NEWREC+23!, PAT+22!
>> DIR("?"	LIST+5, DISP+21, DISP+23, DISP+24
>> DIR("??"	LIST+6*
>> DIR("A"	LIST+4, DISP+19
>> DIR("B"	DISP+20*
>> DIR(0	LIST+3, DISP+22
DLAYGO	NEWREC+21!, NEWREC+23!, PAT+22!*
DO	NEWREC+21!, NEWREC+23!, PAT+22!
DR	LIST+15, DIE, DIE+1!, SC1+1!, SC1+3
DT	NEWREC+10, DIE+2, PAT+18
DUZ	NEWREC+7
EE	NEWREC+4~
IOF	DISP+2
>> QAN74240	DISP+3*, DISP+4, DISP+5, DISP+11, DISP+13, DISP+14
QAN99	PRIOR+3*, PRIOR+4!
>> QANADMDT	PAT+27
>> QANAGE	PAT+18*
>> QANAME	PAT+16, GOEDIT+18
>> QANBFLG	NEWREC+25*
QANCC	DISP+1~, DISP+8, DISP+9, GOEDIT+14, GOEDIT+15*, GOEDIT+16
QANCHK	NEWREC+16*, NEWREC+19!
QANCNT	NEWREC+4~, DIV+5, LIST, LIST+1, LIST+2, LIST+13, LIST+17
QANCODE	NEWREC+19!
QANCODE(0	NEWREC+13, NEWREC+14, NEWREC+15
QANCODE(1	NEWREC+15*, NEWREC+16, NEWREC+21
>> QANDFN	PAT+25*, PAT+26, PAT+27, PAT+28, PAT+29, PAT+30, PAT+32
>> QANDOB	PAT+17*, PAT+18
QANDT	NEWREC+10*, NEWREC+13, NEWREC+14, NEWREC+19!
QANDUZ	NEWREC+7*, NEWREC+19!, NEWREC+29
QANEE	DISP+1~, DISP+16*, DISP+17
QANF	GOEDIT+20, QANPID+1~, QANPID+4, QANPID+6, QANPID+8, QANPID+10
>> QANFFLG	SC1+4, SC1+5
QANFILE	GOEDIT+11*!
QANFLAG	NEWREC+6, NEWREC+19!, PAT+2, PAT+3, PAT+8, PAT+9, PAT+12, PAT+23, PAT+24, PAT+31 , PRIOR1+3, PRIOR1+4, PRIOR1+5
>> QANHOME	NEWREC+29*, NEWREC+30
>> QANIEN	NEWREC+28*, NEWREC+29, NEWREC+30, LIST+16, DIE, DIE+2, SC1+1, SC1+2, SC1+3, SC1+5 , DEL+1, PAT+12, PAT+14, PAT+27, PRIOR+1, DISP+3, DISP+8, DISP+16, DISP+17, GOEDIT+5 , GOEDIT+7, GOEDIT+12, GOEDIT+15
QANINCR	NEWREC+11, NEWREC+12, NEWREC+13, NEWREC+14, NEWREC+19!
>> QANINPAT	PAT+27
QANL	QANPID+1~, QANPID+2*, QANPID+3, QANPID+6, QANPID+7, QANPID+10
QANLIST	NEWREC+4~, DIV+5*, LIST
QANLOCK	NEWREC+5!, NEWREC+24*
QANM	QANPID+1~, QANPID+5, QANPID+6, QANPID+9, QANPID+10
QANNO	NEWREC+4~, LIST+14*
>> QANODE	GOEDIT+17*, GOEDIT+18, GOEDIT+19
QANOUT	NEWREC+6, NEWREC+19!, DIE+3, PAT+2, PAT+3, PAT+8, PAT+15, GOEDIT+3*
>> QANPID	PAT+20, PAT+27, QANPID+6, QANPID+10*, QANPID+11
>> QANPIEN	PAT+16*, PAT+17, PAT+22
QANPRS	PRIOR+3*, PRIOR+4!
>> QANPSDO(0	PAT+19*
>> QANPTNUM	GOEDIT+16*, GOEDIT+17
QANQFLG	QANCDNT+4~, QANCDNT+7, NEWREC+4~, LIST+11*, LIST+12
>> QANSSN	PAT+16, GOEDIT+19, QANPID+6, QANPID+10
QANST	NEWREC+6, NEWREC+19!, DIE+2
QANST1	NEWREC+6*, NEWREC+15, NEWREC+19!
>> QANTRSP	PAT+28
QANTST	PRIOR+4!
QANTST("DATE"	PRIOR+2*, PRIOR1+1
QANTST("INC"	PRIOR+2*, PRIOR1+1
QANTST(1	PRIOR+1*, PRIOR+2
QANTST(2	PRIOR+3*, PRIOR1+1
QANTTL	NEWREC+7*, NEWREC+19!, NEWREC+29
>> QANWARD	PAT+27
>> QANXIT	NEWREC+6, NEWREC+18, NEWREC+20, DIE+1, DIE+3, DIE+4, SC1+1, DEL+1, PAT+3, PAT+8 , PAT+9, PAT+11, PAT+15, PAT+24, PRIOR+3, PRIOR1+4
>> QANZERO	PAT+16*
>> QAQADICT	DIE+2*
>> QAQAFLD	DIE+2*
QAUDIT	SC1+2!, PAT+32!
QAUDIT("ACTION"	SC1+2, PAT+32
QAUDIT("COMMENT"	SC1+2, PAT+32
QAUDIT("DA"	SC1+2, PAT+32
QAUDIT("FILE"	SC1+2, PAT+32
>> TEMPY	DIV+3*
U	NEWREC+7, NEWREC+11, NEWREC+29, DIV+3, DIE+2, PAT+13, PAT+14, PAT+16, PAT+17, PAT+27 , PAT+28, PRIOR+2, PRIOR+3, PRIOR1+1, PRIOR1+2, DISP+4, DISP+5, DISP+9, DISP+11, DISP+13 , DISP+14, GOEDIT+16, GOEDIT+18, GOEDIT+19
>> X	NEWREC+21, DIE+2, PAT+18, PAT+22
>> X1	PAT+18*
>> X2	PAT+18*
Y	NEWREC+24, NEWREC+28, DIV+3, LIST+8, LIST+11, LIST+13, LIST+14, LIST+17, DIE+1, SC1+1! , PAT+2, PAT+3, PAT+13!, PAT+14!, PAT+16, PAT+20, PAT+23, PAT+24, PAT+25, PRIOR+3 , PRIOR1+2, DISP+5, DISP+6, GOEDIT+3, QANPID~
Y(0	PAT+5, PAT+16, PAT+19, QANPID+2, QANPID+4, QANPID+5, QANPID+8, QANPID+9

Customize PDF page

Package: Incident Reporting

Routine: QANCDNT

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: