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

Package: Incident Reporting

Routine: QANUTL1


Information

QANUTL1 ;HISC/GJC-UTILITIES FOR INCIDENT REPORTING (PATIENT DATA) ; 5/23/12 12:46pm

Source Information

Source file <QANUTL1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 ^%DTC  MIX^DIC1  YN^DICN  ^DIE  Y^DIQ  ^DIR  
Incident Reporting 2 $$QANPID^QANCDNT  ^QANPEDT  
Quality Assurance Integration 1 ^QAQAUDIT  
Registration 1 INP^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Incident Reporting 4 QANCDNT  QANEDIT  QANQUCK  QANVAL  

Entry Points

Name Comments DBIA/ICR reference
PAT1 ;entry point from EDIT1^QANDCNT
HDH1 ;
PAT ;Choose your patient.
RPT0
PAT0 ;displays the patient(s) on IR, if any.
RPT1
ADMDT ;Grab the patient's admission date.
DICW ;Sets up output for patient lookup.
EDTNME ;Edit the patients name.
WARD ;
HDH ;

External References

Name Field # of Occurrence
^%DTC PAT1+9
MIX^DIC1 PAT1+1
YN^DICN RPT0, RPT0+5
^DIE EDTNME+2, EDTNME+11
Y^DIQ RPT1+6
^DIR HDH1+1
$$QANPID^QANCDNT EDTNME+7
^QANPEDT EDTNME+13
^QAQAUDIT EDTNME+12
INP^VADPT ADMDT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " "_QANSSN_" "_Y_" "
  • Line Location: DICW+4
Function Call: WRITE
  • Prompt: $P(^QA(742.1,$P(^QA(742.4,QANYY,0),U,2),0),U)
  • Line Location: DICW+6
Function Call: WRITE
  • Prompt: @IOF,!?62,"Date: ",QANDT,!,?62,"Page: ",QANPAGE,!,?(IOM-$L(QANHEAD)\2),QANHEAD
  • Line Location: HDH+1
Function Call: WRITE
  • Prompt: !!,"Patient(s) on this Incident Report."
  • Line Location: PAT0+7
Function Call: WRITE
  • Prompt: !?5,$P(^DPT(QANPTS(QANCC),0),U)
  • Line Location: PAT0+10
Function Call: WRITE
  • Prompt: !!,$C(7),"You must enter patient's name to continue editing."
  • Line Location: PAT1+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Patient not selected, exiting!!"
  • Line Location: PAT1+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RPT0+0
Function Call: WRITE
  • Prompt: !!,"Patient has additional incidents on file.",!,"Do you wish to look at these incidents"
  • Line Location: RPT0+0
Function Call: WRITE
  • Prompt: !!,"Patient has additional incidents on file.",!,"Do you wish to look at these incidents"
  • Line Location: RPT0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT0+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to continue with the edit portion"
  • Line Location: RPT0+5
Function Call: WRITE
  • Prompt: !,"Enter ""Y"" for yes, ""N"" for no."
  • Line Location: RPT0+5
Function Call: WRITE
  • Prompt: !,"Patient: ",$P(QANPT(0),U),?45,"Patient ID: ",$P(QANPT0(0),U,2)
  • Line Location: RPT1+2
Function Call: WRITE
  • Prompt: !,"Case Number: ",$P(QANCS(0),U),?45,"Incident: ",$S(QANIC]"":$P(^QA(742.1,QANIC,0),U),1:"<NONE>")
  • Line Location: RPT1+3
Function Call: WRITE
  • Prompt: !,"Date of the Incident: "
  • Line Location: RPT1+4
Function Call: WRITE
  • Prompt: Y,?45,"Incident Status: ",$S(QANSTAT=0:"Closed",QANSTAT=1:"Open",QANSTAT=3:"Open",1:"Deleted")
  • Line Location: RPT1+4
Function Call: WRITE
  • Prompt: !,"Incident Location: "
  • Line Location: RPT1+5
Function Call: WRITE
  • Prompt: $P(^QA(742.5,$P(QANCS(0),U,4),0),U)
  • Condition for execution: $P(QANCS(0),U,4)]""
  • Line Location: RPT1+5
Function Call: WRITE
  • Prompt: !,"Severity Level: "
  • Line Location: RPT1+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: RPT1+6
Routine Call
  • DIE
  • Line Location:
    • EDTNME+2
    • EDTNME+11
Routine Call
  • DIR
  • Line Location:
    • HDH1+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DICW+3, RPT0+3, RPT1+4
^DD(742 RPT1+6
^DIC(42 - [#42] WARD+2, WARD+3
^DPT - [#2] DICW+2, PAT0+10, PAT1+6, PAT1+8, RPT0+3, ADMDT+4, EDTNME+6
^QA(742 - [#742] DICW+1, PAT0+3, PAT0+5, PAT1+8, RPT0+4
^QA(742.1 - [#742.1] DICW+6, RPT1+3
^QA(742.4 - [#742.4] DICW+3, DICW+5, DICW+6, RPT1, EDTNME+13
^QA(742.5 - [#742.5] RPT1+5
^SC - [#44] WARD+4

Label References

Name Line Occurrences
ADMDT EDTNME+8
EDTNME PAT1+7
HDH HDH1+2, RPT0+3
HDH1 RPT0+4, RPT1+2, RPT1+3, RPT1+4, RPT1+5, RPT1+6
PAT1 PAT1+2
RPT0 PAT1+10
RPT1 RPT0+4
WARD ADMDT+5

Naked Globals

Name Field # of Occurrence
^(0 RPT0+3, RPT0+4, RPT1
^(44 WARD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RPT0*, RPT0+1, RPT0+2, RPT0+5*, RPT0+6
>> C RPT1+6*
>> D PAT1+1*
>> DA EDTNME+2*, EDTNME+10*
DFN ADMDT+2*, ADMDT+6!
DIC PAT+1!*, PAT1+3!
DIC("A" PAT+1*
DIC("S" PAT+5*
DIC("S1" PAT+2*, PAT+5
DIC("S2" PAT+3*, PAT+5
DIC("S3" PAT+4*, PAT+5
DIC("W" PAT1+1*
DIC(0 PAT+1*
DIE EDTNME+1!, EDTNME+2*, EDTNME+10*
DIR HDH1+1!
DIR(0 HDH1+1*
DR EDTNME+1!, EDTNME+2*, EDTNME+11*
DT PAT1+9, RPT0+3
IOF HDH+1
IOM HDH+1, HDH+2
IOSL RPT0+4, RPT1+2, RPT1+3, RPT1+4, RPT1+5, RPT1+6
QA1 EDTNME+6*, EDTNME+7, EDTNME+14!
QA2 EDTNME+6*, EDTNME+14!
QAHDNM PAT1+5*, EDTNME+15!
QAHDSSN PAT1+6*, EDTNME+15!
QAHOLD PAT1+5*, PAT1+6, EDTNME+5, EDTNME+14!
>> QAN PAT1+8*, RPT0+4*
>> QAN(0 PAT1+8*, PAT1+10
QANADMDT ADMDT+2*, EDTNME+9*, EDTNME+11, EDTNME+14!
>> QANAGE PAT1+9*
>> QANAME PAT1+8*
>> QANCC PAT0+8*, PAT0+9*, PAT0+10
>> QANCS RPT1*
>> QANCS(0 RPT1*, RPT1+1, RPT1+3, RPT1+4, RPT1+5
>> QANDFN PAT1+5*, EDTNME+10, EDTNME+12
>> QANDOB PAT1+8*, PAT1+9, EDTNME+6*
>> QANDT HDH+1, RPT0+3*
>> QANEE PAT0+1*, PAT0+3*, PAT0+5
>> QANEOP HDH1+1*, HDH1+2, RPT0+3*, RPT0+4, RPT1+2, RPT1+3, RPT1+4, RPT1+5, RPT1+6
>> QANHEAD HDH+1, RPT0+3*
>> QANHEAD(0 HDH+2, RPT0+3*
>> QANIC RPT1+1*, RPT1+3
>> QANIEN PAT0+3, PAT1+5*, EDTNME+13
QANINPAT ADMDT+4*, ADMDT+5, EDTNME+9*, EDTNME+11, EDTNME+14!
>> QANLINE HDH+3, RPT0+3*
>> QANPAGE HDH+1*, RPT0+3*
>> QANPAT PAT1+8, RPT0+3, RPT0+4, EDTNME+4*
QANPID EDTNME+7*, EDTNME+9*, EDTNME+11, EDTNME+14!
>> QANPIEN ADMDT+2, ADMDT+4, EDTNME+4*
>> QANPT(0 RPT0+3*, RPT1+2
>> QANPT0(0 RPT0+4*, RPT1, RPT1+2, RPT1+6
QANPTFLG PAT0+1~, PAT0+4*, PAT0+6
QANPTS PAT0+2!
QANPTS( PAT0+5*, PAT0+9, PAT0+10
QANSSN DICW+2*, DICW+4, EDTNME+6*, EDTNME+14!
>> QANSTAT RPT1+1*, RPT1+4
QANTRSP ADMDT+3*, EDTNME+9*, EDTNME+11, EDTNME+14!
>> QANTYPE PAT+5
QANWARD ADMDT+1*, EDTNME+9*, EDTNME+11, EDTNME+14!, WARD+1*, WARD+2*, WARD+3*, WARD+4*
>> QANXIT PAT1+4*, PAT1+7, RPT0+1*, RPT0+6*, EDTNME+3*, EDTNME+5
QANY DICW+1*, DICW+2, DICW+7!
QANYY DICW+1*, DICW+3, DICW+5, DICW+6, DICW+7!
QAUDIT EDTNME+12!, EDTNME+14!
QAUDIT("ACTION" EDTNME+12*
QAUDIT("COMMENT" EDTNME+12*
QAUDIT("DA" EDTNME+12*
QAUDIT("FILE" EDTNME+12*
U DICW+1, DICW+2, DICW+3, DICW+5, DICW+6, PAT0+5, PAT0+10, PAT1+5, PAT1+6, PAT1+8
, RPT1, RPT1+1, RPT1+2, RPT1+3, RPT1+4, RPT1+5, RPT1+6, EDTNME+6, EDTNME+13, WARD+3
VAIN ADMDT+6!
VAIN(3 ADMDT+3
VAIN(4 WARD+1
VAIN(7 ADMDT+2
>> X PAT1+2, PAT1+9*, EDTNME+4, EDTNME+5, EDTNME+6
>> X1 PAT1+9*
>> X2 PAT1+9*
Y DICW+1, DICW+3~*, DICW+4, HDH1+1, PAT1+4, PAT1+5, RPT0+3*, RPT1+4*, RPT1+6*, EDTNME+2
, EDTNME+3
Y(0 PAT1+5
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