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

ORQPTQ5.m

Go to the documentation of this file.
  1. ORQPTQ5 ; SLC/PKS - Functions for Patient Selection Lists. [4/23/04 4:49pm];05/27/14 18:25
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**82,85,187,190,320,377**;Dec 17, 1997;Build 582
  1. ;
  1. ; External Reference
  1. ; DBIA #2936 File 404.51 Read w/ FileMan
  1. Q
  1. ;
  1. COMBDISP(ORQDUZ,ORQPTR) ; Display user's "Combination" pt selection sources.
  1. ;
  1. ; Variables used:
  1. ;
  1. ; ORQCNT = Counter for number of entries displayed.
  1. ; ORQDUZ = DUZ of user involved.
  1. ; ORQPTR = IEN for user's OE/RR PT SEL COMBO file entries.
  1. ; ORQSRC = $O command values from combo entries, file ^OR(100.24,.
  1. ; ORQTXT = Text name string for combo entry pointers.
  1. ;
  1. N ORQCNT,ORQSRC,ORQTXT
  1. ;
  1. ; Check passed variables, punt on errors:
  1. S ORQCNT=0
  1. I '($D(ORQDUZ)) W !,"No user DUZ passed.",! Q ORQCNT
  1. I '($D(ORQPTR)) W !,"No combination pointer passed.",! Q ORQCNT
  1. I ORQDUZ="" W !,"No user DUZ passed.",! Q ORQCNT
  1. I ORQPTR="" W !,"No combination pointer passed.",! Q ORQCNT
  1. ;
  1. ; Order through the user's combination source entries:
  1. K ^TMP("OR",$J,"ORQCPL")
  1. S ORQSRC=0
  1. F S ORQSRC=$O(^OR(100.24,ORQPTR,.01,ORQSRC)) Q:'ORQSRC D
  1. .;
  1. .; Get the actual source name based on the pointer entry value:
  1. .S ORQTXT=""
  1. .S ORQTXT=$G(^OR(100.24,ORQPTR,.01,ORQSRC,0))
  1. .I '(ORQTXT="") D
  1. ..S ORQCNT=ORQCNT+1 ; Increment counter.
  1. ..S ORQTXT=$$COMBNM(ORQTXT) ; Call tag to create complete string.
  1. ..;
  1. ..; Write to ^TMP file for sorting:
  1. ..I ORQTXT'="" S ^TMP("OR",$J,"ORQCPL",$P(ORQTXT,U))=$P(ORQTXT,U,2)
  1. ;
  1. ; Write data to the screen:
  1. I ORQCNT D ; Data to write?
  1. .S ORQTXT="" ; Reset, re-use.
  1. .F S ORQTXT=$O(^TMP("OR",$J,"ORQCPL",ORQTXT)) Q:ORQTXT="" D
  1. ..W !,$G(^TMP("OR",$J,"ORQCPL",ORQTXT))
  1. ;
  1. K ^TMP("OR",$J,"ORQCPL") ; Clean house.
  1. ;
  1. Q ORQCNT ; Return counter.
  1. ;
  1. COMBNM(ORQVAL) ; Returns name of "Combination" source entry, ^OR(100.24 file.
  1. ;
  1. ; Returned string is "X_Name^String" where X is letter of type,
  1. ; Name is name of entity, and String resembles examples below:
  1. ;
  1. ; W_1W^Ward: 1W SURGERY WEST
  1. ; P_JONES,WILMA MD^Provider: JONES,WILMA MD
  1. ; T_SURGERYLIST2^Team List: SURGERYLIST2
  1. ; (Etc.)
  1. ;
  1. ; Variables used:
  1. ;
  1. ; ORQFILE = File for retrieval of name.
  1. ; ORQPTR = Name string to return.
  1. ; ORQRTN = Value returned by this function.
  1. ; ORQVAL = Combo source entry pointer.
  1. ;
  1. N ORQPTR,ORQFILE,ORQRTN
  1. I '($D(ORQVAL)) Q ORQRTN ; Error - punt.
  1. ;
  1. S ORQRTN="No source found...." ; Default init.
  1. S ORQPTR=$P(ORQVAL,";") ; Get pointer.
  1. S ORQFILE="^"_$P(ORQVAL,";",2) ; Get file.
  1. ;
  1. I ORQFILE="^DIC(42," D Q ORQRTN ; Wards.
  1. .S ORQRTN=$G(^DIC(42,ORQPTR,0))
  1. .I $D(ORQRTN) S ORQRTN="W"_"_"_$P(ORQRTN,U)_U_"Ward: "_$P(ORQRTN,U)_" "_$P(ORQRTN,U,2)
  1. ;
  1. I ORQFILE="^VA(200," D Q ORQRTN ; Providers.
  1. .S ORQRTN=$G(^VA(200,ORQPTR,0))
  1. .I $D(ORQRTN) S ORQRTN="P"_"_"_$P(ORQRTN,U)_U_"Provider: "_$P(ORQRTN,U)
  1. ;
  1. I ORQFILE="^DIC(45.7," D Q ORQRTN ; Specialties.
  1. .S ORQRTN=$G(^DIC(45.7,ORQPTR,0))
  1. .I $D(ORQRTN) S ORQRTN="S"_"_"_$P(ORQRTN,U)_U_"Specialty: "_$P(ORQRTN,U)
  1. ;
  1. I ORQFILE="^OR(100.21," D Q ORQRTN ; Team Lists.
  1. .S ORQRTN=$G(^OR(100.21,ORQPTR,0))
  1. .I $D(ORQRTN) S ORQRTN="T"_"_"_$P(ORQRTN,U)_U_"Team List: "_$P(ORQRTN,U)
  1. ;
  1. I ORQFILE="^SC(" D Q ORQRTN ; Clinics.
  1. .S ORQRTN=$G(^SC(ORQPTR,0))
  1. .I $D(ORQRTN) S ORQRTN="C"_"_"_$P(ORQRTN,U)_U_"Clinic: "_$P(ORQRTN,U)
  1. ;
  1. ; Return value (null will be returned if nothing matched):
  1. Q ORQRTN
  1. ;
  1. PTSCOMBO(ORQTYP,ORQPTR,APPTEND) ; Write ^TMP("OR",$J,"PATIENTS","B") patient entries.
  1. ; TDP 5/21/2014 - Added PCMM Team (E) code
  1. ; Called from COMBPTS^ORQPTQ6.
  1. ; (ORQCNT,ORQPDAT,ORQPIEN,ORQPNM,ORQPSTAT,SORT,ORQLM,ORY,ORBDATE,OREDATE new'd in calling tag.)
  1. ;
  1. ; Variables used:
  1. ;
  1. ; ORQDOB = Patient DOB.
  1. ; ORQDONE = Flag for end of patient records.
  1. ; ORQIDT = Clinic app't date stored in internal format.
  1. ; ORQMORE = Room/bed or appointment information.
  1. ; ORQPTR = PASSED: Pointer from subfile entry, combination file.
  1. ; ORQSNM = Name of source from subfile entry pointer.
  1. ; ORQSNM4 = First four letters of name of source.
  1. ; ORQSSN = Patient SSN suffix.
  1. ; ORQTYP = PASSED: Holds source type:
  1. ;
  1. ; W = Ward
  1. ; P = Provider
  1. ; S = Specialty
  1. ; T = Team List
  1. ; C = Clinic
  1. ; E = PCMM Team List
  1. ;
  1. N ORQDOB,ORQDONE,ORQIDT,ORQMORE,ORQSNM,ORQSNM4,ORQSSN,OLDAPPTEND,DATEDIF
  1. ;
  1. ; Initialize variables:
  1. S ORQDONE=0
  1. S ORQCNT=0
  1. ;
  1. ; Get name data for source:
  1. S ORQSNM4="" ; Default setting.
  1. I ORQTYP="W" S ORQSNM4=$G(^DIC(42,ORQPTR,0)) ; Wards.
  1. I ORQTYP="P" S ORQSNM4=$G(^VA(200,ORQPTR,0)) ; Providers.
  1. I ORQTYP="S" S ORQSNM4=$G(^DIC(45.7,ORQPTR,0)) ; Specialties.
  1. I ORQTYP="T" S ORQSNM4=$G(^OR(100.21,ORQPTR,0)) ; Team Lists.
  1. I ORQTYP="E" D ; PCMM Team Lists.
  1. .N DIC,DLAYGO,X,Y
  1. .S DIC="^SCTM(404.51,"
  1. .S DIC(0)=""
  1. .S X="`"_ORQPTR
  1. .D ^DIC
  1. .S ORQSNM4=$P(Y,U,2)
  1. I ORQTYP="C" D ; Clinics.
  1. .S ORQSNM4=$G(^SC(ORQPTR,0))
  1. .I ($O(ORY(""),-1)'<200),'ORQLM,(ORBDATE'=OREDATE) D
  1. ..I '$G(APPTEND) Q
  1. ..S ^TMP("OR",$J,"PATIENTS",-1)=" ^ *** UNABLE TO SHOW ALL APPOINTMENTS ***^ ^ ^ "
  1. ..S APPTEND=$$FMTH^XLFDT(APPTEND,1)-1 ;set to MUMPS' $H format
  1. ..S OLDAPPTEND=$S($D(^TMP("OR",$J,"PATIENTS",-2)):$O(^(-2,"")),1:9999999)
  1. ..I APPTEND<OLDAPPTEND D
  1. ...K ^TMP("OR",$J,"PATIENTS",-2)
  1. ...S DATEDIF=$S(APPTEND=+$H:"T",APPTEND<$H:"T-"_($H-APPTEND),APPTEND>$H:"T+"_(APPTEND-$H))
  1. ...S ^TMP("OR",$J,"PATIENTS",-2,APPTEND)=" ^"_$C(160)_" Reduce the date range by changing the stop date of the Patient Selection Defaults to "_DATEDIF_".^ ^ ^ "
  1. ..S ^TMP("OR",$J,"PATIENTS",-3)=" ^"_$C(160)_$C(160)_$C(160)_$C(160)_" ^ ^ ^ " ;add blank line
  1. ..S ^TMP("OR",$J,"PATIENTS",$O(^TMP("OR",$J,"PATIENTS",""))-1)=" ^ Showing only the first 200 appointments from "_$P(ORQSNM4,U)_"^ ^ ^ "
  1. ;
  1. ; Assure use of first 4 letters of name:
  1. S ORQSNM4=$P(ORQSNM4,U)_" " ; Add 4 for safety.
  1. S ORQSNM4=$E(ORQSNM4,1,4) ; Get first 4 only.
  1. ;
  1. ; Add label prefix to source name:
  1. S ORQSNM="" ; Default setting.
  1. S ORQSNM=$S(ORQTYP="W":"Wd ",ORQTYP="P":"Pr ",ORQTYP="S":"Sp ",ORQTYP="T":"Tm ",ORQTYP="C":"Cl ",ORQTYP="E":"Pm ",1:" ") ; Get correct name.
  1. S ORQSNM=ORQSNM_ORQSNM4 ; Prepend label.
  1. ;
  1. ; Order thru ORY array created by calls in calling routine:
  1. S ORQPDAT="" ; Initialize.
  1. F S ORQCNT=$O(ORY(ORQCNT)) Q:'ORQCNT S ORQPDAT=$G(ORY(ORQCNT)) Q:((ORQPDAT="")!(ORQDONE)) D
  1. .;
  1. .; Clear variables each time:
  1. .S (ORQPIEN,ORQPNM,ORQSSN,ORQDOB,ORQIDT,ORQMORE,ORQPSTAT)=""
  1. .;
  1. .S ORQPIEN=$P(ORQPDAT,U) ; Get patient IEN.
  1. .I ORQPIEN="" D Q ; Punt if no IEN.
  1. ..I ORQPDAT="^No appointments." S ORQDONE=1 Q
  1. ..I ORQTYP="C" D
  1. ...S ^TMP("OR",$J,"PATIENTS","B",ORQSNM_ORQPDAT)=ORQPDAT
  1. ..I ORQTYP'="C" S ORQDONE=1
  1. .S ORQPNM=$P(ORQPDAT,U,2) ; Get patient name.
  1. .;
  1. .; Get patient SSN suffix:
  1. .S ORQSSN=$$ID($G(ORQPIEN))
  1. .;
  1. .; Get patient DOB:
  1. .S ORQDOB=$$FMTE^XLFDT($P($G(^DPT(ORQPIEN,0)),U,3))
  1. .;
  1. .; Get patient room/bed information where data exists:
  1. .S ORQMORE=$P($G(^DPT(ORQPIEN,.101)),U)
  1. .;
  1. .; Assure at least 4 letters for any existing room/bed data:
  1. .I ORQMORE'="" D ; Any data now?
  1. ..I $L(ORQMORE)<4 D ; Less than 4 now?
  1. ...S ORQMORE=ORQMORE_" " ; Add 3 for safety.
  1. ...S ORQMORE=$E(ORQMORE,1,4) ; Get first 4 only.
  1. .;
  1. .; Get clinic appointment information, if applicable:
  1. .I ORQTYP="C" D
  1. ..S ORQMORE="" ; Reset, re-use.
  1. ..S ORQMORE=$P(ORQPDAT,U,4) ; App't data.
  1. ..S ORQIDT=ORQMORE ; Internal format.
  1. ..S $P(ORQMORE,".",2)=$E($P(ORQMORE,".",2)_"000",1,4)
  1. ..S ORQMORE=$$FMTE^XLFDT($P(ORQMORE,U)) ; Format app't.
  1. ..S ORQPSTAT=$P(ORQPDAT,U,9) ; Ipt/Opt status.
  1. .;
  1. .; Write a sorted entry in ^TMP("OR",$J,"PATIENTS","B"):
  1. .; (Node's data:)
  1. .; (DFN^PtName^SSN^DOB^SourceName^App't/Room/Bed^SourceIEN^IOStat)
  1. .I ORQPIEN'="" D
  1. ..;
  1. ..; Write using source name first if sorted by "S" (source) -or-
  1. ..; if "P" (app't) sort and not a clinic:
  1. ..I ((SORT="S")!((SORT="P")&(ORQTYP'="C"))) D Q
  1. ...S ^TMP("OR",$J,"PATIENTS","B",ORQSNM_" "_ORQPNM_" "_ORQPIEN_" "_ORQIDT)=ORQPIEN_U_ORQPNM_U_ORQSSN_U_ORQDOB_U_ORQSNM_U_ORQMORE_U_ORQPTR_U_ORQIDT_U_ORQPSTAT
  1. ..;
  1. ..; Use source source+app't first if "P" (app't) sort, and a clinic:
  1. ..I ((ORQTYP="C")&(SORT="P")) D Q
  1. ...S ^TMP("OR",$J,"PATIENTS","B",ORQSNM_" "_ORQIDT_" "_ORQPNM_" "_ORQPIEN)=ORQPIEN_U_ORQPNM_U_ORQSSN_U_ORQDOB_U_ORQSNM_U_ORQMORE_U_ORQPTR_U_ORQIDT_U_ORQPSTAT
  1. ..;
  1. ..; If not by source or source/app't, default to alpha ("A") sort:
  1. ..S ^TMP("OR",$J,"PATIENTS","B",ORQPNM_" "_ORQPIEN_" "_ORQSNM_" "_ORQIDT)=ORQPIEN_U_ORQPNM_U_ORQSSN_U_ORQDOB_U_ORQSNM_U_ORQMORE_U_ORQPTR_U_ORQIDT_U_ORQPSTAT
  1. ;
  1. Q
  1. ;
  1. ID(ORQPIEN) ; Return short ID for patient ID.
  1. ; (Copied from ORQPT routine and modified.)
  1. ;
  1. N ID
  1. ;
  1. S ID=$P($G(^DPT(ORQPIEN,.36)),U,4) ; Gets short ID.
  1. I '$L(ID) D ; - or -
  1. .S ID=$E($P($G(^DPT(ORQPIEN,0)),U,9),6,9) ; Last 4 of SSN
  1. ;
  1. Q "("_$E(ORQPNM)_ID_")"
  1. ;