- 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 ---[H[J[2J[HMPIFNEW 1252 printed Feb 18, 2025@23:37:31 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