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

Package: Imaging

Routine: MAGJMN1


Information

MAGJMN1 ;WIRMFO/JHC - VRad Maint functions ; 10 Sep 2014 10:35 AM

Source Information

Source file <MAGJMN1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^DIC  ^DIE  (EN,EN1)^DIP  EN^DIQ  EN^DIS  
Imaging 3 $$PLACE^MAGBAPI  $$IMGSIT^MAGJUTL1  INS^MAGQBUT4  
Kernel 1 $$NOW^XLFDT  

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

Package Total Caller Graph
Imaging 9 MAGJ E/E DEFAULT USER PROFILES  MAGJ E/E PREFETCH LOGIC  MAGJ E/E VISTARAD LISTS  MAGJ INQUIRE PREFETCH LOGIC  MAGJ LIST INQUIRY  MAGJ PREFETCH PRINT  MAGJ VISTARAD SITE PARAMETERS  MAGJENCK  
MAGJINI  
Vendor - ISI 1 ISIJINS1  

Entry Points

Name Comments DBIA/ICR reference
ENVCHK ; "Environment Check" for KIDS Install
SVRLIST ;
ENSRCH ; Invoke Search for 2006.631 def'n
BLDDEF(LSTID) ; build DEF nodes for Column/Sort defs
BLDDEF2(X) ;
POSTINST ; Patch installation inits, etc.
; D BLDALL ; update list definitions <*> Use any time fields are added
BLDALL ; Create "DEF" nodes, Button labels List Def'ns
; Updates all lists after s/w update list defs are installed
POST ; Install msg
YN(MSG,DFLT) ; get Yes/No reply
YN1
LSTINQ ; Inq/Disp list def'n
DISPSRCH(GREF) ; GREF holds indirect ref for global holding search logic data
VRSIT ;
EEPRO ;
EEPREF ;
INPREF ; Inquire VRad PreFetch
PRPREF ;Print VRad Prefetch
BGCSTOP ; Stop Background Compile program
BGCSTRT ; re-enable Background Compile
END ;

External References

Name Field # of Occurrence
^DIC SVRLIST+4, LSTINQ+5, VRSIT+4, EEPREF+4, INPREF+4
^DIE SVRLIST+9, VRSIT+6, VRSIT+13, EEPRO+10, EEPREF+7
EN^DIP INPREF+7
EN1^DIP PRPREF+3
EN^DIQ LSTINQ+8
EN^DIS ENSRCH+30
$$PLACE^MAGBAPI VRSIT+9
$$IMGSIT^MAGJUTL1 EEPRO+3
INS^MAGQBUT4 POST+1
$$NOW^XLFDT SVRLIST+12, BLDDEF+27, POST+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?10,"Enter/Edit VistARad Exams List Definition",!!
  • Line Location: SVRLIST+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You may not edit System-Supplied files!"
  • Line Location: SVRLIST+6
Function Call: WRITE
  • Prompt: !!,"List Definition complete!"
  • Line Location: SVRLIST+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENSRCH+12
Function Call: WRITE
  • Prompt: !!?7,"Re-entering the search logic requires first deleting the current",!?7,"definition, then entering the new definition from scratch."
  • Line Location: ENSRCH+15
Function Call: WRITE
  • Prompt: !!?7,"Now enter search logic for this List. To do this, the program"
  • Line Location: ENSRCH+19
Function Call: WRITE
  • Prompt: !?7,"will prompt you just as if you were going to run a Fileman Search."
  • Line Location: ENSRCH+20
Function Call: WRITE
  • Prompt: !?7,"When prompted STORE RESULTS OF SEARCH IN TEMPLATE:, answer with 'TEMP'"
  • Line Location: ENSRCH+21
Function Call: WRITE
  • Prompt: !?7,"If prompted ... OK TO PURGE? NO// answer 'YES'; don't bother specifying"
  • Line Location: ENSRCH+22
Function Call: WRITE
  • Prompt: !?7,"output print fields, but just RETURN through all the prompts to"
  • Line Location: ENSRCH+23
Function Call: WRITE
  • Prompt: !?7,"complete the process. The search definition will be saved as part"
  • Line Location: ENSRCH+24
Function Call: WRITE
  • Prompt: !?7,"of this List definition; you will test it out by running it from "
  • Line Location: ENSRCH+25
Function Call: WRITE
  • Prompt: !?7,"the workstation. If you need to modify the search logic, you will"
  • Line Location: ENSRCH+26
Function Call: WRITE
  • Prompt: !?7,"have to re-enter it in its entirety."
  • Line Location: ENSRCH+27
Function Call: WRITE
  • Prompt: !!?7,"NOTES: EXAM LOCK INDICATOR will not work for search logic;"
  • Line Location: ENSRCH+28
Function Call: WRITE
  • Prompt: !?14,"REMOTE CACHE INDICATOR only works for Null/Not Null logic."
  • Line Location: ENSRCH+29
Function Call: WRITE
  • Prompt: !!," Search logic NOT updated"
  • Line Location: ENSRCH+32
Function Call: WRITE
  • Prompt: " -- Deleted!"
  • Line Location: ENSRCH+35
Function Call: WRITE
  • Prompt: !
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: !,MSG_" "_DFLT_"// "
  • Line Location: YN1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: YN1+1
Function Call: WRITE
  • Prompt: " ??? Enter YES or NO",!
  • Line Location: YN1+2
Function Call: WRITE
  • Prompt: !!?15,"Display VistARad Exams List Definition",!!
  • Line Location: LSTINQ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTINQ+8
Function Call: READ
  • Formatting: !
  • Prompt: "Enter RETURN to display the Search Logic: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LSTINQ+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTINQ+9
Function Call: WRITE
  • Prompt: !,"List Exams where:",!
  • Line Location: DISPSRCH+1
Function Call: WRITE
  • Prompt: !?3,^(I)
  • Line Location: DISPSRCH+2
Function Call: WRITE
  • Prompt: !?3,"NO Search Logic defined!"
  • Line Location: DISPSRCH+3
Function Call: WRITE
  • Prompt: @IOF,!!?10,"Enter/Edit VistARad Site Parameters",!!
  • Line Location: VRSIT+1
Function Call: WRITE
  • Prompt: !!,"Editing VistARad Timeout for division #",DUZ(2),!
  • Line Location: VRSIT+12
Function Call: WRITE
  • Prompt: !!,"Editing default "_PROMPT_" profile ...",!
  • Line Location: EEPRO+8
Function Call: WRITE
  • Prompt: @IOF,!!?10,"Enter/Edit VistARad Prefetch Logic",!!
  • Line Location: EEPREF+1
Function Call: WRITE
  • Prompt: @IOF,!!?10,"Inquire VistARad Prefetch Logic",!!
  • Line Location: INPREF+1
Function Call: READ
  • Formatting: !
  • Prompt: "Enter RETURN to continue: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: INPREF+8
Function Call: WRITE
  • Prompt: !
  • Line Location: INPREF+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRPREF+2
Function Call: READ
  • Formatting: !
  • Prompt: "Enter RETURN to continue: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRPREF+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRPREF+4
Function Call: WRITE
  • Prompt: !!,*7,"Wait for Background Compile program to stop;"
  • Line Location: BGCSTOP+9
Function Call: WRITE
  • Prompt: !," this might take up to a few minutes."
  • Line Location: BGCSTOP+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: BGCSTOP+12
Function Call: WRITE
  • Prompt: !!,"Background Compile Stopped"
  • Line Location: BGCSTOP+15
Function Call: WRITE
  • Prompt: "; proceeding with install.",!
  • Line Location: BGCSTOP+16
Function Call: WRITE
  • Prompt: !!,*7," * * * Exiting out of patch installation * * * ",!
  • Line Location: BGCSTOP+22
Function Call: WRITE
  • Prompt: " ... Enabling background compile ."
  • Line Location: BGCSTRT+1
Function Call: WRITE
  • Prompt: !!,"Background Compile Enabled.",!
  • Line Location: BGCSTRT+5
Routine Call
  • DIC
  • Line Location:
    • SVRLIST+4
    • LSTINQ+5
    • VRSIT+4
    • EEPREF+4
    • INPREF+4
Routine Call
  • DIE
  • Line Location:
    • SVRLIST+9
    • VRSIT+6
    • VRSIT+13
    • EEPRO+10
    • EEPREF+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIBT - [#.401] ENSRCH+37
^MAG( VRSIT+3
^MAG(2006.63 - [#2006.63] BLDDEF2+7
^MAG(2006.631 - [#2006.631] SVRLIST+12*, ENSRCH+10, BLDDEF+3, BLDDEF+5, BLDDEF+13, BLDDEF+20*, BLDDEF+23, BLDDEF+26*, BLDDEF+27*, BLDALL+4
, BLDALL+9*, LSTINQ+7
^MAG(2006.69 - [#2006.69] BGCSTOP+3, BGCSTOP+5*, BGCSTOP+8*, BGCSTOP+20*!, BGCSTRT+1, BGCSTRT+3*, BGCSTRT+4!
^XTMP("MAGJ2" BGCSTOP+12, BGCSTOP+14

Label References

Name Line Occurrences
$$YN ENSRCH+13, ENSRCH+16, ENSRCH+34, BGCSTOP+18
BGCSTOP ENVCHK+3, BGCSTOP+21
BGCSTRT POSTINST+2
BLDDEF SVRLIST+11, BLDALL+6
BLDDEF2 BLDDEF+7, BLDDEF+8, BLDDEF+9, BLDDEF+11, BLDDEF+12, BLDDEF+14
DISPSRCH ENSRCH+12, LSTINQ+10
EEPREF EEPREF+7, EEPREF+8
ENSRCH SVRLIST+10
INPREF INPREF+9
LSTINQ LSTINQ+11
POST POSTINST+3
SVRLIST SVRLIST+6, SVRLIST+9, SVRLIST+14
YN1 YN1+2

Naked Globals

Name Field # of Occurrence
^( ENSRCH+39, ENSRCH+49, ENSRCH+52, ENSRCH+55, BLDDEF+23, BLDALL+4, DISPSRCH+2
^("BGSTOP" BGCSTRT+1
^(0 ENSRCH+48
^(1 BLDDEF+20*
^(4 ENSRCH+35!, ENSRCH+36!
^(5 ENSRCH+35!, ENSRCH+36!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BUTTON BLDALL+2~, BLDALL+5*, BLDALL+7, BLDALL+8*, BLDALL+9
BY INPREF+2~, INPREF+6*, PRPREF+1~, PRPREF+2*
CT ENSRCH+1~, ENSRCH+38*, ENSRCH+39*, ENSRCH+40, ENSRCH+41*, ENSRCH+49*, ENSRCH+50*, ENSRCH+52*, ENSRCH+53
DA SVRLIST+4!, SVRLIST+7*, SVRLIST+8, SVRLIST+9, LSTINQ+5!, LSTINQ+6*, VRSIT+4!, VRSIT+5*, VRSIT+7!, VRSIT+8*
, VRSIT+10*, VRSIT+11, VRSIT+14!, EEPRO+9~, EEPRO+10*, EEPREF+5*, EEPREF+6, EEPREF+7, INPREF+5*
DFLT YN~, YN+1*, YN+3*, YN1, YN1+1
DIARI ENSRCH+1~, ENSRCH+32, ENSRCH+37
DIC SVRLIST+3!*, SVRLIST+4!, SVRLIST+5, ENSRCH+1~, ENSRCH+30*, LSTINQ+4*, LSTINQ+5!, VRSIT+2*, VRSIT+3, VRSIT+4!
, VRSIT+7!, EEPREF+3!*, EEPREF+4!, INPREF+3*, INPREF+4!, PRPREF+2*
DIC(0 SVRLIST+3*, LSTINQ+4*, VRSIT+2*, EEPREF+3*, INPREF+3*
DIE SVRLIST+4!, SVRLIST+7*, VRSIT+4!, VRSIT+5*, VRSIT+7!, VRSIT+13*, VRSIT+14!, EEPRO+9~, EEPRO+10*, EEPREF+4!
, EEPREF+5*
>> DIS(0 INPREF+6*
DLAYGO SVRLIST+3*, SVRLIST+4!, VRSIT+3*, VRSIT+4!, VRSIT+7!, EEPREF+3*, EEPREF+4!
DR SVRLIST+4!, SVRLIST+7*, LSTINQ+5!, LSTINQ+6!, VRSIT+4!, VRSIT+5*, VRSIT+7!, VRSIT+13*, VRSIT+14!, EEPRO+9~
, EEPRO+10*, EEPREF+4!, EEPREF+5*
DTIME YN1+1, LSTINQ+9, INPREF+8, PRPREF+4
DUZ POST+1
DUZ(2 VRSIT+9, VRSIT+12, EEPRO+3
FIELD EEPRO+3~, EEPRO+4*, EEPRO+7, EEPRO+10
FNOD ENSRCH+1~, ENSRCH+38*, ENSRCH+39, ENSRCH+41*, ENSRCH+47, ENSRCH+48, ENSRCH+49, ENSRCH+52
FR INPREF+2~, INPREF+5*
GLIN ENSRCH+1~, ENSRCH+37*, ENSRCH+39, ENSRCH+47, ENSRCH+48, ENSRCH+49, ENSRCH+52, ENSRCH+55
GO ENSRCH+1~, ENSRCH+11*, ENSRCH+14*, ENSRCH+17*, ENSRCH+18, BGCSTOP+1~, BGCSTOP+2*, BGCSTOP+19*, BGCSTOP+21, BGCSTOP+22
GREF ENSRCH+1~, ENSRCH+10*, ENSRCH+11, ENSRCH+12, ENSRCH+33, ENSRCH+35, ENSRCH+36, ENSRCH+39, ENSRCH+40, ENSRCH+49
, ENSRCH+50, ENSRCH+52, ENSRCH+53, ENSRCH+55, LSTINQ+1~, LSTINQ+7*, LSTINQ+10, DISPSRCH~, DISPSRCH+1, DISPSRCH+2
HASCASE BLDDEF+1~, BLDDEF+2*, BLDDEF+7, BLDDEF2+2*
HASDATE BLDDEF+1~, BLDDEF+2*, BLDDEF+8, BLDDEF2+3*
HASLOCK BLDDEF+1~, BLDDEF+2*, BLDDEF+11, BLDDEF2+5*
HASNIMG BLDDEF+1~, BLDDEF+2*, BLDDEF+9, BLDDEF2+4*
HASPRIO BLDDEF+1~, BLDDEF+2*, BLDDEF+12, BLDDEF2+6*
>> I DISPSRCH+2*, BGCSTOP+12*
IOF SVRLIST+1, VRSIT+1, EEPREF+1, INPREF+1
>> L INPREF+5*, PRPREF+2*
LISTYPE BLDDEF+1~, BLDDEF+3*, BLDDEF+10
LSTDAT BLDALL+2~, BLDALL+4*, BLDALL+5, BLDALL+6
LSTHDR BLDDEF+1~, BLDDEF+16*, BLDDEF+19*, BLDDEF+20
LSTID BLDDEF~, BLDDEF+3, BLDDEF+5, BLDDEF+13, BLDDEF+20, BLDDEF+23, BLDDEF+26, BLDDEF+27
LSTNUM BLDALL+2~, BLDALL+5*, BLDALL+6, BLDALL+8
LSTTYP BLDALL+2~, BLDALL+5*, BLDALL+7, BLDALL+8
MAGCSTRT BGCSTOP+1~, BGCSTOP+2*, BGCSTOP+6*
MAGIEN SVRLIST+2~, SVRLIST+8*, SVRLIST+11, SVRLIST+12, ENSRCH+10, LSTINQ+1~, LSTINQ+3~, LSTINQ+6*, LSTINQ+7, EEPREF+2~
, EEPREF+6*, INPREF+2~, INPREF+5*
MAGJKIDS ENVCHK+2~*, BGCSTOP+16, BGCSTOP+22
MSG YN~, YN1
NCOND ENSRCH+1~, ENSRCH+47*, ENSRCH+50
NODE0 ENSRCH+1~, ENSRCH+48*, ENSRCH+49, ENSRCH+50
NTRY BGCSTOP+1~, BGCSTOP+11*, BGCSTOP+12
PLACE VRSIT+8~, VRSIT+9*, VRSIT+10
PROMPT EEPRO+7~*, EEPRO+8
QX BLDDEF+1~, BLDDEF+16*, BLDDEF+17*
RETRY BGCSTOP+1~, BGCSTOP+19*, BGCSTOP+21
SITEPIEN EEPRO+3~*, EEPRO+10
SS BLDDEF+1~, BLDDEF+2*, BLDDEF+5*, BLDDEF+6, BLDDEF+13, BLDDEF+22*, BLDDEF+23*, BLDALL+2~, BLDALL+3*, BLDALL+4*
, BLDALL+6, BLDALL+9
STR BLDDEF+1~, BLDDEF+16*, BLDDEF+18*, BLDDEF+20, BLDDEF+22*, BLDDEF+25*, BLDDEF+26
T ENSRCH+39*, ENSRCH+49*, ENSRCH+52*, ENSRCH+55*, BLDDEF+1~
T( BLDDEF2+11*
T0 BLDDEF+1~, BLDDEF2+7*, BLDDEF2+8, BLDDEF2+9
T6 BLDDEF+1~, BLDDEF2+7*, BLDDEF2+11
T8 BLDDEF+1~, BLDDEF2+8*, BLDDEF2+9
TNOD ENSRCH+1~, ENSRCH+38*, ENSRCH+39, ENSRCH+40, ENSRCH+41*, ENSRCH+49, ENSRCH+50, ENSRCH+52, ENSRCH+53, ENSRCH+55*
TO INPREF+2~, INPREF+5*
U SVRLIST+5, SVRLIST+12, BLDDEF+3, BLDDEF+18, BLDDEF+19, BLDDEF+24, BLDDEF+25, BLDDEF+27, BLDDEF2+1, BLDDEF2+7
, BLDDEF2+8, BLDDEF2+9, BLDDEF2+11, BLDALL+5, BLDALL+6, BLDALL+9, INPREF+5, BGCSTOP+4, BGCSTOP+7
X SVRLIST+5*, SVRLIST+6, SVRLIST+13*, ENSRCH+13*, ENSRCH+14, ENSRCH+16*, ENSRCH+17, ENSRCH+34*, ENSRCH+35, ENSRCH+39*
, ENSRCH+49*, ENSRCH+52*, BLDDEF+1~, BLDDEF+7*, BLDDEF+8*, BLDDEF+9*, BLDDEF+11*, BLDDEF+12*, BLDDEF+13*, BLDDEF+14
, BLDDEF+17*, BLDDEF+18, BLDDEF+19, BLDDEF+23*, BLDDEF+24*, BLDDEF+25, BLDDEF2~, BLDDEF2+1*, BLDDEF2+2, BLDDEF2+3
, BLDDEF2+4, BLDDEF2+5, BLDDEF2+6, BLDDEF2+7, BLDDEF2+10, BLDDEF2+11, YN+1~, YN1+1*, YN1+2, YN1+3
, LSTINQ+9*, INPREF+8*, PRPREF+4*, BGCSTOP+1~, BGCSTOP+3*, BGCSTOP+4, BGCSTOP+5, BGCSTOP+7*, BGCSTOP+8, BGCSTOP+18*
, BGCSTOP+19, BGCSTRT+1*, BGCSTRT+3
>> XPDA POST+1
>> XPDENV ENVCHK+1
>> XPDNM POST+1
>> XPDQUIT BGCSTOP+22*
XT BLDDEF+1~, BLDDEF2+9*, BLDDEF2+10*, BLDDEF2+11
>> Y SVRLIST+4, SVRLIST+5, SVRLIST+7, LSTINQ+5, LSTINQ+6, VRSIT+4, VRSIT+5, EEPREF+4, EEPREF+5, INPREF+4
, INPREF+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All