Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QANCDNT

Package: Incident Reporting

Routine: QANCDNT


Information

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

Source Information

Source file <QANCDNT.m>

Call Graph

Call Graph

Call Graph Total: 14

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All