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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QAC20PST

Package: Patient Representative

Routine: QAC20PST


Information

QAC20PST ;ALB/TKW,RRG - POST-INSTALL FOR PATCH QAC*2*20 Repair ROC numbers ;12/06/06 14:30

Source Information

Source file <QAC20PST.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 ^%ZTLOAD  $$FMTE^XLFDT  BMES^XPDUTL  $$STA^XUAF4  EN^XUTMDEVQ  
VA FileMan 3 (,DD)^%DT  NOW^%DTC  FILE^DIE  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
ENV ; Environment Check
EN ;
START ;
FIX ; Repair ROC numbers
ENRPT ; Setup to print report of invalid ROCs
DQRPT ; Print report of invalid ROCs
HDR
TIME ;Get current time
XMT ;Send report via mail message

External References

Name Field # of Occurrence
^%DT ENV+4
DD^%DT TIME+3
NOW^%DTC ENV+3, DQRPT+3, TIME+1
^%ZTLOAD EN+2
FILE^DIE FIX+8
$$FMTE^XLFDT DQRPT+3
^XMD XMT+7
BMES^XPDUTL EN+3
$$STA^XUAF4 START+12
EN^XUTMDEVQ ENRPT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENV+3
Function Call: WRITE
  • Prompt: !!,"Cannot install the patch without queuing the post-install. Install aborted!",!
  • Line Location: ENV+4
Function Call: WRITE
  • Prompt: !,IEN,?20,$S(ROCNO=" ":"Missing",1:ROCNO),?45,$S(NEWROC="":"Cannot be fixed",1:NEWROC)
  • Line Location: DQRPT+9
Function Call: WRITE
  • Prompt: #,!,"Report of Invalid ROCs",?43,HDDATE,?68,"Page "_PAGENO,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "IEN",?20,"Old ROC Number",?45,"Suggested New ROC Number",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HDR+3
Routine Call
  • DIE
  • Line Location:
    • FIX+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(740 - [#740] START+12
^QA(745.1 - [#745.1] START+16, START+28
^TMP("QACROCNO" START+2!, START+17*, START+21*, START+23, START+33, START+34, START+35, START+38*, FIX+3, FIX+4
FIX+5, DQRPT+5, DQRPT+6, DQRPT+8
^TMP($J START+6!, START+9*, START+13*, START+23*, FIX+5*, FIX+6*, FIX+12*, XMT+1

Label References

Name Line Occurrences
HDR DQRPT+4, DQRPT+7
TIME START+8
XMT START+13, START+23, FIX+13

Naked Globals

Name Field # of Occurrence
^( START+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENV+3, DQRPT+1~, DQRPT+3, TIME+2
%DT ENV+3!*, ENV+4!
%DT("A" ENV+3*
%DT(0 ENV+3*
%H DQRPT+1~
%I DQRPT+1~
CNT FIX+1~, FIX+2*, FIX+9*, FIX+12
DIFROM XMT+2~
DIR START+1~
DTOUT ENV+4, ENV+5!
DUZ XMT+6
FDA FIX+1~, FIX+7!
FDA( FIX+7*
HDDATE DQRPT+1~, DQRPT+3*, HDR
I START+1~, START+16*, START+17, START+21, START+36*, START+37
IEN START+1~, START+33*, START+34, START+35, START+38, FIX+3*, FIX+4, FIX+5, FIX+7, DQRPT+1~
DQRPT+5*, DQRPT+6, DQRPT+8, DQRPT+9
IO DQRPT+4
LCNT START+4~, START+5*, START+9*, START+13*, START+23*, FIX+5*, FIX+6*, FIX+12*
LINE START+4~, START+5*
LINE2 START+4~, START+5*
LNCNT DQRPT+1~, DQRPT+2*, DQRPT+7, DQRPT+10*, HDR+4*
MESS START+4~, START+7*
MSG START+4~
MSG1 START+4~, START+7*
NEWROC START+1~, START+37*, START+38, FIX+5*, FIX+6, FIX+7, DQRPT+1~, DQRPT+8*, DQRPT+9
PAGENO DQRPT+1~, DQRPT+2*, HDRHDR+4*
PARENT START+1~, START+12*, START+13, START+19, START+28, START+29, START+37
QA0 START+1~, START+16*, START+18
ROCNO START+1~, START+16*, START+17, START+19, START+21, START+28*, START+29, START+34*, START+35, START+38
FIX+4*, FIX+5, FIX+6, DQRPT+1~, DQRPT+6*, DQRPT+8, DQRPT+9
TIME START+1~, TIME+4*
X HDR+2~*, HDR+3
XMDUZ XMT+2~, XMT+3*
XMSUB XMT+2~, XMT+4*
XMTEXT XMT+2~, XMT+5*
XMY XMT+2~
XMY( XMT+6*
>> XPDABORT ENV+4*
>> XPDENV ENV+2
>> XPDGREF ENV+5, EN+1
Y ENV+4, ENV+5, START+1~, TIME+2*, TIME+4
YR START+1~, START+18*, START+20, START+21, START+26*, START+27*, START+28, START+29, START+30, START+35*
START+36, START+37
YR( START+20*, START+27, START+29*, START+30*, START+35, START+36*
ZTDESC EN+2*!
ZTDTH EN+1*, EN+2!
ZTIO EN+2*!
ZTQUEUED EN+3, EN+4!
ZTRTN EN+2*!
ZTSAVE ENRPT+1~, ENRPT+3
ZTSAVE("PATSHDR" ENRPT+2*
ZTSK EN+3, EN+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All