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

Package: Patient Representative

Routine: QACI5


Information

QACI5 ; OAKOIFO/TKW - DATA MIGRATION - OPTIONS OUT-OF-ORDER/IN-ORDER ;7/27/05 16:22

Source Information

Source file <QACI5.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 ^%ZISC  KILL^%ZTLOAD  $$FMTE^XLFDT  OUT^XPDMENU  EN^XUTMDEVQ  
VA FileMan 4 NOW^%DTC  (,$$FIND1)^DIC  $$GET1^DIQ  ^DIR  
Patient Representative 3 HDR^QACI1A  $$CONVROC^QACI2C  (,CHKTSK)^QACMAIL0  

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

Package Total Caller Graph
Patient Representative 7 QACI INACTIVATE PAT REP  QACI KILL ROLLUP TASK  QACI REPORT MIGR COUNTS  QACI REPORT NOTIFICATIONS  QACI RESCHEDULE ROLLUP TASK  QACI ROC MIGRATION STATUS  QACI2  

Entry Points

Name Comments DBIA/ICR reference
EN ; Put Patient Rep (QAC) options out-of-order or back in order again
E0 ; Activate/Inactivate Patient Rep menu options.
EN1() ; Entry point from ^QACI2 (set options out of order, kill rollup task
; when data is moved to staging area.)
ENRTASK ; Reschedule task that rolls data up to Austin
ENKTASK ; Kill task that rolls data up to Austin
KILLRLUP() ; Kill Taskman Task that rolls Patient Rep data up to Austin for VSSC reports
; Get task number from QAC SITE PARAMETER FILE
EN3 ; Print list of pending ARNs
EN4 ; Counts of migrated/unmigrated/total/errors
DQRPT3 ; Report pending ARNs
DQRPT4 ; Print various counts for migration
ENRSTAT ; Return status for a selected ROC

External References

Name Field # of Occurrence
NOW^%DTC DQRPT3+3, DQRPT4+4
^%ZISC DQRPT3+21, DQRPT4+23
KILL^%ZTLOAD KILLRLUP+11
^DIC ENRSTAT+3
$$FIND1^DIC EN+2
$$GET1^DIQ EN+4
^DIR EN+12, ENRTASK+8, ENKTASK+8
HDR^QACI1A DQRPT3+4, DQRPT3+14, DQRPT4+10
$$CONVROC^QACI2C ENRSTAT+5
^QACMAIL0 ENRTASK+11
CHKTSK^QACMAIL0 KILLRLUP+4
$$FMTE^XLFDT DQRPT3+3, DQRPT3+12, DQRPT4+4
OUT^XPDMENU E0+5
EN^XUTMDEVQ EN3+6, EN4+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "QAC NEW option not found!"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!," The Patient Rep Options are currently "_$S(QACIO=0:"OUT OF ORDER.",1:"ACTIVE."),!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!," * Patient Rep Options have been "_$S(QACIO=0:"Reactivated.",1:"put OUT OF ORDER."),!
  • Line Location: E0+6
Function Call: WRITE
  • Prompt: !!," Stopping (killing) task that rolls up data to Austin..."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENRTASK+1
Function Call: WRITE
  • Prompt: !," * no action taken"
  • Line Location: ENRTASK+9
Function Call: WRITE
  • Prompt: !,"...processing task--please wait..."
  • Line Location: ENRTASK+10
Function Call: WRITE
  • Prompt: !," * Task has been rescheduled.",!," Data will be rolled up from Patient Rep to Austin."
  • Line Location: ENRTASK+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ENKTASK+1
Function Call: WRITE
  • Prompt: !," * no action taken"
  • Line Location: ENKTASK+9
Function Call: WRITE
  • Prompt: !," * No task is currently scheduled--rollup to Austin is stopped."
  • Line Location: KILLRLUP+6
Function Call: WRITE
  • Prompt: !!," * Task that rolls data up to Austin is currently running.",!," Please try later."
  • Line Location: KILLRLUP+7
Function Call: WRITE
  • Prompt: !," * No task is currently scheduled--rollup to Austin is stopped."
  • Line Location: KILLRLUP+9
Function Call: WRITE
  • Prompt: !!," * Error attempting to kill task "_ZTSK_"!",!," Please contact IRM staff for assistance."
  • Line Location: KILLRLUP+12
Function Call: WRITE
  • Prompt: !," * Task has been stopped (killed).",!," Data will not be rolled up from Patient Rep to Austin."
  • Line Location: KILLRLUP+13
Function Call: WRITE
  • Prompt: !!,"There are no Pending Notifications!",!!
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DQRPT3+5
Function Call: WRITE
  • Prompt: ROCNO,?13,QACFROM,?45,QACTO,!
  • Line Location: DQRPT3+15
Function Call: WRITE
  • Prompt: ?2,"Sent: "_DATESENT,!
  • Line Location: DQRPT3+16
Function Call: WRITE
  • Prompt: ?2,"Msg: ",$P(NOTIF0,"^",3),!!
  • Line Location: DQRPT3+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DQRPT4+11
Function Call: WRITE
  • Prompt: "** No data in staging area. **",!!
  • Line Location: DQRPT4+14
Function Call: WRITE
  • Prompt: "** Data moved to the staging area, ready to migrate to PATS **",!!
  • Line Location: DQRPT4+15
Function Call: WRITE
  • Prompt: "Total Number of ROCs:",$E(DASH,1,20),?42,CNT,!
  • Line Location: DQRPT4+17
Function Call: WRITE
  • Prompt: DSPTYPE(TYPE)_" ready to migrate:",$E(DASH,1,23-$L(DSPTYPE(TYPE))),?42,+$G(^XTMP("QACMIGR",TYPE,"U")),!
  • Line Location: DQRPT4+19
Function Call: WRITE
  • Prompt: ?8,"migrated:"_DASH,?42,+$G(^XTMP("QACMIGR",TYPE,"D")),!
  • Line Location: DQRPT4+20
Function Call: WRITE
  • Prompt: ?8,"with errors:"_$E(DASH,1,21),?42,+$G(^XTMP("QACMIGR",TYPE,"E")),!!
  • Line Location: DQRPT4+21
Function Call: WRITE
  • Prompt: !!,"**** ROC Status: "
  • Line Location: ENRSTAT+6
Function Call: WRITE
  • Prompt: "This ROC has been successfully migrated into PATS.",!
  • Line Location: ENRSTAT+7
Function Call: WRITE
  • Prompt: "This ROC has errors.",!
  • Line Location: ENRSTAT+8
Function Call: WRITE
  • Prompt: "This ROC is in the staging area, ready to migrate.",!
  • Line Location: ENRSTAT+9
Function Call: WRITE
  • Prompt: "No action has been taken for this ROC.",!
  • Line Location: ENRSTAT+10
Routine Call
  • DIC
  • Line Location:
    • ENRSTAT+3
Routine Call
  • DIC
  • Line Location:
    • EN+2
Routine Call
  • DIR
  • Line Location:
    • EN+12
    • ENRTASK+8
    • ENKTASK+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] FIND1^DIC,  GET1^DIQ
^QA(745.1 - [#745.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] DQRPT4+16
^VA(200 - [#200] DQRPT3+10, DQRPT3+11
^XTMP("QACMIGR" DQRPT4+13, DQRPT4+19, DQRPT4+20, DQRPT4+21, ENRSTAT+7, ENRSTAT+8, ENRSTAT+9
^XTV(8992 - [#8992] EN3+1, DQRPT3+7, DQRPT3+8, DQRPT3+9

Label References

Name Line Occurrences
$$KILLRLUP EN1+5, ENKTASK+10
E0 EN+14, EN1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQRPT3+1~, DQRPT3+3, DQRPT4+1~, DQRPT4+4
%H DQRPT3+1~, DQRPT4+1~
%I DQRPT3+1~, DQRPT4+1~
CNT DQRPT4+1~, DQRPT4+12*, DQRPT4+13*, DQRPT4+14, DQRPT4+16*, DQRPT4+17
DASH DQRPT4+1~, DQRPT4+3*, DQRPT4+17, DQRPT4+19, DQRPT4+20, DQRPT4+21
DATESENT DQRPT3+1~, DQRPT3+12*, DQRPT3+16
DIC ENRSTAT+1~, ENRSTAT+2*
DIC("A" ENRSTAT+2*
DIC(0 ENRSTAT+2*
DIR EN+1~, EN+7!, ENRTASK+1~, ENKTASK+1~
DIR("?" ENRTASK+4*, ENRTASK+5*, ENRTASK+6*, ENRTASK+7*, ENKTASK+4*, ENKTASK+5*, ENKTASK+6*, ENKTASK+7*
DIR("A" EN+9*, EN+10*, ENRTASK+2*, ENKTASK+2*
DIR("B" EN+11*, ENRTASK+3*, ENKTASK+3*
DIR(0 EN+11*, ENRTASK+3*, ENKTASK+3*
DSPTYPE DQRPT4+1~
DSPTYPE( DQRPT4+19
DSPTYPE("CC" DQRPT4+7*
DSPTYPE("EMPINV" DQRPT4+8*
DSPTYPE("FSOS" DQRPT4+9*
DSPTYPE("HL" DQRPT4+5*
DSPTYPE("PT" DQRPT4+6*
DSPTYPE("ROC" DQRPT4+5*
DSPTYPE("USER" DQRPT4+6*
ERRMSG DQRPT3+1~
HDDATE DQRPT3+1~, DQRPT3+3*, DQRPT4+1~, DQRPT4+4*
>> I DQRPT4+16*
IO DQRPT3+4, DQRPT4+10
LNCNT DQRPT3+1~, DQRPT3+2*, DQRPT3+5*, DQRPT3+14, DQRPT3+18*, DQRPT4+11*
NDATE DQRPT3+1~, DQRPT3+8*, DQRPT3+9, DQRPT3+12
NEWROC ENRSTAT+1~, ENRSTAT+5*, ENRSTAT+7, ENRSTAT+9
NIEN DQRPT3+1~, DQRPT3+8*, DQRPT3+9, DQRPT3+10
NKEY DQRPT3+1~, DQRPT3+6*, DQRPT3+7*, DQRPT3+8
NOTIF0 DQRPT3+1~, DQRPT3+9*, DQRPT3+11, DQRPT3+13, DQRPT3+17
OLDROC ENRSTAT+1~, ENRSTAT+4*, ENRSTAT+5, ENRSTAT+8
PAGENO DQRPT3+1~, DQRPT3+2*, DQRPT4+1~, DQRPT4+2*
PATSHDR EN3+2~, EN3+3*, EN4+1~, EN4+2*, EN4+4
PATSHDR(1 EN3+4*
QACFROM DQRPT3+1~, DQRPT3+11*, DQRPT3+15
QACHK KILLRLUP+2~, KILLRLUP+9
QACIEN EN+1~, EN+2*, EN+3, EN+4
QACIO EN+1~, EN+6*, EN+8, EN+10, E0+3, E0+6, EN1+2~*
QACOPT E0+1~, E0+2*, E0+5
QACTO DQRPT3+1~, DQRPT3+10*, DQRPT3+15
QACTXT E0+1~, E0+3*, E0+4*, E0+5
QACX EN+1~, EN+4*, EN+6
QACZTSK KILLRLUP+2~
ROCNO DQRPT3+1~, DQRPT3+13*, DQRPT3+15
TYPE DQRPT4+1~, DQRPT4+12*, DQRPT4+13, DQRPT4+18*, DQRPT4+19, DQRPT4+20, DQRPT4+21
X EN+1~, DQRPT3+1~, DQRPT4+1~, ENRSTAT+1~
Y EN+1~, EN+7!, EN+13, ENRTASK+1~, ENRTASK+9, ENKTASK+1~, ENKTASK+9, ENRSTAT+1~, ENRSTAT+3
Y(0 ENRSTAT+4
ZTSAVE EN3+5~, EN3+6, EN4+3~, EN4+4
ZTSAVE("PATSHDR" EN3+5*, EN4+3*
ZTSK KILLRLUP+2~, KILLRLUP+3*, KILLRLUP+6, KILLRLUP+12
ZTSK(0 KILLRLUP+12
ZTSK(1 KILLRLUP+7
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