PSJOCVAR.m

PSJOCVAR ;BIR/RSB-SAVE/RESTORE VARIABLES FOR OC  ;24 Feb 99 / 10:42 AM

 ;;5.0; INPATIENT MEDICATIONS ;**16,22,30,58,181**;16 DEC 97;Build 190

 ;

 NEW PSJVAR,PSJVAR1,PSJX

 ; saves the variables in ^TMP

 K ^TMP("PSJOCVAR",$J),^TMP("PSJOCVAR_DRG",$J),^TMP("PSJOCVAR_PS5345",$J)

 F PSJVAR1=1:1 S PSJVAR=$P($T(LIST+PSJVAR1),";;",2) Q:PSJVAR=""  D

 .I $D(@PSJVAR) S:$D(@PSJVAR)'=10 ^TMP("PSJOCVAR",$J,PSJVAR)=@PSJVAR

 I $D(DRG) MERGE ^TMP("PSJOCVAR_DRG",$J)=DRG

 ;save off local array

 F PSJX="P(","PSGEFN(","PSGVADR(","PSGVALG(","VADM(","VAIN(","VAIP(" D SVARRAY

 D SAVEPS ; Save the ^PS(53.45,DUZ,2) entry

 Q

SVARRAY ;  Save array to ^TMP

 NEW PSJVARX,X

 S PSJVARX=PSJX_"X)"

 S X="" F  S X=$O(@PSJVARX) Q:X=""  S ^TMP("PSJOCVAR",$J,PSJX_$S(+X=X:X,1:""""_X_"""")_")")=@PSJVARX

 Q

RESTORE ;  restores the variables from ^TMP

 NEW PSJVAR

 S PSJVAR="" F  S PSJVAR=$O(^TMP("PSJOCVAR",$J,PSJVAR)) Q:PSJVAR=""  D

 .S @PSJVAR=^TMP("PSJOCVAR",$J,PSJVAR)

 I $D(^TMP("PSJOCVAR_DRG",$J)) K DRG MERGE DRG=^TMP("PSJOCVAR_DRG",$J)

 K ^TMP("PSJOCVAR",$J),^TMP("PSJOCVAR_DRG",$J),^TMP("PSJOCVAR_PS5345",$J,DUZ)

 D RESPS ; Restore any saved ^PS(53.45,DUZ,2) and ^PS(53.45,DUZ,4) entries

 Q

SAVEPS ; Save the ^PS(53.45,DUZ,2) entry

 NEW PSJLOOP,PSJBLOOP

 ; Save the 2,0) node

 I $D(^PS(53.45,DUZ,2,0)) D

 .S ^TMP("PSJOCVAR_PS5345",$J,DUZ,2,0)=^PS(53.45,DUZ,2,0)

 ;Save the 2,n,0) nodes

 S PSJLOOP=0

 F PSJLOOP=$O(^PS(53.45,DUZ,2,PSJLOOP)) Q:(PSJLOOP="")!(PSJLOOP="B")  D

 .S ^TMP("PSJOCVAR_PS5345",$J,DUZ,2,PSJLOOP,0)=^PS(53.45,DUZ,2,PSJLOOP,0)

 ;Save the 2,"B" node

 I $D(^PS(53.45,DUZ,2,"B")) D

 .S PSJBLOOP=""

 .F PSJBLOOP=$O(^PS(53.45,DUZ,2,"B",PSJBLOOP)) Q:PSJBLOOP=""  D

 ..S PSJCOUNT=""

 ..F PSJCOUNT=$O(^PS(53.45,DUZ,2,"B",PSJBLOOP,PSJCOUNT)) Q:PSJCOUNT=""  D

 ...S ^TMP("PSJOCVAR_PS5345",$J,DUZ,2,"B",PSJBLOOP,PSJCOUNT)=^PS(53.45,DUZ,2,"B",PSJBLOOP,PSJCOUNT)

 Q

RESPS ; Restore any saved ^PS(53.45,DUZ,2) entry

 NEW PSJLOOP,PSJBLOOP,PSJCOUNT

 ;Restore the 2,0 node

 I $D(^TMP("PSJOCVAR_PS5345",$J,DUZ,2,0)) D

 .S ^PS(53.45,DUZ,2,0)=^TMP("PSJOCVAR_PS5345",$J,DUZ,2,0)

 ;Restore the 2,n,o) nodes

 S PSJLOOP=0

 F PSJLOOP=$O(^TMP("PSJOCVAR_PS5345",$J,DUZ,2,PSJLOOP)) Q:(PSJLOOP="")!(PSJLOOP="B")  D

 .S ^PS(53.45,DUZ,2,PSJLOOP,0)=^TMP("PSJOCVAR_PS5345",$J,DUZ,2,PSJLOOP,0)

 ;Restore the 2,"B" nodes

 I $D(^TMP("PSJOCVAR_PS5345",$J,DUZ,2,"B")) D

 .S PSJBLOOP=""

 .F PSJBLOOP=$O(^TMP("PSJOCVAR_PS5345",$J,DUZ,2,"B",PSJBLOOP)) Q:PSJBLOOP=""  D

 ..S PSJCOUNT=""

 ..F PSJCOUNT=$O(^TMP("PSJOCVAR_PS5345",$J,DUZ,2,"B",PSJBLOOP,PSJCOUNT)) Q:PSJCOUNT=""  D

 ...S ^PS(53.45,DUZ,2,"B",PSJBLOOP,PSJCOUNT)=^TMP("PSJOCVAR_PS5345",$J,DUZ,2,"B",PSJBLOOP,PSJCOUNT)

 K ^TMP("PSJOCVAR_PS5345",$J,DUZ)

 Q

LIST ;

 ;;ADM

 ;;AL

 ;;C

 ;;CHK

 ;;DDH

 ;;DFN

 ;;DN

 ;;DRGI

 ;;DRGN

 ;;DRGT

 ;;DX

 ;;DY

 ;;FIL

 ;;FQ

 ;;GMRA

 ;;GMRAL

 ;;HDT

 ;;I

 ;;INFUSE

 ;;J

 ;;LIMIT

 ;;LINE

 ;;LOC

 ;;N

 ;;NAD

 ;;ND

 ;;ND0

 ;;ND2

 ;;ND4

 ;;ND6

 ;;NDP2

 ;;NEXT

 ;;NF

 ;;NO

 ;;O

 ;;ON

 ;;ON55

 ;;ORIFN

 ;;P16

 ;;P17

 ;;P(2)

 ;;P(3)

 ;;P(4)

 ;;P(5)

 ;;P(6)

 ;;P(7)

 ;;P(8)

 ;;P(9)

 ;;P(10)

 ;;P(11)

 ;;P(12)

 ;;P(13)

 ;;P(14)

 ;;P(15)

 ;;P(16)

 ;;P(17)

 ;;P(18)

 ;;P(19)

 ;;P(20)

 ;;P(21)

 ;;P(22)

 ;;P(23)

 ;;P(24)

 ;;P(25)

 ;;P("21FLG")

 ;;P("CLRK")

 ;;P("CUM")

 ;;P("DO")

 ;;P("DTYP")

 ;;P("FRES")

 ;;P("INS")

 ;;P("IVRM")

 ;;P("LF")

 ;;P("LFA")

 ;;P("LOG")

 ;;P("MR")

 ;;P("NEWON")

 ;;P("OLDON")

 ;;P("OPI")

 ;;P("OT")

 ;;P("PD")

 ;;P("PON")

 ;;P("PRY")

 ;;P("REM")

 ;;P("REN")

 ;;P("RES")

 ;;P("SYRS")

 ;;PF

 ;;PPAGE

 ;;PPN

 ;;PROVIDER

 ;;PS

 ;;PSFDT

 ;;PSGACT

 ;;PSGADR

 ;;PSGADR(1)

 ;;PSGAT

 ;;PSGCANFL

 ;;PSGDFLG

 ;;PSGDI

 ;;PSGDRG

 ;;PSGDRGN

 ;;PSGDO

 ;;PSGDT

 ;;PSGEB

 ;;PSGEBN

 ;;PSGEFN

 ;;PSGF

 ;;PSGFD

 ;;PSGFDN

 ;;PSGHSM

 ;;PSGID

 ;;PSGIVAC

 ;;PSGIVBR

 ;;PSGLAD

 ;;PSGLAGE

 ;;PSGLBID

 ;;PSGLBSS

 ;;PSGLDOB

 ;;PSGLDT

 ;;PSGLDX

 ;;PSGLI

 ;;PSGLIN

 ;;PSGLPID

 ;;PSGLPN

 ;;PSGLPR

 ;;PSGLRB

 ;;PSGLSEX

 ;;PSGLSSN

 ;;PSGLTM

 ;;PSGLTS

 ;;PSGLWD

 ;;PSGLWDN

 ;;PSGLWGN

 ;;PSGLWP1

 ;;PSGLWP2

 ;;PSGMR

 ;;PSGMRN

 ;;PSGNEDFD

 ;;PSGNEF

 ;;PSGNESD

 ;;PSGOAT

 ;;PSGOD

 ;;PSGODDD

 ;;PSGODDD(1)

 ;;PSGODO

 ;;PSGODT

 ;;PSGOEA

 ;;PSGOEAV

 ;;PSGOEDMR

 ;;PSGOEEG

 ;;PSGOEEND

 ;;PSGOEEWF

 ;;PSGOENG

 ;;PSGOENOF

 ;;PSGOEPR

 ;;PSGOFD

 ;;PSGOFDN

 ;;PSGOHSM

 ;;PSGOINST

 ;;PSGOL

 ;;PSGOMR

 ;;PSGOMRN

 ;;PSGONC

 ;;PSGOP

 ;;PSGOPD

 ;;PSGOPDN

 ;;PSGOPR

 ;;PSGOPRN

 ;;PSGORD

 ;;PSGOSCH

 ;;PSGOSD

 ;;PSGOSDN

 ;;PSGOSI

 ;;PSGOSM

 ;;PSGOST

 ;;PSGOSTN

 ;;PSGP

 ;;PSGP(0)

 ;;PSGPD

 ;;PSGPDN

 ;;PSGPDRG

 ;;PSGPDRGN

 ;;PSGPI

 ;;PSGPR

 ;;PSGPRIO

 ;;PSGPRN

 ;;PSGPTMP

 ;;PSGPTS

 ;;PSGPXN

 ;;PSGRRF

 ;;PSGSCH

 ;;PSGSD

 ;;PSGSDN

 ;;PSGSI

 ;;PSGSM

 ;;PSGSOXT

 ;;PSGSOY

 ;;PSGS0Y

 ;;PSGSS

 ;;PSGSSH

 ;;PSGST

 ;;PSGSTAT

 ;;PSGSTN

 ;;PSGVADR

 ;;PSGVALG

 ;;PSGVBPN

 ;;PSGVBTM

 ;;PSGVBWN

 ;;PSGVBWW

 ;;PSGVBY

 ;;PSIVAC

 ;;PSIVBR

 ;;PSIVDT

 ;;PSIVON

 ;;PSIVOF

 ;;PSIVOV1

 ;;PSIVOV2

 ;;PSIV

 ;;PSIVORF

 ;;PSIVPL

 ;;PSIVPR

 ;;PSIVRD

 ;;PSIVREA

 ;;PSIVSITE

 ;;PSIVSN

 ;;PSIVST

 ;;PSIVUP

 ;;PSIVX1

 ;;PSIVX2

 ;;PSJ

 ;;PSJAC

 ;;PSJACND

 ;;PSJACNWP

 ;;PSJACOK

 ;;PSJACPF

 ;;PSJASK

 ;;PSJCNT

 ;;PSJCOM

 ;;PSJF

 ;;PSJHLMTN

 ;;PSJINDEX

 ;;PSJIVOF

 ;;PSJIVORF

 ;;PSJL

 ;;PSJLABEL

 ;;PSJLK

 ;;PSJLM

 ;;PSJLMCON

 ;;PSJLMPRO

 ;;PSJLN

 ;;PSJNARC

 ;;PSJNV

 ;;PSJO

 ;;PSJOCNT

 ;;PSJOE

 ;;PSJOEPF

 ;;PSJOL

 ;;PSJORD

 ;;PSJORF

 ;;PSJORIFN

 ;;PSJORL

 ;;PSJORQF

 ;;PSJORVP

 ;;PSJOS

 ;;PSJPAC

 ;;PSJPAD

 ;;PSJPAGE

 ;;PSJPBID

 ;;PSJPCAF

 ;;PSJPDD

 ;;PSJPDOB

 ;;PSJPDT

 ;;PSJPDX

 ;;PSJPEN

 ;;PSJPHT

 ;;PSJPHTD

 ;;PSJPN

 ;;PSJPPID

 ;;PSJPRB

 ;;PSJPROT

 ;;PSJPSEX

 ;;PSJPSSN

 ;;PSJP

 ;;PSJPTS

 ;;PSJPTSP

 ;;PSJPWD

 ;;PSJPWDN

 ;;PSJPWT

 ;;PSJPWTD

 ;;PSJSCHT

 ;;PSJSEL

 ;;PSJSEL1

 ;;PSJSTOP

 ;;PSJSYSL

 ;;PSJSYSP

 ;;PSJSYSP0

 ;;PSJSYSU

 ;;PSJSYSW

 ;;PSJSYSW0

 ;;PSJTF

 ;;PSJTOO

 ;;PSJUDPRF

 ;;PSJX

 ;;PSSPSP0

 ;;Q

 ;;QQ

 ;;QUD

 ;;QUX1

 ;;RTE

 ;;SCH

 ;;SD

 ;;SEGMENT(0)

 ;;SM

 ;;ST

 ;;START

 ;;STAT

 ;;STATUS

 ;;STOP

 ;;STT

 ;;SUB

 ;;TYPE

 ;;UDU

 ;;V

 ;;VA200

 ;;VADM

 ;;VAIN

 ;;VAIP

 ;;VALMCNT

 ;;VALM("TITLE")

 ;;WRD

 ;;WS

 ;;X

 ;;X3

 ;;X4

 ;;X5

 ;;XRTN

 ;;Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSJOCVAR   6334     printed  Mar 13, 2025@21:12:58                                                                                                                                                                                                    Page 2

PSJOCVAR  ;BIR/RSB-SAVE/RESTORE VARIABLES FOR OC  ;24 Feb 99 / 10:42 AM

 +1       ;;5.0; INPATIENT MEDICATIONS ;**16,22,30,58,181**;16 DEC 97;Build 190

 +2       ;

 +3        NEW PSJVAR,PSJVAR1,PSJX

 +4       ; saves the variables in ^TMP

 +5        KILL ^TMP("PSJOCVAR",$JOB),^TMP("PSJOCVAR_DRG",$JOB),^TMP("PSJOCVAR_PS5345",$JOB)

 +6        FOR PSJVAR1=1:1

               SET PSJVAR=$PIECE($TEXT(LIST+PSJVAR1),";;",2)

               if PSJVAR=""

                   QUIT 

               Begin DoDot:1

 +7                IF $DATA(@PSJVAR)

                       if $DATA(@PSJVAR)'=10

                           SET ^TMP("PSJOCVAR",$JOB,PSJVAR)=@PSJVAR

               End DoDot:1

 +8        IF $DATA(DRG)

               MERGE ^TMP("PSJOCVAR_DRG",$JOB)=DRG

 +9       ;save off local array

 +10       FOR PSJX="P(","PSGEFN(","PSGVADR(","PSGVALG(","VADM(","VAIN(","VAIP("

               DO SVARRAY

 +11      ; Save the ^PS(53.45,DUZ,2) entry

           DO SAVEPS

 +12       QUIT 

SVARRAY   ;  Save array to ^TMP

 +1        NEW PSJVARX,X

 +2        SET PSJVARX=PSJX_"X)"

 +3        SET X=""

           FOR 

               SET X=$ORDER(@PSJVARX)

               if X=""

                   QUIT 

               SET ^TMP("PSJOCVAR",$JOB,PSJX_$SELECT(+X=X:X,1:""""_X_"""")_")")=@PSJVARX

 +4        QUIT 

RESTORE   ;  restores the variables from ^TMP

 +1        NEW PSJVAR

 +2        SET PSJVAR=""

           FOR 

               SET PSJVAR=$ORDER(^TMP("PSJOCVAR",$JOB,PSJVAR))

               if PSJVAR=""

                   QUIT 

               Begin DoDot:1

 +3                SET @PSJVAR=^TMP("PSJOCVAR",$JOB,PSJVAR)

               End DoDot:1

 +4        IF $DATA(^TMP("PSJOCVAR_DRG",$JOB))

               KILL DRG

               MERGE DRG=^TMP("PSJOCVAR_DRG",$JOB)

 +5        KILL ^TMP("PSJOCVAR",$JOB),^TMP("PSJOCVAR_DRG",$JOB),^TMP("PSJOCVAR_PS5345",$JOB,DUZ)

 +6       ; Restore any saved ^PS(53.45,DUZ,2) and ^PS(53.45,DUZ,4) entries

           DO RESPS

 +7        QUIT 

SAVEPS    ; Save the ^PS(53.45,DUZ,2) entry

 +1        NEW PSJLOOP,PSJBLOOP

 +2       ; Save the 2,0) node

 +3        IF $DATA(^PS(53.45,DUZ,2,0))

               Begin DoDot:1

 +4                SET ^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,0)=^PS(53.45,DUZ,2,0)

               End DoDot:1

 +5       ;Save the 2,n,0) nodes

 +6        SET PSJLOOP=0

 +7        FOR PSJLOOP=$ORDER(^PS(53.45,DUZ,2,PSJLOOP))

               if (PSJLOOP="")!(PSJLOOP="B")

                   QUIT 

               Begin DoDot:1

 +8                SET ^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,PSJLOOP,0)=^PS(53.45,DUZ,2,PSJLOOP,0)

               End DoDot:1

 +9       ;Save the 2,"B" node

 +10       IF $DATA(^PS(53.45,DUZ,2,"B"))

               Begin DoDot:1

 +11               SET PSJBLOOP=""

 +12               FOR PSJBLOOP=$ORDER(^PS(53.45,DUZ,2,"B",PSJBLOOP))

                       if PSJBLOOP=""

                           QUIT 

                       Begin DoDot:2

 +13                       SET PSJCOUNT=""

 +14                       FOR PSJCOUNT=$ORDER(^PS(53.45,DUZ,2,"B",PSJBLOOP,PSJCOUNT))

                               if PSJCOUNT=""

                                   QUIT 

                               Begin DoDot:3

 +15                               SET ^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,"B",PSJBLOOP,PSJCOUNT)=^PS(53.45,DUZ,2,"B",PSJBLOOP,PSJCOUNT)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +16       QUIT 

RESPS     ; Restore any saved ^PS(53.45,DUZ,2) entry

 +1        NEW PSJLOOP,PSJBLOOP,PSJCOUNT

 +2       ;Restore the 2,0 node

 +3        IF $DATA(^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,0))

               Begin DoDot:1

 +4                SET ^PS(53.45,DUZ,2,0)=^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,0)

               End DoDot:1

 +5       ;Restore the 2,n,o) nodes

 +6        SET PSJLOOP=0

 +7        FOR PSJLOOP=$ORDER(^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,PSJLOOP))

               if (PSJLOOP="")!(PSJLOOP="B")

                   QUIT 

               Begin DoDot:1

 +8                SET ^PS(53.45,DUZ,2,PSJLOOP,0)=^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,PSJLOOP,0)

               End DoDot:1

 +9       ;Restore the 2,"B" nodes

 +10       IF $DATA(^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,"B"))

               Begin DoDot:1

 +11               SET PSJBLOOP=""

 +12               FOR PSJBLOOP=$ORDER(^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,"B",PSJBLOOP))

                       if PSJBLOOP=""

                           QUIT 

                       Begin DoDot:2

 +13                       SET PSJCOUNT=""

 +14                       FOR PSJCOUNT=$ORDER(^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,"B",PSJBLOOP,PSJCOUNT))

                               if PSJCOUNT=""

                                   QUIT 

                               Begin DoDot:3

 +15                               SET ^PS(53.45,DUZ,2,"B",PSJBLOOP,PSJCOUNT)=^TMP("PSJOCVAR_PS5345",$JOB,DUZ,2,"B",PSJBLOOP,PSJCOUNT)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +16       KILL ^TMP("PSJOCVAR_PS5345",$JOB,DUZ)

 +17       QUIT 

LIST      ;

 +1       ;;ADM

 +2       ;;AL

 +3       ;;C

 +4       ;;CHK

 +5       ;;DDH

 +6       ;;DFN

 +7       ;;DN

 +8       ;;DRGI

 +9       ;;DRGN

 +10      ;;DRGT

 +11      ;;DX

 +12      ;;DY

 +13      ;;FIL

 +14      ;;FQ

 +15      ;;GMRA

 +16      ;;GMRAL

 +17      ;;HDT

 +18      ;;I

 +19      ;;INFUSE

 +20      ;;J

 +21      ;;LIMIT

 +22      ;;LINE

 +23      ;;LOC

 +24      ;;N

 +25      ;;NAD

 +26      ;;ND

 +27      ;;ND0

 +28      ;;ND2

 +29      ;;ND4

 +30      ;;ND6

 +31      ;;NDP2

 +32      ;;NEXT

 +33      ;;NF

 +34      ;;NO

 +35      ;;O

 +36      ;;ON

 +37      ;;ON55

 +38      ;;ORIFN

 +39      ;;P16

 +40      ;;P17

 +41      ;;P(2)

 +42      ;;P(3)

 +43      ;;P(4)

 +44      ;;P(5)

 +45      ;;P(6)

 +46      ;;P(7)

 +47      ;;P(8)

 +48      ;;P(9)

 +49      ;;P(10)

 +50      ;;P(11)

 +51      ;;P(12)

 +52      ;;P(13)

 +53      ;;P(14)

 +54      ;;P(15)

 +55      ;;P(16)

 +56      ;;P(17)

 +57      ;;P(18)

 +58      ;;P(19)

 +59      ;;P(20)

 +60      ;;P(21)

 +61      ;;P(22)

 +62      ;;P(23)

 +63      ;;P(24)

 +64      ;;P(25)

 +65      ;;P("21FLG")

 +66      ;;P("CLRK")

 +67      ;;P("CUM")

 +68      ;;P("DO")

 +69      ;;P("DTYP")

 +70      ;;P("FRES")

 +71      ;;P("INS")

 +72      ;;P("IVRM")

 +73      ;;P("LF")

 +74      ;;P("LFA")

 +75      ;;P("LOG")

 +76      ;;P("MR")

 +77      ;;P("NEWON")

 +78      ;;P("OLDON")

 +79      ;;P("OPI")

 +80      ;;P("OT")

 +81      ;;P("PD")

 +82      ;;P("PON")

 +83      ;;P("PRY")

 +84      ;;P("REM")

 +85      ;;P("REN")

 +86      ;;P("RES")

 +87      ;;P("SYRS")

 +88      ;;PF

 +89      ;;PPAGE

 +90      ;;PPN

 +91      ;;PROVIDER

 +92      ;;PS

 +93      ;;PSFDT

 +94      ;;PSGACT

 +95      ;;PSGADR

 +96      ;;PSGADR(1)

 +97      ;;PSGAT

 +98      ;;PSGCANFL

 +99      ;;PSGDFLG

 +100     ;;PSGDI

 +101     ;;PSGDRG

 +102     ;;PSGDRGN

 +103     ;;PSGDO

 +104     ;;PSGDT

 +105     ;;PSGEB

 +106     ;;PSGEBN

 +107     ;;PSGEFN

 +108     ;;PSGF

 +109     ;;PSGFD

 +110     ;;PSGFDN

 +111     ;;PSGHSM

 +112     ;;PSGID

 +113     ;;PSGIVAC

 +114     ;;PSGIVBR

 +115     ;;PSGLAD

 +116     ;;PSGLAGE

 +117     ;;PSGLBID

 +118     ;;PSGLBSS

 +119     ;;PSGLDOB

 +120     ;;PSGLDT

 +121     ;;PSGLDX

 +122     ;;PSGLI

 +123     ;;PSGLIN

 +124     ;;PSGLPID

 +125     ;;PSGLPN

 +126     ;;PSGLPR

 +127     ;;PSGLRB

 +128     ;;PSGLSEX

 +129     ;;PSGLSSN

 +130     ;;PSGLTM

 +131     ;;PSGLTS

 +132     ;;PSGLWD

 +133     ;;PSGLWDN

 +134     ;;PSGLWGN

 +135     ;;PSGLWP1

 +136     ;;PSGLWP2

 +137     ;;PSGMR

 +138     ;;PSGMRN

 +139     ;;PSGNEDFD

 +140     ;;PSGNEF

 +141     ;;PSGNESD

 +142     ;;PSGOAT

 +143     ;;PSGOD

 +144     ;;PSGODDD

 +145     ;;PSGODDD(1)

 +146     ;;PSGODO

 +147     ;;PSGODT

 +148     ;;PSGOEA

 +149     ;;PSGOEAV

 +150     ;;PSGOEDMR

 +151     ;;PSGOEEG

 +152     ;;PSGOEEND

 +153     ;;PSGOEEWF

 +154     ;;PSGOENG

 +155     ;;PSGOENOF

 +156     ;;PSGOEPR

 +157     ;;PSGOFD

 +158     ;;PSGOFDN

 +159     ;;PSGOHSM

 +160     ;;PSGOINST

 +161     ;;PSGOL

 +162     ;;PSGOMR

 +163     ;;PSGOMRN

 +164     ;;PSGONC

 +165     ;;PSGOP

 +166     ;;PSGOPD

 +167     ;;PSGOPDN

 +168     ;;PSGOPR

 +169     ;;PSGOPRN

 +170     ;;PSGORD

 +171     ;;PSGOSCH

 +172     ;;PSGOSD

 +173     ;;PSGOSDN

 +174     ;;PSGOSI

 +175     ;;PSGOSM

 +176     ;;PSGOST

 +177     ;;PSGOSTN

 +178     ;;PSGP

 +179     ;;PSGP(0)

 +180     ;;PSGPD

 +181     ;;PSGPDN

 +182     ;;PSGPDRG

 +183     ;;PSGPDRGN

 +184     ;;PSGPI

 +185     ;;PSGPR

 +186     ;;PSGPRIO

 +187     ;;PSGPRN

 +188     ;;PSGPTMP

 +189     ;;PSGPTS

 +190     ;;PSGPXN

 +191     ;;PSGRRF

 +192     ;;PSGSCH

 +193     ;;PSGSD

 +194     ;;PSGSDN

 +195     ;;PSGSI

 +196     ;;PSGSM

 +197     ;;PSGSOXT

 +198     ;;PSGSOY

 +199     ;;PSGS0Y

 +200     ;;PSGSS

 +201     ;;PSGSSH

 +202     ;;PSGST

 +203     ;;PSGSTAT

 +204     ;;PSGSTN

 +205     ;;PSGVADR

 +206     ;;PSGVALG

 +207     ;;PSGVBPN

 +208     ;;PSGVBTM

 +209     ;;PSGVBWN

 +210     ;;PSGVBWW

 +211     ;;PSGVBY

 +212     ;;PSIVAC

 +213     ;;PSIVBR

 +214     ;;PSIVDT

 +215     ;;PSIVON

 +216     ;;PSIVOF

 +217     ;;PSIVOV1

 +218     ;;PSIVOV2

 +219     ;;PSIV

 +220     ;;PSIVORF

 +221     ;;PSIVPL

 +222     ;;PSIVPR

 +223     ;;PSIVRD

 +224     ;;PSIVREA

 +225     ;;PSIVSITE

 +226     ;;PSIVSN

 +227     ;;PSIVST

 +228     ;;PSIVUP

 +229     ;;PSIVX1

 +230     ;;PSIVX2

 +231     ;;PSJ

 +232     ;;PSJAC

 +233     ;;PSJACND

 +234     ;;PSJACNWP

 +235     ;;PSJACOK

 +236     ;;PSJACPF

 +237     ;;PSJASK

 +238     ;;PSJCNT

 +239     ;;PSJCOM

 +240     ;;PSJF

 +241     ;;PSJHLMTN

 +242     ;;PSJINDEX

 +243     ;;PSJIVOF

 +244     ;;PSJIVORF

 +245     ;;PSJL

 +246     ;;PSJLABEL

 +247     ;;PSJLK

 +248     ;;PSJLM

 +249     ;;PSJLMCON

 +250     ;;PSJLMPRO

 +251     ;;PSJLN

 +252     ;;PSJNARC

 +253     ;;PSJNV

 +254     ;;PSJO

 +255     ;;PSJOCNT

 +256     ;;PSJOE

 +257     ;;PSJOEPF

 +258     ;;PSJOL

 +259     ;;PSJORD

 +260     ;;PSJORF

 +261     ;;PSJORIFN

 +262     ;;PSJORL

 +263     ;;PSJORQF

 +264     ;;PSJORVP

 +265     ;;PSJOS

 +266     ;;PSJPAC

 +267     ;;PSJPAD

 +268     ;;PSJPAGE

 +269     ;;PSJPBID

 +270     ;;PSJPCAF

 +271     ;;PSJPDD

 +272     ;;PSJPDOB

 +273     ;;PSJPDT

 +274     ;;PSJPDX

 +275     ;;PSJPEN

 +276     ;;PSJPHT

 +277     ;;PSJPHTD

 +278     ;;PSJPN

 +279     ;;PSJPPID

 +280     ;;PSJPRB

 +281     ;;PSJPROT

 +282     ;;PSJPSEX

 +283     ;;PSJPSSN

 +284     ;;PSJP

 +285     ;;PSJPTS

 +286     ;;PSJPTSP

 +287     ;;PSJPWD

 +288     ;;PSJPWDN

 +289     ;;PSJPWT

 +290     ;;PSJPWTD

 +291     ;;PSJSCHT

 +292     ;;PSJSEL

 +293     ;;PSJSEL1

 +294     ;;PSJSTOP

 +295     ;;PSJSYSL

 +296     ;;PSJSYSP

 +297     ;;PSJSYSP0

 +298     ;;PSJSYSU

 +299     ;;PSJSYSW

 +300     ;;PSJSYSW0

 +301     ;;PSJTF

 +302     ;;PSJTOO

 +303     ;;PSJUDPRF

 +304     ;;PSJX

 +305     ;;PSSPSP0

 +306     ;;Q

 +307     ;;QQ

 +308     ;;QUD

 +309     ;;QUX1

 +310     ;;RTE

 +311     ;;SCH

 +312     ;;SD

 +313     ;;SEGMENT(0)

 +314     ;;SM

 +315     ;;ST

 +316     ;;START

 +317     ;;STAT

 +318     ;;STATUS

 +319     ;;STOP

 +320     ;;STT

 +321     ;;SUB

 +322     ;;TYPE

 +323     ;;UDU

 +324     ;;V

 +325     ;;VA200

 +326     ;;VADM

 +327     ;;VAIN

 +328     ;;VAIP

 +329     ;;VALMCNT

 +330     ;;VALM("TITLE")

 +331     ;;WRD

 +332     ;;WS

 +333     ;;X

 +334     ;;X3

 +335     ;;X4

 +336     ;;X5

 +337     ;;XRTN

 +338     ;;Y