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

Package: Incident Reporting

Routine: QANCNV0


Information

QANCNV0 ;HISC/GJC-Conversion of data from V1.01 to V2.0 ;2/5/92

Source Information

Source file <QANCNV0.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Incident Reporting 3 CASE^QANCNV1  (DESC,KILL)^QANCNV2  PAT^QANCNVT  
VA FileMan 2 FILE^DICN  (ENALL,IX)^DIK  

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

Package Total Caller Graph
Incident Reporting 1 QANCNV00  

Entry Points

Name Comments DBIA/ICR reference
EN0 ;CHECKING OLD IR DATA, SITE PARAMETER FILE, SET IR DATA AS NOT CONVERTED
EN1 ; MAIN ENTRY FOR CONVERSION
EN2 ;Echo conversion status, kill and quit.
INCD ;** Create an entry in file 742.4 **

External References

Name Field # of Occurrence
FILE^DICN INCD+2
ENALL^DIK EN1+4
IX^DIK INCD+17
CASE^QANCNV1 EN1+8
DESC^QANCNV2 INCD+15
KILL^QANCNV2 EN2+3
PAT^QANCNVT EN1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"OLD INCIDENT REPORTING DATA NOT FOUND, EXITING THE CONVERSION!!",*7
  • Line Location: EN0+2
Function Call: WRITE
  • Prompt: !!,*7,"QA SITE PARAMETERS FILE MISSING, CONTACT YOUR QA COORDINATOR!!",*7
  • Line Location: EN0+3
Function Call: WRITE
  • Prompt: !!,"BEGINNING CONVERSION OF V1.01 DATA...."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,"DELETING ""E"", AND ""INC"" X-REFS, FIELD: INCIDENT, FILE: 513.72"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"RE-INDEXING ""E"", AND ""INC"" X-REFS, FIELD: INCIDENT, FILE: 513.72"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"BEGIN DATA CONVERSION CHECK: "
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !,*7,"Data for entry number: "_QAN_" has not been converted.",*7
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !!,"There was "_+$G(QANNON)_" non-Incident Reporting records."
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,"The data conversion has ",$S(QANBAD:"failed to convert ",1:"successfully converted ")_"all Incident Reporting",!,"records."
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !!,*7,"Error in data conversion, contact your site manager.",*7
  • Line Location: INCD+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRMQ(513.72 EN0+2, EN0+4, EN1+4!, EN1+8, EN1+11, INCD+4*
^QA(740 - [#740] EN0+3
^QA(742.14 - [#742.14] INCD+13
^QA(742.4 - [#742.4] INCD+6, INCD+14*, INCD+16*
^TMP($J EN1+8!

Label References

Name Line Occurrences
EN2 EN0+2, EN0+3
INCD EN1+8

Naked Globals

Name Field # of Occurrence
^( EN0+4*
^(0 EN0+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA INCD+1!, INCD+3!, INCD+17!*, INCD+18!
DD INCD+1!, INCD+3!
>> DIC INCD+2*
>> DIC(0 INCD+2*
DIK EN1+4!*, INCD+17!*, INCD+18!
DIK(1 EN1+4*
DINUM INCD+1!, INCD+3!
DLAYGO INCD+1!, INCD+3!
DO INCD+1!, INCD+3!
>> DOT EN1+3*, EN1+5*
I EN0+4!*, EN1+1!
>> PRMQDISP INCD+9, INCD+10
>> PRMQIEN EN1+7*, EN1+8*, INCD+4
>> PRMQINC INCD+12, INCD+13
>> QAN EN1+10*, EN1+11*
>> QANBAD EN0+1*, EN0+2*, EN0+3*, EN1+11*, EN2+2
>> QANCASE INCD+2
>> QANDATE INCD+7
>> QANIEN(7424 INCD+5*, INCD+6, INCD+14, INCD+16, INCD+17
>> QANINCD INCD+7
>> QANLOC1 INCD+7
>> QANLVL INCD+8
>> QANLVL(0 INCD+9, INCD+10
>> QANMED INCD+16
>> QANNODE(7424 INCD+6*, INCD+7*, INCD+8*, INCD+9*, INCD+10*, INCD+12*, INCD+13*, INCD+14
>> QANNON EN2+1
>> QANRPT INCD+7
>> QANWT INCD+8
>> QANXIT EN1+7*, EN1+8, INCD+4*
>> QAQ0 EN0+3*
U EN0+4, EN1+11, INCD+4, INCD+7, INCD+8, INCD+9, INCD+10, INCD+12, INCD+13
>> X INCD+2*
>> Y INCD+4, INCD+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