PXAIUPRV.m

PXAIUPRV ;ISL/JVS - VALIDATE THE PAROVDER NODES ;6/6/96  07:42

 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 Q

 ;

01(IEN) ;

 I '$D(^VA(200,+IEN,0)) S PXCA("ERROR","PROVIDER",IEN,0,0)="Provider not in File 200^"_IEN,PXAIVAL=1

 ;E  I '$D(^VA(200,"AK.PROVIDER",$P($G(^VA(200,+IEN,0)),"^"))) S PXCA("ERROR","PROVIDER",IEN,0,0)="Provider does not have the AK.PROVIDER key^"_IEN,PXAIVAL=2

 Q

 ;

04(IEN,PRIMARY) ;

 I '(PRIMARY="P"!(PRIMARY="S")) S PXCA("ERROR","PROVIDER",IEN,0,1)="Provider indicator code must be P|S^"_PRIMARY,PXAIVAL=1

 ;If there is more than one primary the change additional ones to secondary.

 I PRIMARY="P" D

 . I 'PXCAPPRV S PXCAPPRV=IEN

 . E  I PXCAPPRV'=IEN D

 .. S PXCA("WARNING","PROVIDER",IEN,0,1)="There is already a Primary Provider this one is changed to Secondary^"_PRIMARY

 .. S $P(PXCAPRV,"^",1)="S"

 Q

 ;

05(ATTEND) ;

 I '(ATTEND=1!(ATTEND=0)!(ATTEND="")) S PXCA("ERROR","PROVIDER",IEN,0,2)="Attending flag bad^"_ATTEND,PXAIVAL=1

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXAIUPRV   991     printed  Apr 09, 2024@21:31:05                                                                                                                                                                                                     Page 2

PXAIUPRV  ;ISL/JVS - VALIDATE THE PAROVDER NODES ;6/6/96  07:42

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 +2        QUIT 

 +3       ;

01(IEN)   ;

 +1        IF '$DATA(^VA(200,+IEN,0))

               SET PXCA("ERROR","PROVIDER",IEN,0,0)="Provider not in File 200^"_IEN

               SET PXAIVAL=1

 +2       ;E  I '$D(^VA(200,"AK.PROVIDER",$P($G(^VA(200,+IEN,0)),"^"))) S PXCA("ERROR","PROVIDER",IEN,0,0)="Provider does not have the AK.PROVIDER key^"_IEN,PXAIVAL=2

 +3        QUIT 

 +4       ;

04(IEN,PRIMARY) ;

 +1        IF '(PRIMARY="P"!(PRIMARY="S"))

               SET PXCA("ERROR","PROVIDER",IEN,0,1)="Provider indicator code must be P|S^"_PRIMARY

               SET PXAIVAL=1

 +2       ;If there is more than one primary the change additional ones to secondary.

 +3        IF PRIMARY="P"

               Begin DoDot:1

 +4                IF 'PXCAPPRV

                       SET PXCAPPRV=IEN

 +5               IF '$TEST

                       IF PXCAPPRV'=IEN

                           Begin DoDot:2

 +6                            SET PXCA("WARNING","PROVIDER",IEN,0,1)="There is already a Primary Provider this one is changed to Secondary^"_PRIMARY

 +7                            SET $PIECE(PXCAPRV,"^",1)="S"

                           End DoDot:2

               End DoDot:1

 +8        QUIT 

 +9       ;

05(ATTEND) ;

 +1        IF '(ATTEND=1!(ATTEND=0)!(ATTEND=""))

               SET PXCA("ERROR","PROVIDER",IEN,0,2)="Attending flag bad^"_ATTEND

               SET PXAIVAL=1

 +2        QUIT 

 +3       ;