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 |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QACI2E

Package: Patient Representative

Routine: QACI2E


Information

QACI2E ; OAKOIFO/TKW - DATA MIGRATION - BUILD LEGACY DATA TO BE MIGRATED (CONT.) ;7/27/05 14:15

Source Information

Source file <QACI2E.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZISC  $$FMTE^XLFDT  EN^XUTMDEVQ  
VA FileMan 2 NOW^%DTC  ^DIR  
Patient Representative 1 HDR^QACI1A  

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

Package Total Caller Graph
Patient Representative 3 QACI REPORT ROC CHANGES  QACI REPRINT ERRORS REPORT  QACI2  

Entry Points

Name Comments DBIA/ICR reference
UPDCNT(PATSCNT) ; Update counts of data migrated on XTMP global
UPDERRCT ; Update counts of errors generated.
ERRPT(QACI0) ; Print all errors found during data migration
ENERRPT ; Entry point to print all error reports found during any step of data migration.
ENRPT2 ; Print list of ROCs with data changed during migration
DQRPT ; Report errors found in reference table data
DQRPT3 ; Print report of ROC data changed for migration
ENREPRNT ; Reprint data error reports - menu entry point
ASK(TYPE) ; Ask whether users want to reprint error reports

External References

Name Field # of Occurrence
NOW^%DTC DQRPT+3, DQRPT3+3
^%ZISC DQRPT+21, DQRPT3+16
^DIR ASK+4
HDR^QACI1A DQRPT+4, DQRPT+11, DQRPT+16, DQRPT3+4, DQRPT3+7
$$FMTE^XLFDT DQRPT+3, DQRPT3+3
EN^XUTMDEVQ ENERRPT+12, ENERRPT+22, ENRPT2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Reference Table Errors were found",!
  • Line Location: ENERRPT+6
Function Call: WRITE
  • Prompt: !!,"Printing report of Reference Table Errors",!
  • Line Location: ENERRPT+9
Function Call: WRITE
  • Prompt: !!,"No Report of Contact (ROC) Errors were found",!
  • Line Location: ENERRPT+15
Function Call: WRITE
  • Prompt: !!,"Printing report of Report of Contact (ROC) Errors",!
  • Line Location: ENERRPT+18
Function Call: WRITE
  • Prompt: !!,"No ROC data was changed when data was moved to staging area!",!!
  • Line Location: ENRPT2+2
Function Call: WRITE
  • Prompt: !!,"ROC changes occur when data is moved to the staging area!"
  • Line Location: ENRPT2+3
Function Call: WRITE
  • Prompt: !!,"Ready to print the list of ROCs with data changed",!
  • Line Location: ENRPT2+5
Function Call: WRITE
  • Prompt: !,$S(TYPE="HL":"Hospital Location",TYPE="USER":"User",TYPE="PT":"Patient",TYPE="CC":"Congressional Contact",TYPE="EMPINV":"Employee Involved",TYPE="FSOS":"Service/Discipline (Facility Service or Section)","":"*Unknown*")
  • Line Location: DQRPT+8
Function Call: WRITE
  • Prompt: !,"IEN: "_IEN
  • Line Location: DQRPT+12
Function Call: WRITE
  • Prompt: ?20,ERRMSG,!
  • Line Location: DQRPT+17
Function Call: WRITE
  • Prompt: !," "_ROCNO
  • Line Location: DQRPT3+8
Function Call: WRITE
  • Prompt: ?I,"Info Taken By"
  • Line Location: DQRPT3+9
Function Call: WRITE
  • Prompt: ?I,"Edited By"
  • Line Location: DQRPT3+10
Function Call: WRITE
  • Prompt: ?I,"Division"
  • Line Location: DQRPT3+11
Function Call: WRITE
  • Prompt: ?I,"Issue Text"
  • Line Location: DQRPT3+12
Function Call: WRITE
  • Prompt: ?I,"Issue Text Overflow"
  • Line Location: DQRPT3+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DQRPT3+14
Routine Call
  • DIR
  • Line Location:
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("QACMIGR" UPDCNT+2*, UPDERRCT+4, UPDERRCT+5*, UPDERRCT+7, UPDERRCT+8*, ENERRPT+4, ENERRPT+14, ENRPT2+1, ENRPT2+2, DQRPT+7
DQRPT+9, DQRPT+15, DQRPT3+6, ENREPRNT+4, ENREPRNT+5

Label References

Name Line Occurrences
$$ASK ENERRPT+8, ENERRPT+17
ENERRPT ENREPRNT+8

Naked Globals

Name Field # of Occurrence
^( DQRPT+15, DQRPT3+6
^("D" ENRPT2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQRPT+1~, DQRPT+3, DQRPT3+1~, DQRPT3+3
%H DQRPT+1~, DQRPT3+1~
%I DQRPT+1~, DQRPT3+1~
CNT UPDERRCT+1~, UPDERRCT+3*, UPDERRCT+4*, UPDERRCT+5, UPDERRCT+6*, UPDERRCT+7*, UPDERRCT+8, ENREPRNT+1~, ENREPRNT+2*, ENREPRNT+3
ENREPRNT+4*, ENREPRNT+5*, ENREPRNT+7
DIR ASK+1~
DIR("A" ASK+2*
DIR("B" ASK+3*
DIR(0 ASK+3*
ERRMSG DQRPT+1~, DQRPT+15*, DQRPT+17
HDDATE DQRPT+1~, DQRPT+3*, DQRPT3+1~, DQRPT3+3*
I UPDERRCT+1~, UPDERRCT+4*, UPDERRCT+6*, UPDERRCT+7*, DQRPT+15*, DQRPT3+1~, DQRPT3+8*, DQRPT3+9*, DQRPT3+10*, DQRPT3+11*
DQRPT3+12*, DQRPT3+13
IEN DQRPT+1~, DQRPT+5*, DQRPT+9*, DQRPT+10, DQRPT+12, DQRPT+13, DQRPT+15
IO DQRPT+4, DQRPT3+4
LASTIEN DQRPT+1~, DQRPT+5*, DQRPT+10, DQRPT+13*
LNCNT DQRPT+1~, DQRPT+2*, DQRPT+11, DQRPT+13*, DQRPT+16, DQRPT+18*, DQRPT3+1~, DQRPT3+2*, DQRPT3+7, DQRPT3+14*
PAGENO DQRPT+1~, DQRPT+2*, DQRPT3+1~, DQRPT3+2*
PATSCHG DQRPT3+1~, DQRPT3+6*, DQRPT3+9, DQRPT3+10, DQRPT3+11, DQRPT3+12, DQRPT3+13
PATSCNT UPDCNT~
PATSCNT( UPDCNT+2
PATSERR ENERRPT+1~, ENERRPT+2*, ENERRPT+3, ENERRPT+4*, ENERRPT+6
PATSFROM ERRPT+1~, ERRPT+2*, ENERRPT+10, ENERRPT+20, ENREPRNT+1~, ENREPRNT+7*
PATSHDR ENERRPT+1~, ENERRPT+10*, ENERRPT+12, ENERRPT+20*, ENERRPT+22, ENRPT2+6~, ENRPT2+7*
PATSHDR(1 ENERRPT+20*, ENRPT2+7*
PATSTYPE ENERRPT+1~, ENERRPT+3*, ENERRPT+4, ENERRPT+19*, ENREPRNT+3*, ENREPRNT+4, ENREPRNT+5
QACI0 ERRPT~, ERRPT+2
REPRINT ENERRPT+8, ENERRPT+17, ENREPRNT+1~, ENREPRNT+2*
ROCNO DQRPT3+1~, DQRPT3+5*, DQRPT3+6*, DQRPT3+8
TYPE UPDCNT+1*, UPDCNT+2, UPDERRCT+1~, UPDERRCT+2*, UPDERRCT+4, UPDERRCT+5, DQRPT+1~, DQRPT+6*, DQRPT+7, DQRPT+8
DQRPT+9, DQRPT+15, ASK~, ASK+2
X ASK+1~
Y ASK+1~, ASK+5
ZTSAVE ENERRPT+11~, ENERRPT+12, ENERRPT+21!, ENERRPT+22, ENRPT2+8~, ENRPT2+9
ZTSAVE("PATSHDR" ENERRPT+11*, ENERRPT+21*, ENRPT2+8*
ZTSAVE("PATSTYPE" ENERRPT+21*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All