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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: QACI2A

Package: Patient Representative

Routine: QACI2A


Information

QACI2A ; OAKOIFO/TKW - DATA MIGRATION - BUILD LEGACY DATA TO BE MIGRATED (CONT.) ;10/26/06 16:42

Source Information

Source file <QACI2A.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 ($$STA,PARENT)^XUAF4  
Patient Representative 1 ($$TXTERR,ERREF)^QACI2C  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Patient Representative 5 QACI2  QACI20  QACI2B  QACI2C  QACI2D  

Entry Points

Name Comments DBIA/ICR reference
PARVISN(PARENT,VISNNAME) ; Get Parent Station Number and VISN Name for a Station
ASK(FLAG) ; Question Confirming that User want to run this option
CEMOCTS ; Build mapping lists for contacting_entity, method_of_contact, treatment_status.
BLDISS ; Build a list of migrated National Issue Codes.
BLDCC(STATION,PATSCNT) ; Build list of all Congressional Contacts to migrate
BLDFSOS(FSOSIEN,FSOSNAME,QACI0,PATSCNT) ; Check for errors, build data for a single Facility Service or Section
ERROC(OLDROC,MSG) ; Record an error on a ROC
LIST ;; List of valid national issue codes

External References

Name Field # of Occurrence
^DIR ASK+14
$$TXTERR^QACI2C BLDCC+7, BLDFSOS+3
ERREF^QACI2C BLDCC+8, BLDCC+10, BLDFSOS+6
$$STA^XUAF4 PARVISN+10
PARENT^XUAF4 PARVISN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option builds temporary globals used to migrate all legacy data",!,"from the old Patient Representative system to the new Patient Advocate",!,"Tracking System (PATS).",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"** This is the option to completely restart the migration process . **"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"If data was migrated in error, the PATS Production Database Manager",!,"should delete the data from PATS prior to running this option.",!
  • Line Location: ASK+4
Routine Call
  • DIR
  • Line Location:
    • ASK+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(740 - [#740] PARVISN+3
^QA(745.1 - [#745.1] ERROC+5, ERROC+6
^QA(745.4 - [#745.4] BLDCC+3
^VA(200 - [#200] ERROC+7
^XTMP("QACMIGR" BLDISS+1!, BLDISS+3*, BLDISS+5*, BLDCC+5, BLDCC+11*, BLDFSOS+1, BLDFSOS+2, BLDFSOS+10, BLDFSOS+11*, ERROC+2
, ERROC+3*, ERROC+8*

Naked Globals

Name Field # of Occurrence
^( BLDCC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CC0 BLDCC+1~, BLDCC+3*, BLDCC+4, BLDCC+9
CCCNT BLDCC+1~, BLDCC+2*, BLDCC+12*, BLDCC+13
CCDNM BLDCC+1~, BLDCC+6*, BLDCC+8, BLDCC+10
CCIEN BLDCC+1~, BLDCC+3*, BLDCC+5, BLDCC+8, BLDCC+10, BLDCC+11
>> CCNAME BLDCC+4*, BLDCC+6, BLDCC+7, BLDCC+11
>> CE("AT" CEMOCTS+3*
>> CE("CO" CEMOCTS+3*
>> CE("DI" CEMOCTS+3*
>> CE("FR" CEMOCTS+3*
>> CE("OT" CEMOCTS+3*
>> CE("PA" CEMOCTS+3*
>> CE("RE" CEMOCTS+3*
>> CE("ST" CEMOCTS+3*
>> CE("VH" CEMOCTS+3*
>> CE("VO" CEMOCTS+3*
DIR ASK+6~
DIR("?" ASK+7*, ASK+8*, ASK+9*, ASK+10*, ASK+11*, ASK+12*, ASK+13*
DIR("A" ASK+6*
DIR("B" ASK+6*
DIR(0 ASK+6*
ERRCNT ERROC+2~*, ERROC+3, ERROC+4, ERROC+8
FLAG ASK~
FSOSIEN BLDFSOS~, BLDFSOS+1, BLDFSOS+2, BLDFSOS+6, BLDFSOS+10, BLDFSOS+11
FSOSNAME BLDFSOS~, BLDFSOS+3, BLDFSOS+4, BLDFSOS+5*, BLDFSOS+6, BLDFSOS+11
I PARVISN+1~, PARVISN+7*, PARVISN+8, BLDISS+4~, BLDISS+5*, ERROC+5~*, ERROC+6
>> MOC("I" CEMOCTS+1*
>> MOC("L" CEMOCTS+1*
>> MOC("P" CEMOCTS+1*
>> MOC("S" CEMOCTS+1*
>> MOC("V" CEMOCTS+1*
>> MOC("W" CEMOCTS+1*
MSG ERROC~, ERROC+1, ERROC+3
OLDROC ERROC~, ERROC+2, ERROC+3, ERROC+5, ERROC+8
PARENT PARVISN~, PARVISN+3*, PARVISN+4, PARVISN+6, PARVISN+7*, PARVISN+10*
PATSCNT BLDCC~, BLDFSOS~
PATSCNT("CC" BLDCC+13*
PATSCNT("FSOS" BLDFSOS+12*
QACI0 CEMOCTS+2, BLDFSOS~, BLDFSOS+8
QACPAR PARVISN+1~
QACPAR("P" PARVISN+7, PARVISN+8
STATION BLDCC~, BLDCC+11
>> TS("D" CEMOCTS+4*
>> TS("E" CEMOCTS+4*
>> TS("H" CEMOCTS+4*
>> TS("I" CEMOCTS+4*
>> TS("L" CEMOCTS+4*
>> TS("N" CEMOCTS+4*
>> TS("O" CEMOCTS+4*
VISNNAME PARVISN~, PARVISN+3*, PARVISN+8*, PARVISN+10*
X BLDISS+5*, BLDCC+1~, BLDCC+9*, BLDCC+11, ERROC+6*, ERROC+7*, ERROC+8
Y ASK+15, BLDFSOS+4~*, BLDFSOS+5

Marked Items

Name Field # of Occurrence
$T(LIST+I BLDISS+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All