Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls