DSIC PX GET SELECTED VISITS (1953)    REMOTE PROCEDURE (8994)

Name Value
NAME DSIC PX GET SELECTED VISITS
TAG SEL
ROUTINE DSICPX3
RETURN VALUE TYPE GLOBAL ARRAY
AVAILABILITY AGREEMENT
WORD WRAP ON TRUE
DESCRIPTION 
This will return information on selected visits for a patient based upon 
the screening factors.
INPUT PARAMETER
  • DATA
    PARAMETER TYPE:   LIST
    MAXIMUM DATA LENGTH:   256
    REQUIRED:   YES
    SEQUENCE NUMBER:   1
    DESCRIPTION:   
    Setup up Parm.Mult['"sub"'] := value   or DATA(SUB)=value
              ^DD(9000010,15003)
  NENCTYPE  string of encounter types not wanted set of codes from
              ^DD(9000010,15003)
  SERVCAT   string of service categories to include set of codes from
              ^DD(9000010,.07)
  NSERVCAT  string of service categories not to include set of codes from
              ^DD(9000010,.07)
  MAX       maximum number of entries to return starting with end date and
              going backwards
 
    sub     description
  --------  ------------------------------------------------
  DFN       pointer to the PATIENT file (#2)
  SDT       in external format or FM format
  EDT       in external format or FM format
  LOC       pointer to Hospital Location (#44)
  ENCTYPE   string of encounter types wanted set of codes from
RETURN PARAMETER DESCRIPTION 
RETURN: DSIC=$NA(^TMP("VSIT",$J))
       p5 = patient status in/out code (from field 15002)
       p6 = clinic stop ien (pointer to file 40.7;external name)
 
If problems return @DSIC@(1) = -1^message
 
  ^TMP("VSIT",$J,visit ien,n) = p1^p2^p3^p4^p5^p6  where
       p1 = FM date.time;external date.time
       p2 = location pointer;external value
              if visit's service category '= "H" then from file 44
              else then from file #9999999.06
       p3 = service category code (from field .07)
       p4 = service connected (external value from field 80001)