XUGOT ; DBA/CJS - COMPARE LOCAL/NATIONAL CHECKSUMS REPORT ;10/20/2006
Source file <XUGOT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOAD | ; -- use MFS to get ROUTINE file from FORUM (background job)
|
|
| CLEAN | ; clean all entries in subfile 9.818 if $G(^DIC(9.8,RTNIEN,6))=2 (national tracking)
|
|
| CLN(RTNIEN) | ; clean all entries in sub-file #9.818
|
|
| INPUT | ; input routines' information in Routine file
|
|
| SETFLD6(NAME) | ;
|
|
| PACK(RTN,SL) | ; get package name
|
|
| XUN4(XUS) | ;
|
|
| NPL2(IEN) | ; get Package name from Patch multiple
|
|
| LSLPN(SL) | ; return package name from the second line (piece 3rd of the second line)
|
|
| SL(SL) | ; get Prefix_Package from the second line
|
|
| RT(RTN) | ; get Package and Version base on routine name
|
|
| GETSL(RTN) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
