PXAIERR.m

PXAIERR ;ISL/JVS,PKR - Set error array. ;03/20/2018

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**211**;Aug 12, 1996;Build 454

 ;

SETPROB ;--Put errors into PXAPROB.

 I PXADI("DIALOG")=8390001.001 D  Q

 . S PXASUB=PXASUB+1

 . S PXAPROB($J,PXASUB,"ERROR1",PXAERR(7),PXAERR(9),PXAK)=$G(PXAERR(12))

 . I $G(PXAERR(13))'="" S PXAPROB($J,PXASUB,"ERROR2",PXAERR(7),PXAERR(9),PXAK)=$G(PXAERR(13))

 ;

 I PXADI("DIALOG")=8390001.002 D  Q

 . S PXASUB=PXASUB+1

 . S PXAPROB($J,PXASUB,"WARNING2",PXAERR(7),PXAERR(9),PXAK)=$G(PXAERR(12))

 ;

 I PXADI("DIALOG")=8390001.003 D  Q

 . N TEMPW

 . S PXASUB=PXASUB+1

 . S TEMPW=$G(PXAERR("6W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"SC")=TEMPW

 . S TEMPW=$G(PXAERR("7W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"AO")=TEMPW

 . S TEMPW=$G(PXAERR("8W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"IR")=TEMPW

 . S TEMPW=$G(PXAERR("9W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"EC")=TEMPW

 . S TEMPW=$G(PXAERR("10W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"MST")=TEMPW

 .;PX*1*111 - Add HNC

 . S TEMPW=$G(PXAERR("17W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"HNC")=TEMPW

 . S TEMPW=$G(PXAERR("20W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"CV")=TEMPW

 . S TEMPW=$G(PXAERR("23W"))

 . I TEMPW'="No error" S PXAPROB($J,PXASUB,"WARNING3","ENCOUNTER",1,"SHAD")=TEMPW

 ;

 I PXADI("DIALOG")=8390001.004 D

 . S PXASUB=PXASUB+1

 . S PXAPROB($J,PXASUB,"ERROR4","PX/DL",PXAK)=$G(PXAERR("PL1"))

 Q

 ;

 ;===============

SSCL(SCL) ;Populate the site support contact list. Return a maximum of three.

 N IND,JND,TEMP

 S (IND,JND)=0

 F  S IND=+$O(^PX(815,1,900,IND)) Q:(IND=0)!(JND>2)  D

 . S TEMP=$G(^PX(815,1,900,IND,0))

 . S JND=JND+1

 . S SCL(900+JND)=$P(TEMP,U,1)_"; "_$P(TEMP,U,2)_"; "_$P(TEMP,U,3)_"; "_$P(TEMP,U,4)

 I JND=0 S SCL(901)="No PCE support contacts are defined for this site!"

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXAIERR   2053     printed  Apr 09, 2024@21:30:47                                                                                                                                                                                                     Page 2

PXAIERR   ;ISL/JVS,PKR - Set error array. ;03/20/2018

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**211**;Aug 12, 1996;Build 454

 +2       ;

SETPROB   ;--Put errors into PXAPROB.

 +1        IF PXADI("DIALOG")=8390001.001

               Begin DoDot:1

 +2                SET PXASUB=PXASUB+1

 +3                SET PXAPROB($JOB,PXASUB,"ERROR1",PXAERR(7),PXAERR(9),PXAK)=$GET(PXAERR(12))

 +4                IF $GET(PXAERR(13))'=""

                       SET PXAPROB($JOB,PXASUB,"ERROR2",PXAERR(7),PXAERR(9),PXAK)=$GET(PXAERR(13))

               End DoDot:1

               QUIT 

 +5       ;

 +6        IF PXADI("DIALOG")=8390001.002

               Begin DoDot:1

 +7                SET PXASUB=PXASUB+1

 +8                SET PXAPROB($JOB,PXASUB,"WARNING2",PXAERR(7),PXAERR(9),PXAK)=$GET(PXAERR(12))

               End DoDot:1

               QUIT 

 +9       ;

 +10       IF PXADI("DIALOG")=8390001.003

               Begin DoDot:1

 +11               NEW TEMPW

 +12               SET PXASUB=PXASUB+1

 +13               SET TEMPW=$GET(PXAERR("6W"))

 +14               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"SC")=TEMPW

 +15               SET TEMPW=$GET(PXAERR("7W"))

 +16               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"AO")=TEMPW

 +17               SET TEMPW=$GET(PXAERR("8W"))

 +18               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"IR")=TEMPW

 +19               SET TEMPW=$GET(PXAERR("9W"))

 +20               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"EC")=TEMPW

 +21               SET TEMPW=$GET(PXAERR("10W"))

 +22               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"MST")=TEMPW

 +23      ;PX*1*111 - Add HNC

 +24               SET TEMPW=$GET(PXAERR("17W"))

 +25               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"HNC")=TEMPW

 +26               SET TEMPW=$GET(PXAERR("20W"))

 +27               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"CV")=TEMPW

 +28               SET TEMPW=$GET(PXAERR("23W"))

 +29               IF TEMPW'="No error"

                       SET PXAPROB($JOB,PXASUB,"WARNING3","ENCOUNTER",1,"SHAD")=TEMPW

               End DoDot:1

               QUIT 

 +30      ;

 +31       IF PXADI("DIALOG")=8390001.004

               Begin DoDot:1

 +32               SET PXASUB=PXASUB+1

 +33               SET PXAPROB($JOB,PXASUB,"ERROR4","PX/DL",PXAK)=$GET(PXAERR("PL1"))

               End DoDot:1

 +34       QUIT 

 +35      ;

 +36      ;===============

SSCL(SCL) ;Populate the site support contact list. Return a maximum of three.

 +1        NEW IND,JND,TEMP

 +2        SET (IND,JND)=0

 +3        FOR 

               SET IND=+$ORDER(^PX(815,1,900,IND))

               if (IND=0)!(JND>2)

                   QUIT 

               Begin DoDot:1

 +4                SET TEMP=$GET(^PX(815,1,900,IND,0))

 +5                SET JND=JND+1

 +6                SET SCL(900+JND)=$PIECE(TEMP,U,1)_"; "_$PIECE(TEMP,U,2)_"; "_$PIECE(TEMP,U,3)_"; "_$PIECE(TEMP,U,4)

               End DoDot:1

 +7        IF JND=0

               SET SCL(901)="No PCE support contacts are defined for this site!"

 +8        QUIT 

 +9       ;