| 1 | MPIFNQ ;BHM/RGY-Miscellaneous functions for CMOR ;FEB 20, 1998
|
|---|
| 2 | ;;1.0; MASTER PATIENT INDEX VISTA ;**11**;30 Apr 99
|
|---|
| 3 | ;
|
|---|
| 4 | ; Integration Agreements Utilized:
|
|---|
| 5 | ;
|
|---|
| 6 | ; ^RGSITE(991.8, IA #2746
|
|---|
| 7 | ;
|
|---|
| 8 | ;
|
|---|
| 9 | PAT(IEN) ;Return patient CMOR (Site IEN)
|
|---|
| 10 | NEW RESULT
|
|---|
| 11 | S RESULT=$$GETVCCI^MPIF001(IEN)
|
|---|
| 12 | I RESULT<0 Q ""
|
|---|
| 13 | Q RESULT
|
|---|
| 14 | ICN(IEN) ;Return patient ICN
|
|---|
| 15 | NEW RESULT
|
|---|
| 16 | S RESULT=$$GETICN^MPIF001(IEN)
|
|---|
| 17 | I RESULT<0 Q ""
|
|---|
| 18 | Q +RESULT
|
|---|
| 19 | IEN(ICN) ;Return patient IEN
|
|---|
| 20 | NEW RESULT
|
|---|
| 21 | S RESULT=$$GETDFN^MPIF001(ICN)
|
|---|
| 22 | I RESULT<0 Q ""
|
|---|
| 23 | Q RESULT
|
|---|
| 24 | AUTO() ;
|
|---|
| 25 | NEW TMX
|
|---|
| 26 | S TMX=+$P($G(^RGSITE(991.8,1,0)),"^",2)
|
|---|
| 27 | S:TMX'=1&(TMX'=0) TMX=0
|
|---|
| 28 | Q TMX
|
|---|
| 29 | RPT1 ;
|
|---|
| 30 | ; Entry point for option MPIF SENT REQUEST. This option prints
|
|---|
| 31 | ; all outstanding requests for Change of CMOR that this site has sent.
|
|---|
| 32 | ; NO input or output variables.
|
|---|
| 33 | N X1,X2,Y,USER,AGE,DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT,DIRUT,X
|
|---|
| 34 | S USER=""
|
|---|
| 35 | S DIR("A")="Do you only want to list the requests you entered? ",DIR("B")="YES",DIR(0)="YAO" D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 36 | I Y=1 S USER=DUZ
|
|---|
| 37 | S DIR("A")="Display requests entered on or before date: ",DIR("B")="TODAY",DIR(0)="DAO^::EP" D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 38 | S X2=Y,X1=DT D D^%DTC
|
|---|
| 39 | S AGE=X
|
|---|
| 40 | S DIC="^MPIF(984.9,",FLDS="[MPIF OUTSTANDING REQUESTS]",L=0
|
|---|
| 41 | S BY="[MPIF REQUEST SORT]",FR=",,2,"_USER_","_AGE,TO=",,2,"_USER_","
|
|---|
| 42 | D EN1^DIP
|
|---|
| 43 | Q
|
|---|
| 44 | RPT2 ;
|
|---|
| 45 | ; Entry point for option: MPIF RECEIVED REQUESTS to list all change
|
|---|
| 46 | ; of CMOR requests that are still outstanding for review/processing
|
|---|
| 47 | ; NO input or output variables.
|
|---|
| 48 | N DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT
|
|---|
| 49 | S DIC="^MPIF(984.9,",FLDS="[MPIF OUTSTANDING REQUESTS]",L=0
|
|---|
| 50 | S BY="[MPIF PENDING REQUESTS]",FR="",TO=""
|
|---|
| 51 | D EN1^DIP
|
|---|
| 52 | Q
|
|---|
| 53 | INQ ;View CMOR request
|
|---|
| 54 | N DIC,FLDS,FR,TO,L,BY,Y
|
|---|
| 55 | ASK S DIC="^MPIF(984.9,",DIC(0)="QEAM",DIC("A")="Select Request #: " D ^DIC Q:+Y<0
|
|---|
| 56 | S FR=+Y,TO=+Y,L=0,FLDS="[MPIF REQUEST VIEW]",BY="@NUMBER" D EN1^DIP
|
|---|
| 57 | G ASK
|
|---|
| 58 | Q
|
|---|
| 59 | RPT3 ; entry point for Approved Requests
|
|---|
| 60 | ;No input of output variables
|
|---|
| 61 | N FR,DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT,DIRUT,X
|
|---|
| 62 | S DIR("A")="Display requests APPROVED on or SINCE (date): ",DIR("B")="T-10",DIR(0)="DAO^::EP" D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 63 | S FROM=Y
|
|---|
| 64 | S DIC="^MPIF(984.9,",FLDS=".06,.01,2.02,.04,.07,1.02,.03"
|
|---|
| 65 | S BY=".06,2.02,.04"
|
|---|
| 66 | S FR="4,"_FROM_","
|
|---|
| 67 | S TO="4,,"
|
|---|
| 68 | D EN1^DIP
|
|---|
| 69 | Q
|
|---|
| 70 | RPT4 ; entry point for Disapproved Requests
|
|---|
| 71 | ;No input of output variables
|
|---|
| 72 | N FR,DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT,DIRUT,X
|
|---|
| 73 | S DIR("A")="Display requests DISAPPROVED on or SINCE (date): ",DIR("B")="T-10",DIR(0)="DAO^::EP" D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 74 | S FROM=Y
|
|---|
| 75 | S DIC="^MPIF(984.9,",FLDS=".06,.01,2.02,.04,.07,1.02,.03,3.02"
|
|---|
| 76 | S BY=".06,2.02,.04"
|
|---|
| 77 | S FR="5,"_FROM_","
|
|---|
| 78 | S TO="5,,"
|
|---|
| 79 | D EN1^DIP
|
|---|
| 80 | Q
|
|---|
