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~ |