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 |  Local Variables |  All
Print Page as PDF
Routine: QANEDIT

Package: Incident Reporting

Routine: QANEDIT


Information

QANEDIT ;WCIOFO/ERC-Edit a Brief Incident ;4/22/99

Source Information

Source file <QANEDIT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 7 DD^%DT  ^%DTC  MIX^DIC1  (FILE,YN)^DICN  ^DIE  (,IX1)^DIK  ^DIR  
Incident Reporting 3 $$QANPID^QANCDNT  ADMDT^QANUTL1  BULL^QANUTL3  
Quality Assurance Integration 1 ^QAQAUDIT  

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

Package Total Caller Graph
Incident Reporting 2 QAN BRIEF EDIT  QANCDNT  

Entry Points

Name Comments DBIA/ICR reference
PTADD ;
PAT ;edit patient(s) on report
EDIT ;
DIE ;
START ;
EXIT ;
PTDEL ;
DIKAUDIT(QANFIL) ;
DIR ;

External References

Name Field # of Occurrence
DD^%DT EDIT+20
^%DTC PTADD+17
MIX^DIC1 PTADD+2
FILE^DICN PTADD+21
YN^DICN START+3, PTADD+6
^DIE DIE+10, PAT+36
^DIK DIR+15, PTDEL+15, DIKAUDIT+10
IX1^DIK PTADD+26
^DIR EDIT+22, DIR+5, PAT+15, PAT+20, PAT+27, PTDEL+8
$$QANPID^QANCDNT PTADD+19
ADMDT^QANUTL1 PTADD+20
BULL^QANUTL3 PTADD+31
^QAQAUDIT PTADD+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"Do you want to edit one of your open Incident Reports"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"Enter (Y)es, (N)o or ""^"" to exit"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,"**** You have no open Incident Reports to edit. Exiting.",!!
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !!,"Here are your open Incident Reports."
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+22
Function Call: WRITE
  • Prompt: !,QANEE,?4,QANDATE,?25,$E(QANINC,1,25),?51,QANNAME
  • Line Location: EDIT+23
Function Call: WRITE
  • Prompt: !?51,QANNAME
  • Line Location: EDIT+24
Function Call: WRITE
  • Prompt: !,"Number selected must be from 1 to "_QANTOT_", try again."
  • Line Location: DIR+6
Function Call: WRITE
  • Prompt: !!,"Another user is editing this record."
  • Line Location: DIR+9
Function Call: WRITE
  • Prompt: !!,"No patients on this Incident Report - deleting Report."
  • Line Location: DIR+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIE+1
Function Call: WRITE
  • Prompt: !,"Patient(s) on this Incident Report."
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !?5,QANCNT," ",QANPNAM(QANEE)
  • Line Location: PAT+10
Function Call: WRITE
  • Prompt: !?5,$G(Y(0,0))_" OK"
  • Line Location: PTADD+5
Function Call: WRITE
  • Prompt: " Confirm that this is the correct patient."
  • Line Location: PTADD+7
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: PTADD+9
Function Call: WRITE
  • Prompt: !!,$C(7),$P(^DPT(+Y,0),U)_" has been previously entered for this incident."
  • Line Location: PTADD+12
Function Call: WRITE
  • Prompt: !!,$C(7),"The date of death for patient: "_$P(^DPT(+Y,0),U)_" precedes the incident date."
  • Line Location: PTADD+14
Function Call: WRITE
  • Prompt: !?5,QANCC_" "_QANPNAM(QANCC)
  • Line Location: PTDEL+4
Function Call: WRITE
  • Prompt: !!?5,"Choice must be one of the displayed numbers."
  • Line Location: PTDEL+9
Function Call: WRITE
  • Prompt: !!?5,"Answer must be a number less than ",QANNUM+1
  • Line Location: PTDEL+10
Function Call: WRITE
  • Prompt: !!,"You must have at least one patient on an incident report."
  • Line Location: PTDEL+20
Routine Call
  • DIE
  • Line Location:
    • DIE+10
    • PAT+36
Routine Call
  • DIR
  • Line Location:
    • EDIT+22
    • DIR+5
    • PAT+15
    • PAT+20
    • PAT+27
    • PTDEL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^QA(740.5 - [#740.5] 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)
^DPT - [#2] EDIT+19, PAT+9, PTADD+12, PTADD+14, PTADD+16
^QA(740.5 - [#740.5] DIKAUDIT+6, DIKAUDIT+7
^QA(742 - [#742] EDIT+18, EDIT+19, DIR+12, DIE+6, PAT+2, PAT+8, PAT+34, PTADD+24*, PTADD+25*, PTDEL+20
^QA(742.1 - [#742.1] EDIT+21
^QA(742.4 - [#742.4] EDIT+5, EDIT+6, EDIT+15, DIR+8, DIR+9, DIE+11, PTADD+14
^TMP("QAN EDIT" EDIT+1!, EDIT+6*, EDIT+8, EDIT+13, EDIT+14, DIR+1, DIR+7
^UTILITY($J PTADD+15*

Label References

Name Line Occurrences
DIE DIR+1, DIR+11
DIR DIR+6
EDIT START+4
EXIT DIR+16
PAT PAT+32
PTADD PAT+2, PAT+21, PTADD+9, PTADD+13, PTADD+14, PTDEL+20
PTDEL PAT+28, PTDEL+9, PTDEL+10, PTDEL+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+3*, START+4, PTADD+4, PTADD+6*, PTADD+8, PTADD+9
>> D PTADD+1*
DA DIR+15*, DIE+9*, PTADD+26*!, PTDEL+15*, DIKAUDIT+9*
DD PTADD+21!
DIC PTADD+1!*, PTADD+2!, PTADD+21!*
DIC("A" PTADD+1*
DIC("W" PTADD+1*
DIC(0 PTADD+1*, PTADD+21*
DIE DIE+9!*, DIE+10!, PAT+35!*, PAT+36!
DIK DIR+15*!, PTADD+26*!, PTDEL+15*, DIKAUDIT+9*, DIKAUDIT+10!
DINUM PTADD+21!
DIR EDIT+22!, DIR+2!, DIR+5!, PAT+15!, PAT+20!, PAT+24!, PAT+27!, PTDEL+8!
DIR("A" DIR+4*, PAT+12*, PAT+17*, PAT+24*, PTDEL+7*
DIR("B" PAT+13*, PAT+18*, PAT+25*
DIR(0 EDIT+22*, DIR+3*, PAT+14*, PAT+17*, PAT+24*, PTDEL+6*
DIRUT DIR+5, PAT+15, PAT+19!, PAT+20, PAT+26!, PAT+27, PTDEL+8
DLAYGO PTADD+21!*
DO PTADD+21!
>> DR DIE+9*, PAT+35*
DT PTADD+17
DUZ EDIT+3
IOF START+1, EDIT+7, EDIT+22
IOSL EDIT+22
QAN0 EDIT+15*, EDIT+20, EDIT+21, EXIT+1!
QANADMDT PTADD+24, EXIT+1!
>> QANAGE PTADD+17*
QANAME PTADD+15*, PTADD+30, PTDEL+14*, EXIT+2!
QANAUD DIKAUDIT+7*, DIKAUDIT+8, DIKAUDIT+11!
QANBFLG START+2~, PAT+23
QANCC EDIT+16*, EDIT+18*, EDIT+19, PTDEL+1*, PTDEL+2*, PTDEL+3, PTDEL+4, EXIT+1!
QANCNT EDIT+2*, EDIT+6*, EDIT+16*, EDIT+23, EDIT+24, EDIT+25*, DIE+2~, DIE+5*, DIE+7, DIE+8*
, PAT+6*, PAT+10, PAT+11*, EXIT+1!
QANDATE EDIT+20*, EDIT+23, EXIT+1!
QANDFN PTADD+23*, PTADD+24, PTADD+25, PTADD+26, PTADD+28, PTADD+32, PTDEL+13*, EXIT+1!, DIKAUDIT+5
QANDOB PTADD+16*, PTADD+17, EXIT+1!
>> QANDUZ EDIT+3*, EDIT+6
QANEDFLG DIR+10*, PAT+21*, PAT+28*, EXIT+2!
QANEE EDIT+4*, EDIT+5*, EDIT+6, EDIT+11*, EDIT+13*, EDIT+14, EDIT+23, DIE+2~, DIE+4*, DIE+6*
, DIE+7, PAT+5*, PAT+7*, PAT+8, PAT+9, PAT+10, PTADD+10*, PTADD+11*, PTADD+12, EXIT+1!
, DIKAUDIT+6*, DIKAUDIT+7*, DIKAUDIT+9, DIKAUDIT+11!
>> QANEFLG DIE+3*, PAT+21*, PAT+28*, PAT+32*
QANELFG EXIT+2!
>> QANF PTADD+31
QANFIL DIKAUDIT~, DIKAUDIT+5, DIKAUDIT+6, DIKAUDIT+7
QANFLAG PTADD+22, PTADD+31*, EXIT+2!
QANID DIKAUDIT+5*, DIKAUDIT+7, DIKAUDIT+11!
QANIEN START+2~, EDIT+14*, EDIT+15, EDIT+18, DIR+1*, DIR+7*, DIR+8, DIR+9, DIR+12, DIR+15
, DIE+6, DIE+9, DIE+11, PAT+2, PAT+34, PTADD+14, PTADD+24, PTDEL+20, EXIT+2!, DIKAUDIT+5
QANINC EDIT+21*, EDIT+23, EXIT+2!
>> QANINPAT PTADD+24
QANNAME EDIT+19*, EDIT+23, EDIT+24, EXIT+2!
QANNOPAT START+2~, PAT+31!, PTDEL+20*, EXIT+2!
QANNUM PTADD+27*, PTADD+28, PTADD+29, PTADD+30, PTDEL+3*, PTDEL+5, PTDEL+10, EXIT+3!
QANPAT EXIT+3!
QANPAT( DIE+7*, PAT+7, PAT+8, PTADD+28*, PTDEL+13, PTDEL+15, PTDEL+18!
QANPAT(" " PTADD+27
QANPID PTADD+19*, PTADD+24, EXIT+3!
QANPIEN PTADD+15*, PTADD+16, PTADD+21, PTADD+29, EXIT+3!
QANPNAM PAT+3!, EXIT+3!
QANPNAM( PAT+9*, PAT+10, PTADD+30*, PTDEL+4, PTDEL+9, PTDEL+14, PTDEL+18!
QANPNUM PAT+3!, EXIT+3!
QANPNUM( PAT+8*, PAT+9, PTADD+11, PTADD+12, PTADD+29*, PTDEL+2, PTDEL+18!
QANPSDO EXIT+3!
QANPSDO(0 PTADD+18*
>> QANSSN PTADD+15*
QANTEMP PTDEL+12*, PTDEL+18, EXIT+3!
QANTOT EDIT+12*, EDIT+17*, DIR+1, DIR+4, DIR+6, EXIT+4!
QANTRSP PTADD+25, EXIT+4!
>> QANWARD PTADD+24
QANXFLG PTADD+12*, PTADD+13*, EXIT+4!
QANXIT START+5!, PTADD+3*, PTADD+8*, PTADD+22*, PTDEL+5*, PTDEL+11*, EXIT+4!
QANY EXIT+4!
QANZERO PTADD+15*, EXIT+4!
QAUDIT PTADD+32!
QAUDIT("ACTION" PTADD+32*
QAUDIT("COMMENT" PTADD+32*
QAUDIT("DA" PTADD+32*
QAUDIT("FILE" PTADD+32*
U EDIT+6, EDIT+19, EDIT+20, EDIT+21, PAT+8, PAT+9, PTADD+12, PTADD+14, PTADD+15, PTADD+16
, PTADD+24, PTADD+25, DIKAUDIT+7
>> X PTADD+17*, PTADD+21*
>> X1 PTADD+17*
>> X2 PTADD+17*
Y EDIT+20*, DIR+5, DIR+6, DIR+7, PAT+16, PAT+21, PAT+28, PTADD+3, PTADD+12!, PTADD+14!
, PTADD+15, PTADD+19, PTADD+22, PTADD+23, PTDEL+9, PTDEL+10, PTDEL+11, PTDEL+12, PTDEL+13, PTDEL+14
, PTDEL+15
Y(0 PTADD+5, PTADD+15, PTADD+18
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 |  Local Variables |  All