Routine: MAGQBUT1

Entry Points

Name	Comments	DBIA/ICR reference
UBPW(WS,ASSIGN)	; screen for duplicate assignments
BPPS(INPUT,WS,PROCESS)	;INPUT TRANSFORM FOR FILE 2006.8
RSQUE(RESULT,IEN,QUEUE)	;[MAGQB RSQUE]
ICCL(SRVRCNT,NMESS,PLACE)	;UPDATE IMAGING DISTRIBUTION
MAILSHR(PLACE,APP,XMSUB)	;Shared Mail server code
ALLSERV(RESULT,GRP)	; BP Queue Processor ; RPC[MAGQ ALL SERVER] used for ServerSize update/display function - reports network resources ; Returns OnLine, network addressed, non-router, place related Magnetic shares ; it returns the share designated as the current Write location in the (0) indice ; it does not screen on READ-ONLY, and the list is group specific ; the function could be replaced by a fileman call from the GUI ; PHYSICAL REFERENCE^CWL or ien^FREE SPACE^TOTAL SPACE^NAME^GROUP^TYPE
ALLSHR(RESULT,TYPE)	; RPC[MAGQBP ALL SHARES] - Used by BP Purge ; screens off-line,read-only,routing share,non-mag,non-place,next group,current group,specific group(s)
FSUPDT(RESULT,IEN,SPACE,SIZE)	; File Server Update ; RPC[MAGQ FS UPDATE] ; Space is field #2 (Total Space)and is actually share size ; Size is field #4 (Free Space)
FSW(IX,SP,SZ)	;
QUEUER(QUE,FROM,TO)	;
MAPI(TYP,PARAM,CNT)	;
ABSOK(IEN)	; Verify that the Full Image Type is a supported by our ABSTRACT method
BPQSL(RESULT,TYPE)	; Called from MAGQUEMAN.PAS and MagSiteParameters.PAS ; RPC[MAGQB QSL]
CWGIC(CWG)	; Current RAID Group integrity check
GMEM(CWG,IEN)	; Update Current RAID Group

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must have a valid User ID (DUZ) to use this function!" Line Location: QUEUER+3
Function Call: WRITE	Prompt: !,"Only JBTOHD, PREFET, ABSTRACT, JUKEBOX, DELETE, EVAL & GCC queues are valid!" Line Location: QUEUER+6
Function Call: WRITE	Prompt: !,"Input values: ""Queue type"",""From Image IEN"",""To Image IEN""" Line Location: QUEUER+7
Function Call: WRITE	Prompt: !,"Image # "_INC Line Location: QUEUER+16
Function Call: WRITE	Prompt: !,"Image # "_INC Line Location: QUEUER+17
Function Call: WRITE	Prompt: !,CNT," TYPE: ",TYP,": ",PARAM_" QUEUE #: ",@("$$"_TYP_"^MAGBAPI(PARAM,PLACE)") Line Location: MAPI+3
Function Call: WRITE	Prompt: !,"Abstract not supported IEN/TYPE: "_IEN_"/"_TYPE Line Location: ABSOK+6