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

Package: Radiology Nuclear Medicine

Routine: RA27PST


Information

RA27PST ;HIRMFO/SWM - Clean up after Patch RA*5.0*27 ;12/28/01 14:06

Source Information

Source file <RA27PST.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  MES^XPDUTL  
VA FileMan 3 DD^%DT  (C,NOW)^%DTC  ^DIR  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
VERSION ;;5.0;Radiology/Nuclear Medicine;**27**;Mar 16, 1998
; *** Delete duplicate Clinical History from file #74 ***
QOFF ;Post-Install queues off clean-up job
MANUAL ;manually queue off clean-up job, only needed if post-install abends
ASKQ
EN ; delete duplicate clinical history from file 74
CHKHX ; Check History between file 70 and 74.
; Returns RADUPHX 1 = Duplicate
; 0 = Different
DELHX ; delete history portion from this report
MSG1 ;
MSG2 ;
INIT ; set point of latest ien processed
FINISH ; all done
MAIL ; Send mail message to the installer

External References

Name Field # of Occurrence
DD^%DT MANUAL+6, MANUAL+7
C^%DTC INIT+5
NOW^%DTC INIT+2
^%ZTLOAD QOFF+6, ASKQ+11
^DIR ASKQ+4
$$FMADD^XLFDT QOFF+5, ASKQ+10
$$NOW^XLFDT QOFF+5, ASKQ+10
^XMD MAIL+4
MES^XPDUTL QOFF+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** This entry point must be called from KIDS installation **",!!
  • Line Location: QOFF+1
Function Call: WRITE
  • Prompt: !!?5,"** DUZ is required! Nothing done. **",!!
  • Line Location: MANUAL+2
Function Call: WRITE
  • Prompt: !,"This clean-up was either never queued off by the Installation of RA*5.0*27,",!,"or it had been completed over 60 days ago.",!!
  • Line Location: MANUAL+5
Function Call: WRITE
  • Prompt: !!?2,"MANUAL^RA27PST was done previously on ",Y,!!
  • Line Location: MANUAL+6
Function Call: WRITE
  • Prompt: !!?2,"The installation of RA*5*27 tasked this job on ",Y,!?2,"but the job abended.",!!
  • Line Location: MANUAL+7
Function Call: WRITE
  • Prompt: !,"This clean-up was completed. You do not have to queue it again.",!!
  • Line Location: MANUAL+8
Function Call: WRITE
  • Prompt: !?2,"RA*5.0*27 cleanup will start in 2 minutes in the background."
  • Line Location: ASKQ+12
Function Call: WRITE
  • Prompt: !?2,"Task: "_ZTSK_".",!!
  • Line Location: ASKQ+13
Routine Call
  • DIR
  • Line Location:
    • ASKQ+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RADPT - [#70] CHKHX+9, CHKHX+12, CHKHX+18, CHKHX+22, MSG1+1
^RARPT - [#74] EN+13, CHKHX+4, CHKHX+5, CHKHX+11, CHKHX+18, DELHX+1, DELHX+2!, DELHX+3
^XTMP("RA-RA27PST" MANUAL+4, MANUAL+8, EN+8*, EN+9*, EN+11*, EN+13*, CHKHX+21*, DELHX+5*, MSG1+1*, MSG2+1*
, INIT+3, INIT+6*, INIT+7*, INIT+8*, INIT+9*, INIT+10*, FINISH+1*, FINISH+2*, FINISH+3*, FINISH+4*
, FINISH+5*

Label References

Name Line Occurrences
ASKQ MANUAL+5
CHKHX EN+13
DELHX EN+13
FINISH EN+15
INIT EN+10
MAIL EN+11, EN+16
MSG1 CHKHX+22
MSG2 DELHX+1

Naked Globals

Name Field # of Occurrence
^( EN+11*, INIT+3, FINISH+5*
^("LAST" INIT+3
^(0 MANUAL+4, CHKHX+12, INIT+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+2~, INIT+1~, INIT+2
%H INIT+1~
%I INIT+1~
%T INIT+1~
DIR ASKQ!, ASKQ+5!
DIR("?" ASKQ+2*
DIR("A" ASKQ+3*
DIR("B" ASKQ+1*
DIR(0 ASKQ+1*
DIROUT ASKQ!, ASKQ+5!
DIRUT ASKQ!, ASKQ+5!
DTOUT ASKQ!, ASKQ+5!
DUOUT ASKQ!, ASKQ+5!
DUZ MANUAL+2, MAIL+4
RA1 MANUAL+3~*, MANUAL+4*, MANUAL+5, MANUAL+6, MANUAL+7, EN+4~, EN+5*
RA2 EN+4~, EN+6*
RA3 EN+4~, EN+7*
RA70 EN+2~, CHKHX+12*, CHKHX+13, CHKHX+14, CHKHX+18
RA701 EN+2~, CHKHX+12*, CHKHX+13, CHKHX+18
RA74 EN+2~, CHKHX+11*, CHKHX+14
RACN EN+3~, CHKHX+7*, CHKHX+8, CHKHX+9
RACNI EN+3~, CHKHX+9*, CHKHX+10, CHKHX+12, CHKHX+18, CHKHX+22, MSG1+1
RACNT EN+2~, EN+3~, EN+13*, INIT+3*, INIT+4*
RAD0 EN+2~, EN+12*, EN+13*, CHKHX+4, CHKHX+5, CHKHX+11, CHKHX+18, CHKHX+22, DELHX+1, DELHX+2
, DELHX+3, MSG1+1, MSG2+1
RADELCNT EN+2~, DELHX+4*, DELHX+5, INIT+3*, INIT+4*
RADFN EN+2~, CHKHX+6*, CHKHX+8, CHKHX+9, CHKHX+12, CHKHX+18, CHKHX+22, MSG1+1
RADTI EN+2~, CHKHX+6*, CHKHX+8, CHKHX+9, CHKHX+12, CHKHX+18, CHKHX+22, MSG1+1
RADUPCNT EN+2~, CHKHX+20*, CHKHX+21, INIT+3*, INIT+4*
RADUPHX EN+3~, EN+13, CHKHX+3*, CHKHX+23*
RANODE EN+3~, CHKHX+5*, CHKHX+6, CHKHX+7, MSG1+1, MSG2+1
RANOW INIT+1~, INIT+2*, INIT+3, INIT+5, INIT+6
RAOK EN+3~, CHKHX+17*, CHKHX+18*, CHKHX+19
RAPOINT EN+3~, EN+11, EN+12, INIT+3*, INIT+4*
RATXT QOFF+2~, QOFF+8
RATXT(1 QOFF+6*
RATXT(2 QOFF+7*
RATXT(3 QOFF+8*
RAX EN+3~, CHKHX+14*
RAX1 EN+3~, CHKHX+18*
X INIT+1~, INIT+6
>> X1 INIT+5*
>> X2 INIT+5*
XMDUZ MAIL+1~*
XMSUB MAIL+1~, MAIL+3*
XMTEXT MAIL+1~, MAIL+2*
XMY MAIL+1~
XMY( MAIL+4*
>> XPDNM QOFF+1
Y MANUAL+6*, MANUAL+7*, ASKQ+6, INIT+1~
ZTDESC QOFF+2~, QOFF+4*, ASKQ+7~, ASKQ+9*
ZTDTH QOFF+2~, QOFF+5*, ASKQ+7~, ASKQ+10*
ZTIO QOFF+2~*, ASKQ+7~*
>> ZTREQ EN+1*
ZTRTN QOFF+2~, QOFF+3*, ASKQ+7~, ASKQ+8*
>> ZTSK QOFF+8, ASKQ+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All