ZIBVSS.m

ZIBVSS ; IHS/ADC/GTH - VENDOR SPECIFIC SUBROUTINES ; [ 10/29/2002   7:42 AM ]

 ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 ;XB*3*9 fixed LG,CG,GCH,GSZE,GR,GS,RCMP,RR,RS,RDEL,RSE,RSAND,NEWED,RCHANGE,RCOPY,RPRT,ER to work with Cache'

 ;XB*3*9 GSE,GE,GCHR,GDEL,REDIT don't currently work with Cache'

 ;

LG ;EP - List global

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GL",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%GL",$G(^%ZOSF("OS"))["OpenM":"^%G",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

CG ;EP - Copy global to another UCI

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%GCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

GSE ;EP - Search global for value

 D @$S($G(^%ZOSF("OS"))["MSM":"^%GSE",1:"OSNO^XB")

 Q

 ;

GE ;EP - Global edit

 D @$S($G(^%ZOSF("OS"))["MSM":"^%GEDIT",1:"OSNO^XB")

 Q

 ;

GCH ;EP - Change global value

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%GCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

GSZE ;EP - Global size/efficiency

 ;D @$S(^%ZOSF("OS")["MSM":"^%GE",1:"^%ZTBKC") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%GSIZE",1:"^%ZTBKC")

 Q

 ;

GCHR ;EP - Global characteristics

 D @$S($G(^%ZOSF("OS"))["MSM":"^%GCH",1:"OSNO^XB")

 Q

 ;

GDEL ;EP - Global delete

 D @$S($G(^%ZOSF("OS"))["MSM":"^%GDEL",1:"OSNO^XB")

 Q

 ;

GR ;EP - Global restore

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GR",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%GR",$G(^%ZOSF("OS"))["OpenM":"^%GI",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

GS ;EP - Global save

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GS",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%GS",$G(^%ZOSF("OS"))["OpenM":"^%GO",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RCMP ;EP - Compare routines in two UCIs

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCMP",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%RCMP",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RR ;EP - Restore routines

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RR",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%RR",$G(^%ZOSF("OS"))["OpenM":"^%RI",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RS ;EP - Save routines

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RS",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%RS",$G(^%ZOSF("OS"))["OpenM":"^%RO",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RDEL ;EP - Delete routines

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RDEL",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%RDEL",$G(^%ZOSF("OS"))["OpenM":"^%RDELETE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RSE ;EP - Search routines for values (OR)

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RSE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%RSE",$G(^%ZOSF("OS"))["OpenM":"^%RFIND",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RSAND ;EP - Search routines for values (AND)

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RSAND",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%RSAND",$G(^%ZOSF("OS"))["OpenM":"^%RFIND",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

NEWED ;EP - Find routines by edit date

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%NEWED",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%NEWED",$G(^%ZOSF("OS"))["OpenM":"^%RD",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

REDIT ;EP - Full screen editor

 ;Q:'($G(^%ZOSF("OS"))["MSM") ;IHS/SET/GTH XB*3*9 10/29/2002

 I '($G(^%ZOSF("OS"))["MSM") D OSNO^XB Q  ;IHS/SET/GTH XB*3*9 10/29/2002

 X "ZR  NEW (XB) X ^%E"

 Q

 ;

RCHANGE ;EP - Routine change

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%RCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RCOPY ;EP - Routine copy

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%RCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

RPRT ;EP - List routines

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RPRT",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM":"^%RPRT",$G(^%ZOSF("OS"))["OpenM":"^ZIBRPRTD",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

ER ;EP - Error report

 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%ER",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%ER",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 Q

 ;

ZIBVSS    ; IHS/ADC/GTH - VENDOR SPECIFIC SUBROUTINES ; [ 10/29/2002   7:42 AM ]

 +1       ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997

 +2       ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.

 +3       ;XB*3*9 fixed LG,CG,GCH,GSZE,GR,GS,RCMP,RR,RS,RDEL,RSE,RSAND,NEWED,RCHANGE,RCOPY,RPRT,ER to work with Cache'

 +4       ;XB*3*9 GSE,GE,GCHR,GDEL,REDIT don't currently work with Cache'

 +5       ;

LG        ;EP - List global

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GL",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%GL",$GET(^%ZOSF("OS"))["OpenM":"^%G",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

CG        ;EP - Copy global to another UCI

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM"!($GET(^%ZOSF("OS"))["OpenM"):"^%GCOPY",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

GSE       ;EP - Search global for value

 +1        DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%GSE",1:"OSNO^XB")

 +2        QUIT 

 +3       ;

GE        ;EP - Global edit

 +1        DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%GEDIT",1:"OSNO^XB")

 +2        QUIT 

 +3       ;

GCH       ;EP - Change global value

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM"!($GET(^%ZOSF("OS"))["OpenM"):"^%GCHANGE",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

GSZE      ;EP - Global size/efficiency

 +1       ;D @$S(^%ZOSF("OS")["MSM":"^%GE",1:"^%ZTBKC") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2        DO @$SELECT($GET(^%ZOSF("OS"))["MSM"!($GET(^%ZOSF("OS"))["OpenM"):"^%GSIZE",1:"^%ZTBKC")

 +3        QUIT 

 +4       ;

GCHR      ;EP - Global characteristics

 +1        DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%GCH",1:"OSNO^XB")

 +2        QUIT 

 +3       ;

GDEL      ;EP - Global delete

 +1        DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%GDEL",1:"OSNO^XB")

 +2        QUIT 

 +3       ;

GR        ;EP - Global restore

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GR",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%GR",$GET(^%ZOSF("OS"))["OpenM":"^%GI",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

GS        ;EP - Global save

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GS",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%GS",$GET(^%ZOSF("OS"))["OpenM":"^%GO",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RCMP      ;EP - Compare routines in two UCIs

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCMP",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM"!($GET(^%ZOSF("OS"))["OpenM"):"^%RCMP",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RR        ;EP - Restore routines

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RR",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%RR",$GET(^%ZOSF("OS"))["OpenM":"^%RI",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RS        ;EP - Save routines

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RS",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%RS",$GET(^%ZOSF("OS"))["OpenM":"^%RO",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RDEL      ;EP - Delete routines

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RDEL",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%RDEL",$GET(^%ZOSF("OS"))["OpenM":"^%RDELETE",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RSE       ;EP - Search routines for values (OR)

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RSE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%RSE",$GET(^%ZOSF("OS"))["OpenM":"^%RFIND",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RSAND     ;EP - Search routines for values (AND)

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RSAND",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%RSAND",$GET(^%ZOSF("OS"))["OpenM":"^%RFIND",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

NEWED     ;EP - Find routines by edit date

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%NEWED",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%NEWED",$GET(^%ZOSF("OS"))["OpenM":"^%RD",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

REDIT     ;EP - Full screen editor

 +1       ;Q:'($G(^%ZOSF("OS"))["MSM") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           IF '($GET(^%ZOSF("OS"))["MSM")

               DO OSNO^XB

               QUIT 

 +3        XECUTE "ZR  NEW (XB) X ^%E"

 +4        QUIT 

 +5       ;

RCHANGE   ;EP - Routine change

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM"!($GET(^%ZOSF("OS"))["OpenM"):"^%RCHANGE",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RCOPY     ;EP - Routine copy

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM"!($GET(^%ZOSF("OS"))["OpenM"):"^%RCOPY",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

RPRT      ;EP - List routines

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RPRT",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM":"^%RPRT",$GET(^%ZOSF("OS"))["OpenM":"^ZIBRPRTD",1:"OSNO^XB")

 +3        QUIT 

 +4       ;

ER        ;EP - Error report

 +1       ;D @$S($G(^%ZOSF("OS"))["MSM":"^%ER",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002

 +2       ;IHS/SET/GTH XB*3*9 10/29/2002

           DO @$SELECT($GET(^%ZOSF("OS"))["MSM"!($GET(^%ZOSF("OS"))["OpenM"):"^%ER",1:"OSNO^XB")

 +3        QUIT 

 +4       ;