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

ORLP3MGR.m

Go to the documentation of this file.
  1. ORLP3MGR ; SLC/AEB - Manager Options - Patient List Defaults ;9/22/97 [4/25/00 3:25pm]
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,82,273**;Dec 17, 1997;Build 17
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ;DBIA reference section
  1. ;2992 - ^XTV(8989.51
  1. ;10086 - %ZIS
  1. ;10006 - DIC
  1. ;2051 - FIND1^DIC
  1. ;2054 - CLEAN^DILF
  1. ;10026 - DIR
  1. ;2336 - EDITPAR^XPAREDIT
  1. ;
  1. CLSTRTD ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Start Date",PARAM="ORLP DEFAULT CLINIC START DATE"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLSTPD ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Stop Date",PARAM="ORLP DEFAULT CLINIC STOP DATE"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLSUN ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Sunday",PARAM="ORLP DEFAULT CLINIC SUNDAY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLMON ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Monday",PARAM="ORLP DEFAULT CLINIC MONDAY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLTUE ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Tuesday",PARAM="ORLP DEFAULT CLINIC TUESDAY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLWED ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Wednesday",PARAM="ORLP DEFAULT CLINIC WEDNESDAY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLTHUR ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Thursday",PARAM="ORLP DEFAULT CLINIC THURSDAY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLFRI ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Friday",PARAM="ORLP DEFAULT CLINIC FRIDAY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. CLSAT ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Clinic Saturday",PARAM="ORLP DEFAULT CLINIC SATURDAY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. LSTORD ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Sort Order for Patient List",PARAM="ORLP DEFAULT LIST ORDER"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. LSTSRC ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default List Source",PARAM="ORLP DEFAULT LIST SOURCE"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. PROVIDER ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Primary Provider",PARAM="ORLP DEFAULT PROVIDER"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. SPEC ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Treating Specialty",PARAM="ORLP DEFAULT SPECIALTY"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. TEAM ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Team List",PARAM="ORLP DEFAULT TEAM"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. WARD ;
  1. N ORLPT,PARAM
  1. S ORLPT="Set Default Ward",PARAM="ORLP DEFAULT WARD"
  1. D OPSETUP(ORLPT,PARAM)
  1. Q
  1. ;
  1. OPSETUP(ORLPT,PARAM) ;
  1. N ORLPPAR
  1. S ORLPPAR=$O(^XTV(8989.51,"B",PARAM,0)) Q:ORLPPAR=""
  1. D TITLE(ORLPT) D PROC(ORLPPAR)
  1. Q
  1. ;
  1. TITLE(ORLPT) ;
  1. ; Center and write title
  1. S IOP=0 D ^%ZIS K IOP W @IOF
  1. W !,?(80-$L(ORLPT)-1/2),ORLPT
  1. Q
  1. ;
  1. PROC(PAR) ; Process Parameter Settings
  1. D EDITPAR^XPAREDIT(PAR)
  1. Q
  1. ;
  1. DEFSRC ; default list source and value for user
  1. N ORX,ORLPLNM,ORLPDUZ,ORLPERR,ORLPRTN,ORLPCNT
  1. ; Get user DUZ number
  1. K DIC,Y S DIC="^VA(200,",DIC(0)="AEQ",DIC("A")="Enter user's name: ",DIC("B")=DUZ D ^DIC Q:Y<1
  1. S ORLPDUZ=$S(Y'<1:$P(Y,"^"),1:DUZ) K DIC,Y,DUOUT,DTOUT
  1. Q:'$D(ORLPDUZ)
  1. S ORX=$$FDEFSRC^ORQPTQ11(ORLPDUZ)
  1. S ORLPLNM=$P(ORX,U,2)
  1. W !!,"The user's default list of patients is based on: ",$P(ORX,U,3)," ",ORLPLNM,!
  1. I ORLPLNM="Combination" D
  1. .; Look for an existing record for this user:
  1. .K ORLPERR
  1. .S ORLPRTN=$$FIND1^DIC(100.24,"","QX",ORLPDUZ,"","","ORLPERR")
  1. .K ORLPERR
  1. .D CLEAN^DILF ; Clean up after DB call.
  1. .;
  1. .; If no combination record then punt:
  1. .I +ORLPRTN<1 Q
  1. .;
  1. .; Print title for display of current entries:
  1. .W !," User's current combination entries are:",!
  1. .;
  1. .; Call tag^routine to display existing combination sources:
  1. .S ORLPCNT=0
  1. .S ORLPCNT=$$COMBDISP^ORQPTQ5(ORLPDUZ,ORLPRTN)
  1. .I ORLPCNT<1 W !,"No current combination entries...."
  1. .W !
  1. S DIR(0)="FOU",DIR("T")=10,DIR("A")="<RETURN> to continue"
  1. I ORLPLNM="Combination" S DIR("T")=20 ; More time for combos.
  1. D ^DIR
  1. K DIR,Y,X,DTOUT,DUOUT,DIRUT
  1. ;
  1. Q
  1. ;
  1. UDEFSRC ; default list source and value for the user
  1. ; SLC/PKS - 3/2000: Modified to display "Combination" sources.
  1. ;
  1. ; Variables used:
  1. ;
  1. ; ORLPCNT = Holds return value from function call.
  1. ; ORLPDUZ = DUZ of current user.
  1. ; ORLPERR = Error array for return from DB calls.
  1. ; ORLPLNM = Name of default list source.
  1. ; ORLPRTN = Return value from DB calls.
  1. ; ORX = Holds default list source parameter.
  1. ;
  1. N ORX,ORLPLNM,ORLPDUZ,ORLPERR,ORLPRTN,ORLPCNT
  1. Q:'$D(DUZ)
  1. S ORX=$$FDEFSRC^ORQPTQ11(DUZ)
  1. S ORLPLNM=$P(ORX,U,2)
  1. W !!,"Your default list of patients is based on: ",$P(ORX,U,3)," ",ORLPLNM,!
  1. I ORLPLNM="Combination" D
  1. .; Look for an existing record for this user:
  1. .S ORLPDUZ=DUZ
  1. .K ORLPERR
  1. .S ORLPRTN=$$FIND1^DIC(100.24,"","QX",ORLPDUZ,"","","ORLPERR")
  1. .K ORLPERR
  1. .D CLEAN^DILF ; Clean up after DB call.
  1. .;
  1. .; If no combination record then punt:
  1. .I +ORLPRTN<1 Q
  1. .;
  1. .; Print title for display of current entries:
  1. .W !," Your current combination entries are:",!
  1. .;
  1. .; Call tag^routine to display existing combination sources:
  1. .S ORLPCNT=0
  1. .S ORLPCNT=$$COMBDISP^ORQPTQ5(ORLPDUZ,ORLPRTN)
  1. .I ORLPCNT<1 W !,"No current combination entries...."
  1. .W !
  1. .;
  1. .Q
  1. ;
  1. ; Allow user viewing with default timeout:
  1. S DIR(0)="FOU",DIR("T")=10,DIR("A")="<RETURN> to continue"
  1. I ORLPLNM="Combination" S DIR("T")=20 ; More time for combos.
  1. D ^DIR
  1. K DIR,Y,X,DTOUT,DUOUT,DIRUT
  1. Q
  1. ;