SCRPBK2 ;MJK/ALB - RPC Broker Utilities ; 27 FEB 96
Source file <SCRPBK2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| NAMECHK(SCQNAME,SCUSER,SCERR,SCDUP) | ; -- actuallt scan xref for query name | |
| SAVEREC(SCQREC,SCIENS,SCERR) | ; -- actual save process | |
| CHKTYPE(SCTYPE) | ; -- special checks to see if file type is ok to use | |
| DELREC(SCQREC) | ; -- actually delete query record | |
| SAVERECQ | ||
| SAVEQ | ||
| GETFLDS(RPTID,SCAN) | ; -- build array of fields used/needed by report | |
| DELCHK(SCLOG,SCQREC) | ; -- check to see if query can be deleted ; -- is the query being used as a default by any user? | |
| SAVSEL(SCQREC,SCFDA,SCDFDA,SCERR,SCNEW) | ; ; -- determine which file selections were changed or deleted | |
| DELETE(SCDATA,SCQDEF) | ; -- delete a query record | |
| SAVFLD(SCQREC,SCFDA,SCDFDA,SCERR,SCNEW) | ; ; -- determine which fields were changed or deleted | |
| NAME(SCDATA,SCQNAME,SCUSER) | ; ; -- check to see if user has a query with same name ; ; input: SCQNAME -> query name ; SCUSER -> user id (DUZ) | |
| DELCHKQ | ||
| GETYPE(RPTID,SCAN) | ; -- build array of files used/needed by report | |
| SAVE(SCDATA,SCQDEF) | ; -- save query definition | |
| STRIP(SCQREC) | ; -- strip out inappropriate data for report type | 
| Name | Field # of Occurrence | 
|---|---|
| BLD^DIALOG | DELCHK+9 | 
| FILE^DIE | SAVEREC+24, SAVEREC+30 | 
| UPDATE^DIE | SAVEREC+28 | 
| ^DIK | DELREC+2 | 
| FDA^DILF | SAVEREC+10, SAVEREC+11, SAVEREC+12, SAVEREC+13, SAVEREC+14, SAVEREC+16, SAVFLD+14, SAVFLD+25, SAVFLD+26, SAVSEL+15 , SAVSEL+23 | 
| $$TYPE^SCRPBK | GETYPE+4 | 
| VALCHK^SCRPBK4 | SAVE+16 | 
| PARSE^SCRPBK5 | SAVE+12, DELETE+12 | 
| ERRCHK^SCUTBK3 | SAVE+25 | 
| HDREC^SCUTBK3 | SAVE+18, DELETE+14 | 
| $$NOW^XLFDT | SAVEREC+14 | 
| RPC Name | Call Tags | 
|---|---|
| SCRP QUERY SAVE | SAVE | 
| SCRP QUERY DELETE | DELETE | 
| SCRP QUERY CHECK NAME | NAME | 
| FileNo | Call Tags | 
|---|---|
| ^SD(404.95 - [#404.95] | Classic Fileman Calls | 
| 404.9502 | FDA^DILF | 
| 404.9503 | FDA^DILF | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^SCRS(403.35 - [#403.35] | DELCHK+5 | 
| ^SD(404.91 - [#404.91] | CHKTYPE+5 | 
| ^SD(404.92 - [#404.92] | GETFLDS+3, GETYPE+3 | 
| ^SD(404.93 - [#404.93] | SAVFLD+9, SAVFLD+21, GETFLDS+4 | 
| ^SD(404.95 - [#404.95] | SAVFLD+8, SAVSEL+7, NAMECHK+3, NAMECHK+4 | 
| Name | Line Occurrences | 
|---|---|
| $$CHKTYPE | GETYPE+5 | 
| $$NAMECHK | NAME+12 | 
| $$SAVEREC | SAVE+21 | 
| $$STRIP | SAVEREC+8 | 
| DELCHK | DELETE+13 | 
| DELCHKQ | DELCHK+5 | 
| DELREC | DELETE+15 | 
| GETFLDS | STRIP+3 | 
| GETYPE | STRIP+9 | 
| SAVEQ | SAVE+17 | 
| SAVFLD | SAVEREC+19 | 
| SAVSEL | SAVEREC+20 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | SAVFLD+8, SAVSEL+7, GETFLDS+3, GETYPE+3 | 
| ^(0 | SAVFLD+9, SAVSEL+8, GETFLDS+4 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DA | DELREC+1~, DELREC+2* | 
| DIERR | SAVE+10~, SAVE+17, SAVE+18, DELETE+10~, DELETE+14 | 
| DIK | DELREC+1~, DELREC+2* | 
| I | STRIP+1~ | 
| PARAM | DELCHK+3~ | 
| RPTID | GETFLDS~, GETFLDS+3, GETYPE~, GETYPE+3 | 
| SCAN | SAVFLD+3~, SAVSEL+3~, STRIP+1~, STRIP+3, STRIP+8!, STRIP+9, GETFLDS~, GETYPE~ | 
| SCAN( | SAVFLD+9*, SAVFLD+13, SAVFLD+14, SAVFLD+22, SAVSEL+8*, SAVSEL+12, SAVSEL+15, SAVSEL+21, STRIP+6, STRIP+12 , GETFLDS+4*, GETYPE+5* | 
| SCDATA | SAVE~, SAVE+18, SAVE+25, DELETE~, DELETE+14, NAME~ | 
| SCDATA(0 | SAVE+23*, DELETE+15 | 
| SCDATA(1 | NAME+13*, NAME+15* | 
| SCDFDA | SAVEREC+1~, SAVEREC+3*, SAVEREC+19, SAVEREC+20, SAVEREC+23, SAVEREC+24, SAVFLD~, SAVFLD+14, SAVSEL~, SAVSEL+15 | 
| SCDUP | NAME+11~, NAME+12, NAME+15, NAMECHK~, NAMECHK+4* | 
| SCERR | SAVE+10~, SAVE+21, SAVE+25, SAVEREC~, SAVEREC+3*, SAVEREC+10, SAVEREC+11, SAVEREC+12, SAVEREC+13, SAVEREC+14 , SAVEREC+16, SAVEREC+19, SAVEREC+20, SAVEREC+24, SAVEREC+28, SAVEREC+30, SAVFLD~, SAVFLD+14, SAVFLD+25, SAVFLD+26 , SAVSEL~, SAVSEL+15, SAVSEL+23, NAME+11~, NAME+12, NAMECHK~ | 
| SCERR("DIERR" | SAVERECQ | 
| SCERS | SAVE+10~ | 
| SCFDA | SAVEREC+1~, SAVEREC+3*, SAVEREC+10, SAVEREC+11, SAVEREC+12, SAVEREC+13, SAVEREC+14, SAVEREC+16, SAVEREC+19, SAVEREC+20 , SAVEREC+28, SAVEREC+30, SAVFLD~, SAVFLD+25, SAVFLD+26, SAVSEL~, SAVSEL+23 | 
| SCFILE | SAVEREC+1~, SAVEREC+2*, SAVEREC+10, SAVEREC+11, SAVEREC+12, SAVEREC+13, SAVEREC+14, SAVEREC+16 | 
| SCFLD | SAVFLD+3~, SAVFLD+12*, SAVFLD+13*, SAVFLD+14, SAVFLD+17*, SAVFLD+18*, SAVFLD+20, SAVFLD+21, SAVFLD+22, STRIP+1~ , STRIP+4*, STRIP+5*, STRIP+6 | 
| SCFLDI | SAVFLD+19~, SAVFLD+21*, SAVFLD+25 | 
| SCHIT | SAVSEL+3~, SAVSEL+13*, SAVSEL+14*, SAVSEL+15 | 
| SCI | SAVFLD+3~, SAVFLD+7*, SAVFLD+8*, SAVFLD+9, SAVSEL+3~, SAVSEL+6*, SAVSEL+7*, SAVSEL+8, NAMECHK+2*, NAMECHK+3* , NAMECHK+4, GETFLDS+1~, GETFLDS+2*, GETFLDS+3*, GETYPE+1~, GETYPE+2*, GETYPE+3* | 
| SCIEN | SAVFLD+19~, SAVFLD+23*, SAVFLD+24, SAVFLD+25, SAVFLD+26, SAVSEL+22*, SAVSEL+23 | 
| SCIENS | SAVE+10~, SAVE+21, SAVEREC~, SAVEREC+3*, SAVEREC+28 | 
| SCIENS(1 | SAVE+23 | 
| SCLOG | SAVE+10~, SAVE+15*, SAVE+16, DELETE+10~, DELETE+11*, DELETE+13, DELCHK~, DELCHK+9 | 
| SCMOD | SAVEREC+1~, SAVEREC+8*, SAVERECQ, STRIP+1~, STRIP+2*, STRIP+6*, STRIP+12*, STRIP+13 | 
| SCNEW | SAVEREC+1~, SAVEREC+18*, SAVEREC+19, SAVEREC+20, SAVEREC+27, SAVFLD~, SAVFLD+23*, SAVSEL~, SAVSEL+22* | 
| SCOK | NAMECHK+1~, NAMECHK+2*, NAMECHK+3, NAMECHK+4*, NAMECHK+5, CHKTYPE+1~*, CHKTYPE+2*, CHKTYPE+5*, CHKTYPE+6 | 
| >> SCPARM | DELCHK+9 | 
| >> SCPARM("QUERY | NAME" , DELCHK+8* | 
| SCPROC | SAVE+10~, SAVE+11*, SAVE+25 | 
| SCQDEF | SAVE~, SAVE+12, DELETE~, DELETE+12 | 
| SCQNAME | NAME~, NAME+12, NAMECHK~, NAMECHK+4 | 
| SCQREC | SAVE+10~, SAVE+12, SAVE+16, SAVE+21, SAVEREC~, SAVEREC+8, SAVEREC+19, SAVEREC+20, SAVFLD~, SAVSEL~ , DELETE+10~, DELETE+12, DELETE+13, DELETE+15, DELCHK~, DELREC~, STRIP~ | 
| SCQREC("ACCESSID" | SAVEREC+12 | 
| SCQREC("CREATORID" | SAVEREC+11 | 
| SCQREC("DESCRIPTION" | SAVEREC+15, SAVEREC+16 | 
| SCQREC("FIELDS" | SAVFLD+13, SAVFLD+18, SAVFLD+20, STRIP+5, STRIP+6! | 
| SCQREC("NAME" | SAVEREC+10, DELCHK+8 | 
| SCQREC("QUERYID" | SAVE+23, SAVEREC+4, SAVFLD+4, SAVSEL+4, DELCHK+4, DELREC+2 | 
| SCQREC("REPORTID" | SAVEREC+13, STRIP+3, STRIP+9 | 
| SCQREC("SELECTIONS" | SAVSEL+14, SAVSEL+19, SAVSEL+21, STRIP+11, STRIP+12! | 
| SCQRY | SAVEREC+1~, SAVEREC+4*, SAVEREC+10, SAVEREC+11, SAVEREC+12, SAVEREC+13, SAVEREC+14, SAVEREC+16, SAVEREC+18, SAVFLD+3~ , SAVFLD+4*, SAVFLD+8, SAVFLD+14, SAVFLD+25, SAVFLD+26, SAVSEL+3~, SAVSEL+4*, SAVSEL+7, SAVSEL+15, SAVSEL+23 , DELCHK+3~, DELCHK+4*, DELCHK+5 | 
| SCSEL | SAVSEL+3~, SAVSEL+11*, SAVSEL+12*, SAVSEL+14, SAVSEL+15, SAVSEL+20*, SAVSEL+21*, SAVSEL+23 | 
| SCSTAT | SAVE+10~, SAVE+21*, SAVE+22, SAVE+23 | 
| SCTYPE | SAVSEL+3~, SAVSEL+13*, SAVSEL+14*, SAVSEL+18*, SAVSEL+19*, SAVSEL+21, STRIP+10*, STRIP+11*, STRIP+12, GETYPE+4* , GETYPE+5, CHKTYPE~, CHKTYPE+2, CHKTYPE+5 | 
| SCUR | SAVFLD+3~, SAVFLD+19~, SAVFLD+22*, SAVFLD+23, SAVFLD+24, SAVSEL+3~ | 
| SCUSER | NAME~, NAME+12, NAMECHK~, NAMECHK+3 | 
| SCVAL | SAVFLD+19~, SAVFLD+20*, SAVFLD+24, SAVFLD+26 | 
| SCVM | SAVE+10~, SAVE+15*, SAVE+16 | 
| SCX | GETFLDS+1~, GETFLDS+3*, GETFLDS+4, GETYPE+1~, GETYPE+3*, GETYPE+4, GETYPE+5 | 
| SDI | NAMECHK+1~ | 
| U | SAVE+23, SAVERECQ, SAVFLD+9, SAVFLD+24, SAVSEL+8, NAMECHK+4, GETFLDS+4, CHKTYPE+5 | 
| X | SAVFLD+8*, SAVFLD+9, SAVSEL+7*, DELREC+1~, STRIP+1~ |