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

Package: Radiology Nuclear Medicine

Routine: RA34PST


Information

RA34PST ;HOIFO/SWM-Post install to correct entries in file 71 ;1/28/03 07:54

Source Information

Source file <RA34PST.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  MES^XPDUTL  
VA Fileman 3 EN^DDIOL  FILE^DIE  ^DIR  
Radiology Nuclear Medicine 2 PROC^RAO7MFN  $$ORQUIK^RAORDU  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
EN ; LOOP THRU FILE 71, FIELD .01
; remove SEMICOLON from it
; if proc is active, then call PROC^RAO7MFN to update OI file
ASKQ
SLOOP
REMOV ; remove ";"
MANUAL ;manually queue off Name correction job, only use if post-install abends
STOR ; store messages and totals
EXLOOP
QOFF ;Post-Install queues off File 71 Name correction job
MAIL ; Send mail message to the installer
CPRS ; update record in Orderable Items file 101.43

External References

Name Field # of Occurrence
^%ZTLOAD QOFF+7, ASKQ+13
EN^DDIOL QOFF+1, QOFF+2, MANUAL+1, ASKQ+8, ASKQ+14, ASKQ+15
FILE^DIE REMOV+3
^DIR ASKQ+5
PROC^RAO7MFN CPRS+7
$$ORQUIK^RAORDU CPRS+1
$$FMADD^XLFDT QOFF+6, ASKQ+12
$$NOW^XLFDT QOFF+6, ASKQ+12
^XMD MAIL+4
MES^XPDUTL QOFF+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RAMIS(71 - [#71] SLOOP, SLOOP+1, SLOOP+5, SLOOP+11, SLOOP+14, CPRS+3
^TMP($J STOR+2*

Label References

Name Line Occurrences
CPRS SLOOP+13
EXLOOP SLOOP
MAIL EXLOOP+7
REMOV SLOOP+13
SLOOP SLOOP+1, SLOOP+16
STOR SLOOP+7, SLOOP+12, EXLOOP, EXLOOP+1, EXLOOP+2, EXLOOP+3, EXLOOP+4, EXLOOP+5, EXLOOP+6

Naked Globals

Name Field # of Occurrence
^("I" CPRS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR ASKQ!, ASKQ+6!
DIR("?" ASKQ+3*
DIR("A" ASKQ+4*
DIR("B" ASKQ+2*
DIR(0 ASKQ+2*
DIROUT ASKQ!, ASKQ+6!
DIRUT ASKQ!, ASKQ+6!
DT CPRS+3
DTOUT ASKQ!, ASKQ+6!
DUOUT ASKQ!, ASKQ+6!
DUZ QOFF+2, MANUAL+1, MAIL+4
RA1 EN+3~, SLOOP+3*, SLOOP+4, SLOOP+6, SLOOP+10, SLOOP+12
RA2 EN+3~, SLOOP+10*, SLOOP+11, SLOOP+12, REMOV+2, CPRS+6
RA3 EN+3~, SLOOP+6*, SLOOP+12*, EXLOOP*, EXLOOP+1*, EXLOOP+2*, EXLOOP+3*, EXLOOP+4*, EXLOOP+5*, EXLOOP+6*
, STOR+1, STOR+2
RABADTOT EN+3~, EN+4*, SLOOP+8*, EXLOOP+6
RAC EN+3~, EN+4*, STOR+2*
RAC1 EN+3~, EN+4*, EXLOOP+4, REMOV+1*
RAC2 EN+3~, EN+4*, EXLOOP+5, CPRS+4*
RACTOT EN+3~, EN+4*, SLOOP+2*, EXLOOP+3
RAFDA EN+3~, REMOV+4!
RAFDA(71 REMOV+2*
RAI EN+3~, EN+4*, SLOOP*, SLOOP+1, SLOOP+5, SLOOP+6, SLOOP+12, SLOOP+14, REMOV+2, CPRS+3
, CPRS+6
RASTAT EN+3~, CPRS+5*, CPRS+7
RATXT QOFF+3~, QOFF+13
RATXT(1 QOFF+7*
RATXT(2 QOFF+8*
RATXT(3 QOFF+9*
RATXT(4 QOFF+10*
RATXT(5 QOFF+11*
RATXT(6 QOFF+12*
RAX ASKQ+1~, ASKQ+15*, EN+3~, SLOOP+1*, SLOOP+3
RAY EN+3~, CPRS+6*, CPRS+7
XMDUZ MAIL+1~*
XMSUB MAIL+1~, MAIL+3*
XMTEXT MAIL+1~, MAIL+2*
XMY MAIL+1~
XMY( MAIL+4*
>> XPDNM QOFF+1
>> Y ASKQ+7
ZTDESC QOFF+3~, QOFF+5*, ASKQ+9~, ASKQ+11*
ZTDTH QOFF+3~, QOFF+6*, ASKQ+9~, ASKQ+12*
ZTIO QOFF+3~*, ASKQ+9~*
>> ZTQUEUED EXLOOP+8
>> ZTREQ EXLOOP+8*
ZTRTN QOFF+3~, QOFF+4*, ASKQ+9~, ASKQ+10*
>> ZTSK QOFF+9, ASKQ+15
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All