MPIFNEW.m

MPIFNEW ;BHM/RGY-Create new request for patient demographic change ;FEB 20, 1998

 ;;1.0; MASTER PATIENT INDEX VISTA **11**;;30 Apr 99

ADD(RNO) ;

 ;This function allows the addition of new CMOR Change requests to be

 ;added to the 984.9 file

 ; RNO - is the site making the request, optional

 ;Returned:  is the IEN of the new entry in 984.9

 ;  OR 0 if no entry is added.

 ;

 N DIC,D0,DIE,DA,X,DLAYGO,DR,RGOK,EVN,DINUM

 S RNO=$G(RNO)

 F EVN=+$P(^MPIF(984.9,0),"^",3)+1:1 L +^MPIF(984.9,EVN):0 I $T S RGOK=0 D  L -^MPIF(984.9,EVN) Q:RGOK

 .I $D(^MPIF(984.9,EVN)) Q

 .S DINUM=EVN,DIC="^MPIF(984.9,",DIC(0)="L",DLAYGO=984.9,X=$S(RNO="":$P($$SITE^VASITE(),"^",3)_"-"_EVN,1:RNO) K DD,D0 D FILE^DICN K DIC,DLAYGO,D0

 .S DIE="^MPIF(984.9,",DR="[MPIF OPEN REQUEST]",DA=EVN D ^DIE

 .S RGOK=1

 .Q

Q Q EVN

 ;

EDIT ; edit existing Requests that have a status of OPEN

 ;select a patient to edit request

 ;

 N ERR,PT,Y

 S DIC="^MPIF(984.9,",DIC(0)="AEMQZ",DIC("A")="Select Patient's Request you would like to edit (Must have a Status of Open): ",DIC("S")="I $D(^MPIF(984.9,""AC"",1,Y))"

 D ^DIC

 Q:+Y<0

 S PT=$P(^MPIF(984.9,+Y,0),"^",4)

 I +PT<0 W !,"No Patient associated with this Request." Q

 S DA=+Y

 D EDIT^MPIFEDIT

 K DA,ERR

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MPIFNEW   1252     printed  Apr 09, 2024@21:13:36                                                                                                                                                                                                     Page 2

MPIFNEW   ;BHM/RGY-Create new request for patient demographic change ;FEB 20, 1998

 +1       ;;1.0; MASTER PATIENT INDEX VISTA **11**;;30 Apr 99

ADD(RNO)  ;

 +1       ;This function allows the addition of new CMOR Change requests to be

 +2       ;added to the 984.9 file

 +3       ; RNO - is the site making the request, optional

 +4       ;Returned:  is the IEN of the new entry in 984.9

 +5       ;  OR 0 if no entry is added.

 +6       ;

 +7        NEW DIC,D0,DIE,DA,X,DLAYGO,DR,RGOK,EVN,DINUM

 +8        SET RNO=$GET(RNO)

 +9        FOR EVN=+$PIECE(^MPIF(984.9,0),"^",3)+1:1

               LOCK +^MPIF(984.9,EVN):0

               IF $TEST

                   SET RGOK=0

                   Begin DoDot:1

 +10                   IF $DATA(^MPIF(984.9,EVN))

                           QUIT 

 +11                   SET DINUM=EVN

                       SET DIC="^MPIF(984.9,"

                       SET DIC(0)="L"

                       SET DLAYGO=984.9

                       SET X=$SELECT(RNO="":$PIECE($$SITE^VASITE(),"^",3)_"-"_EVN,1:RNO)

                       KILL DD,D0

                       DO FILE^DICN

                       KILL DIC,DLAYGO,D0

 +12                   SET DIE="^MPIF(984.9,"

                       SET DR="[MPIF OPEN REQUEST]"

                       SET DA=EVN

                       DO ^DIE

 +13                   SET RGOK=1

 +14                   QUIT 

                   End DoDot:1

                   LOCK -^MPIF(984.9,EVN)

                   if RGOK

                       QUIT 

Q          QUIT EVN

 +1       ;

EDIT      ; edit existing Requests that have a status of OPEN

 +1       ;select a patient to edit request

 +2       ;

 +3        NEW ERR,PT,Y

 +4        SET DIC="^MPIF(984.9,"

           SET DIC(0)="AEMQZ"

           SET DIC("A")="Select Patient's Request you would like to edit (Must have a Status of Open): "

           SET DIC("S")="I $D(^MPIF(984.9,""AC"",1,Y))"

 +5        DO ^DIC

 +6        if +Y<0

               QUIT 

 +7        SET PT=$PIECE(^MPIF(984.9,+Y,0),"^",4)

 +8        IF +PT<0

               WRITE !,"No Patient associated with this Request."

               QUIT 

 +9        SET DA=+Y

 +10       DO EDIT^MPIFEDIT

 +11       KILL DA,ERR

 +12       QUIT