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

ORQPTQ6.m

Go to the documentation of this file.
  1. ORQPTQ6 ; SLC/PKS [8/27/03 11:20am];05/21/14 20:20
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**82,85,187,320,377**;Dec 17, 1997;Build 582
  1. ;
  1. ; Called by BUILD^ORQPT (LM) and DEFLIST^ORQPTQ11 (GUI).
  1. ;
  1. Q
  1. ;
  1. COMBPTS(ORQLM,ORQCPTR,ORBDATE,OREDATE) ; Build "Combination" pt. list.
  1. ; SLC/PKS.
  1. ;
  1. ; NOTE: Any calls to this tag need to deal with ORQLM passed
  1. ; variable appropriately. Notice where it is evaluated
  1. ; and make sure code specifies the setting of ORQLM (a
  1. ; boolean variable) properly for the call.
  1. ;
  1. ; Variables used:
  1. ;
  1. ; MSG = Holds error message, if any.
  1. ; ORBDATE = PASSED: Beginning date for clinic appointments.
  1. ; OREDATE = PASSED: End date for clinic appointments.
  1. ; ORQCNT = Counter for patients.
  1. ; ORQCPTR = PASSED: Combination file [^OR(100.24,] pointer.
  1. ; ORQDUZ = DUZ of current user.
  1. ; ORQERR = Array for error msg(s) return from DB calls.
  1. ; ORQFILE = Combo source entry file.
  1. ; ORQLM = PASSED: Called from LM ("1") or GUI ("0")?
  1. ; ORQPDAT = String holder for arrays and ^TMP file values.
  1. ; ORQPDOB = Patient DOB.
  1. ; ORQPFMDT = Hold app't date/time in FM internal format.
  1. ; ORQPIEN = Variable for patient IEN, ^TMP("OR",$J,"PTSCOMBO")
  1. ; ORQPMOR = Appointment or Room/Bed information.
  1. ; ORQPNM = Variable for patient name, ^TMP("OR",$J,"PTSCOMBO")
  1. ; ORQPSNM = Source name display string holder.
  1. ; ORQPSSN = Patient ID (first letter of last name, last 4 SSN).
  1. ; ORQPSTAT = Ipt or Opt (or C/NS) status for clinic lists.
  1. ; ORQPTMP = Temporary string construction holder.
  1. ; ORQPTR = Pointer to combo source entry.
  1. ; ORQRTN = Holds return value from DB calls.
  1. ; ORQSPCH = Holds return value from SELCHK^ORWPT.
  1. ; ORQSRC = Variable to hold each combo source subscript.
  1. ; ORQSRCID = IEN of source.
  1. ; ORQTXT = Variable to hold stored values.
  1. ; ORY = Array used in sub-calls.
  1. ;
  1. ; (NOTE: LCNT,LIST,MSG,NUM,SORT new'd in calling routines for LM.)
  1. ;
  1. N ORQCNT,ORQDUZ,ORQERR,ORQFILE,ORQPCNT,ORQPDAT,ORQPDOB,ORQPFMDT,ORQPIEN,ORQPNM,ORQPMOR,ORQPSNM,ORQPSSN,ORQPSTAT,ORQPTMP,ORQPTR,ORQRTN,ORQSPCH,ORQSRC,ORQSRCID,ORQTXT,ORY,MAXAPPTS
  1. ;
  1. K ^TMP("OR",$J,"PATIENTS") ; Safety cleanup.
  1. ;
  1. ; Do preliminary settings, cleanup, look for an existing user record:
  1. S MSG="" ; Default.
  1. S MAXAPPTS=$S(ORBDATE=OREDATE:0,1:200) ; If date range is only one day then no max, otherwise 200
  1. I '$D(DUZ) D
  1. .S MSG="No user DUZ info."
  1. .I 'ORQLM D GUIABORT
  1. .Q
  1. S ORQDUZ=DUZ
  1. K ORQERR
  1. S ORQRTN=$$FIND1^DIC(100.24,"","QX",ORQDUZ,"","","ORQERR")
  1. K ORQERR
  1. D CLEAN^DILF ; Clean up after DB call.
  1. ;
  1. ; If no combination record, then punt:
  1. I +ORQRTN<1 D
  1. .S MSG="No combination entry."
  1. .I 'ORQLM D GUIABORT
  1. .Q
  1. ;
  1. I ORQLM D CLEAN^VALM10 ; VALM housekeeping.
  1. ;
  1. ; Order through the user's combination source entries:
  1. I 'ORQLM S SORT="A" ; Required variable for PTSCOMBO^ORQPTQ5.
  1. S ORQSRC=0
  1. F S ORQSRC=$O(^OR(100.24,ORQRTN,.01,ORQSRC)) Q:'ORQSRC D
  1. .K ORY ; Clean up each time.
  1. .S ORQTXT="" ; Initialize.
  1. .S ORQTXT=$G(^OR(100.24,ORQRTN,.01,ORQSRC,0)) ; Get record's value.
  1. .;
  1. .; In case of error, punt:
  1. .I ORQTXT="" D
  1. ..S MSG="Combination source entry error."
  1. ..I 'ORQLM D GUIABORT ; GUI is different.
  1. ..Q
  1. .I ORQTXT="" Q
  1. .S ORQPTR=$P(ORQTXT,";") ; Get pointer.
  1. .S ORQFILE="^"_$P(ORQTXT,";",2) ; Get file.
  1. .;
  1. .; Get info for each source entry and build ORY array accordingly.
  1. .I ORQFILE="^DIC(42," D Q ; Wards.
  1. ..D WARDPTS^ORQPTQ2(.ORY,ORQPTR)
  1. ..I $D(ORY) D PTSCOMBO^ORQPTQ5("W",ORQPTR) ; Process ORY array.
  1. .I ORQFILE="^VA(200," D Q ; Providers.
  1. ..D PROVPTS^ORQPTQ2(.ORY,ORQPTR)
  1. ..I $D(ORY) D PTSCOMBO^ORQPTQ5("P",ORQPTR) ; Process ORY array.
  1. .I ORQFILE="^DIC(45.7," D Q ; Specialties.
  1. ..D SPECPTS^ORQPTQ2(.ORY,ORQPTR)
  1. ..I $D(ORY) D PTSCOMBO^ORQPTQ5("S",ORQPTR) ; Process ORY array.
  1. .I ORQFILE="^OR(100.21," D Q ; Team Lists
  1. ..D TEAMPTS^ORQPTQ1(.ORY,ORQPTR)
  1. ..I $D(ORY) D PTSCOMBO^ORQPTQ5("T",ORQPTR) ; Process ORY array.
  1. .I ORQFILE="^SC(" D Q ; Clinics.
  1. ..N APPTBGN,APPTEND S (APPTBGN,APPTEND)=""
  1. ..D CLINPTS^ORQPTQ2(.ORY,ORQPTR,ORBDATE,OREDATE,MAXAPPTS,.APPTBGN,.APPTEND)
  1. ..I $D(ORY) D PTSCOMBO^ORQPTQ5("C",ORQPTR,APPTEND) ; Process ORY array.
  1. .; TDP 5/21/2014 - Added PCMM Team List
  1. .I ORQFILE="^SCTM(404.51," D Q ; PCMM Team Lists.
  1. ..D PTEAMPTS^ORQPTQ1(.ORY,ORQPTR)
  1. ..I $D(ORY) D PTSCOMBO^ORQPTQ5("E",ORQPTR) ; Process ORY array.
  1. ;
  1. ; Order thru ^TMP file "B" node entries returned by previous calls:
  1. S ORQCNT=0 ; Reset for final use.
  1. I $D(^TMP("OR",$J,"PATIENTS")) D
  1. .S ORQPDAT=""
  1. .F S ORQPDAT=$O(^TMP("OR",$J,"PATIENTS","B",ORQPDAT)) Q:ORQPDAT="" D
  1. ..;
  1. ..; Clear variables each time through:
  1. ..S (ORQTXT,ORQPFMDT,ORQPIEN,ORQPNM,ORQPSSN,ORQPSTAT,ORQPDOB,ORQPSNM,ORQPMOR,ORQSRCID)=""
  1. ..;
  1. ..; Retrieve node's value:
  1. ..S ORQTXT=$G(^TMP("OR",$J,"PATIENTS","B",ORQPDAT))
  1. ..;
  1. ..; Set indvidual variables:
  1. ..S ORQPIEN=$P(ORQTXT,U) ; Patient DFN.
  1. ..S ORQPNM=$P(ORQTXT,U,2) ; Patient name.
  1. ..S ORQPSSN=$P(ORQTXT,U,3) ; Patient ID.
  1. ..S ORQPDOB=$P(ORQTXT,U,4) ; Patient DOB.
  1. ..S ORQPSNM=$P(ORQTXT,U,5) ; Source data.
  1. ..S ORQPMOR=$P(ORQTXT,U,6) ; App't or R/B info.
  1. ..S ORQSRCID=$P(ORQTXT,U,7) ; Source IEN.
  1. ..S ORQPFMDT=$P(ORQTXT,U,8) ; App't FM date/time.
  1. ..S ORQPSTAT=$P(ORQTXT,U,9) ; Ipt/Opt status.
  1. ..S ORQCNT=ORQCNT+1 ; Increment counter.
  1. ..;
  1. ..; If a "sensitive" patient, reassign SSN, DOB data:
  1. ..S ORQSPCH=$$SSN^DPTLK1(ORQPIEN)
  1. ..I ORQSPCH["*" S ORQPSSN=""
  1. ..S ORQPDOB=$$DOB^DPTLK1(ORQPIEN)
  1. ..;
  1. ..; Make some preliminary data settings:
  1. ..S ORQPTMP=""
  1. ..I ORQPSNM'="" S ORQPTMP=ORQPSNM_" "
  1. ..S ORQPTMP=ORQPTMP_ORQPMOR
  1. ..;
  1. ..; Write new ^TMP file "PATIENTS" nodes:
  1. ..I ORQLM D ; For LM.
  1. ...S ^TMP("OR",$J,"PATIENTS","IDX",ORQCNT)=ORQPIEN_U_ORQPNM
  1. ...S ^TMP("OR",$J,"PATIENTS",ORQCNT,0)=$$LJ^XLFSTR(ORQCNT,5)_$$LJ^XLFSTR(ORQPNM,31)_$$LJ^XLFSTR(ORQPSSN,10)_$$LJ^XLFSTR(ORQPDOB,15)_ORQPTMP_$$LJ^XLFSTR(ORQPDOB,15)_$$RJ^XLFSTR(ORQSRCID,8)_" "_ORQPFMDT
  1. ...D CNTRL^VALM10(ORQCNT,1,5,IOINHI,IOINORM)
  1. ..;
  1. ..I 'ORQLM D ; For GUI.
  1. ...S ORQTXT=ORQPIEN_U_ORQPNM_U_ORQPSNM_U_ORQPMOR_U_ORQPSSN_U_ORQPDOB_U_ORQSRCID_U_ORQPFMDT_U_ORQPSTAT
  1. ...S ^TMP("OR",$J,"PATIENTS",ORQCNT,0)=ORQTXT ; Actual global write.
  1. ;
  1. ; Set counters for return, if applicable; do cleanup:
  1. I ORQCNT S (LCNT,NUM)=ORQCNT
  1. K ORY
  1. ;
  1. ; If no patients found, prepare user message:
  1. I 'ORQCNT S MSG="No patients found."
  1. ;
  1. ; If an error message exists, dump any partial processing and quit:
  1. I MSG'="" D Q
  1. .I 'ORQLM D GUIABORT
  1. .I ORQLM K ^TMP("OR",$J,"PATIENTS")
  1. ;
  1. ; Next lines create #line^^#pts^context value entry:
  1. I ORQLM D
  1. .S ^TMP("OR",$J,"PATIENTS",0)=ORQCNT_U_ORQCNT_U_$G(LIST)
  1. .S ^TMP("OR",$J,"PATIENTS","#")=$O(^ORD(101,"B","ORQPT SELECT PATIENT",0))_"^1:"_ORQCNT
  1. ;
  1. ; Standard clean-up for GUI:
  1. I 'ORQLM D
  1. .K LCNT,LIST,MSG,NUM,SORT
  1. .K ^TMP("OR",$J,"PATIENTS","B")
  1. ;
  1. Q
  1. ;
  1. GUIABORT ; Cleanup when aborting when called from GUI.
  1. ;
  1. K ^TMP("OR",$J,"PATIENTS")
  1. S ^TMP("OR",$J,"PATIENTS",0)=""
  1. K LCNT,LIST,MSG,NUM,SORT
  1. ;
  1. Q
  1. ;