Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MPIFNQ

MPIFNQ.m

Go to the documentation of this file.
  1. MPIFNQ ;BHM/RGY-Miscellaneous functions for CMOR ;FEB 20, 1998
  1. ;;1.0; MASTER PATIENT INDEX VISTA ;**11**;30 Apr 99
  1. ;
  1. ; Integration Agreements Utilized:
  1. ;
  1. ; ^RGSITE(991.8, IA #2746
  1. ;
  1. ;
  1. PAT(IEN) ;Return patient CMOR (Site IEN)
  1. NEW RESULT
  1. S RESULT=$$GETVCCI^MPIF001(IEN)
  1. I RESULT<0 Q ""
  1. Q RESULT
  1. ICN(IEN) ;Return patient ICN
  1. NEW RESULT
  1. S RESULT=$$GETICN^MPIF001(IEN)
  1. I RESULT<0 Q ""
  1. Q +RESULT
  1. IEN(ICN) ;Return patient IEN
  1. NEW RESULT
  1. S RESULT=$$GETDFN^MPIF001(ICN)
  1. I RESULT<0 Q ""
  1. Q RESULT
  1. AUTO() ;
  1. NEW TMX
  1. S TMX=+$P($G(^RGSITE(991.8,1,0)),"^",2)
  1. S:TMX'=1&(TMX'=0) TMX=0
  1. Q TMX
  1. RPT1 ;
  1. ; Entry point for option MPIF SENT REQUEST. This option prints
  1. ; all outstanding requests for Change of CMOR that this site has sent.
  1. ; NO input or output variables.
  1. N X1,X2,Y,USER,AGE,DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT,DIRUT,X
  1. S USER=""
  1. 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)
  1. I Y=1 S USER=DUZ
  1. S DIR("A")="Display requests entered on or before date: ",DIR("B")="TODAY",DIR(0)="DAO^::EP" D ^DIR K DIR Q:$D(DIRUT)
  1. S X2=Y,X1=DT D D^%DTC
  1. S AGE=X
  1. S DIC="^MPIF(984.9,",FLDS="[MPIF OUTSTANDING REQUESTS]",L=0
  1. S BY="[MPIF REQUEST SORT]",FR=",,2,"_USER_","_AGE,TO=",,2,"_USER_","
  1. D EN1^DIP
  1. Q
  1. RPT2 ;
  1. ; Entry point for option: MPIF RECEIVED REQUESTS to list all change
  1. ; of CMOR requests that are still outstanding for review/processing
  1. ; NO input or output variables.
  1. N DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT
  1. S DIC="^MPIF(984.9,",FLDS="[MPIF OUTSTANDING REQUESTS]",L=0
  1. S BY="[MPIF PENDING REQUESTS]",FR="",TO=""
  1. D EN1^DIP
  1. Q
  1. INQ ;View CMOR request
  1. N DIC,FLDS,FR,TO,L,BY,Y
  1. ASK S DIC="^MPIF(984.9,",DIC(0)="QEAM",DIC("A")="Select Request #: " D ^DIC Q:+Y<0
  1. S FR=+Y,TO=+Y,L=0,FLDS="[MPIF REQUEST VIEW]",BY="@NUMBER" D EN1^DIP
  1. G ASK
  1. Q
  1. RPT3 ; entry point for Approved Requests
  1. ;No input of output variables
  1. N FR,DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT,DIRUT,X
  1. 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)
  1. S FROM=Y
  1. S DIC="^MPIF(984.9,",FLDS=".06,.01,2.02,.04,.07,1.02,.03"
  1. S BY=".06,2.02,.04"
  1. S FR="4,"_FROM_","
  1. S TO="4,,"
  1. D EN1^DIP
  1. Q
  1. RPT4 ; entry point for Disapproved Requests
  1. ;No input of output variables
  1. N FR,DIC,L,BY,FLDS,FROM,TO,DIR,DTOUT,DUTOUT,DIROUT,DIRUT,X
  1. 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)
  1. S FROM=Y
  1. S DIC="^MPIF(984.9,",FLDS=".06,.01,2.02,.04,.07,1.02,.03,3.02"
  1. S BY=".06,2.02,.04"
  1. S FR="5,"_FROM_","
  1. S TO="5,,"
  1. D EN1^DIP
  1. Q