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

SDECXML2.m

Go to the documentation of this file. 
  1. SDECXML2 ;ALB/JCH - SCHEDULING ENHANCEMENTS 3 UTILITIES ;11/03/14 10:59am
  1.  ;;5.3;Scheduling;**628**;Aug 13, 1993;Build 371
  1.  ;
  1.  ;
  1. PROVIDER(SDLCNT,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,DTINC,CLNTAG,GRPFLG,SDCALL,DTNAM,SDGALL,SDNODE) ; Provider
  1.  N PRTOT,SDDATA,SDLG,APPTOT,APPLEN,SDSTPNAM,STSTP,SDACTAP,ACTOT,GRPCODE,ADJDIFF,ADJDEM,APPDEM,APPLEN
  1.  N APPEST,APPNEW,APPOVR,DIC,DR,DTNAMAR,SDRESCH,SDSTP,STRING
  1.  I ($G(SDGRP)=0)&(SDGALL=1) Q
  1.  ;S DTNAM=$G(DTNAMAR(DTINC))
  1.  S SDSTPNAM=$P($G(^SC(+$P(SDCLN,"^",2),0)),"^")
  1.  ;
  1.  ; Appointments - demand
  1.  I SDIV="All",SDGRP="All" D  Q
  1.  .D PRALALAL^SDECXML4(.SDLCNT,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,DTINC,DTNAM)
  1.  ;
  1.  I SDIV,SDGRP="All",$P(SDCLN,"^",2) D  Q
  1.  .D PRALAL^SDECXML4(.SDLCNT,SDRPTYP,SDAT,SDFAC,SDIV,"All",SDCLN,SDPRV,DTINC,DTNAM)
  1.  ;
  1.  I SDIV="All" D
  1.  .S APPTOT="",APPLEN="",SDACTAP="",APPDEM="",ACTOT="",SDSTP="",ADJDIFF="",ADJDEM="",ADJDEM=""
  1.  .F  S APPLEN=$O(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN)) Q:'APPLEN  D
  1.  ..S SDSTP="" F  S SDSTP=$O(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP)) Q:SDSTP=""  D
  1.  ...Q:SDSTP="STAT"  S ACTOT=""
  1.  ...;I '$G(GRPFLG) S SDFILT=$$GRP^SDECXML(SDGRP) D SETTMPF^SDECXML(.SDLCNT,SDFILT,13)
  1.  ...S APPTOT=$G(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP))
  1.  ...S APPDEM=APPDEM+APPTOT
  1.  ..S SDRESCH="" F  S SDRESCH=$O(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN,"STAT",SDRESCH)) Q:SDRESCH=""  D
  1.  ...Q:'($P(SDRESCH,";")="NSR"!($P(SDRESCH,";")="CPR")!($P(SDRESCH,";")="CCR"))
  1.  ...S ADJDIFF=ADJDIFF+(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN,"STAT",SDRESCH)*APPLEN)
  1.  .S ADJDEM=APPDEM I ADJDIFF&APPDEM S ADJDEM=APPDEM-ADJDIFF
  1.  .S ADJDEM=$S($G(ADJDIFF):ADJDEM,1:APPDEM)
  1.  .D PARSE^SDECXML2(APPDEM,SDCLN,SDPRV,"DEM",APPLEN,SDSTP,ADJDEM)
  1.  .;
  1.  I $G(SDIV) D
  1.  .S APPTOT="",APPLEN="",SDACTAP="",APPDEM="",ACTOT="",SDSTP="",ADJDIFF="",ADJDEM="",APPLEN=""
  1.  .S APPLEN="" F  S APPLEN=$O(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN)) Q:'APPLEN  D
  1.  ..S SDSTP="" F  S SDSTP=$O(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP)) Q:SDSTP=""  D
  1.  ...Q:SDSTP="STAT"  S ACTOT=""
  1.  ...I '$G(GRPFLG) S SDFILT=$$GRP^SDECXML(SDGRP) D SETTMPF^SDECXML(.SDLCNT,SDFILT,13)
  1.  ...S APPTOT=$G(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP))
  1.  ...S APPDEM=APPDEM+APPTOT
  1.  ..S SDRESCH="" F  S SDRESCH=$O(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN,"STAT",SDRESCH)) Q:SDRESCH=""  D
  1.  ...Q:'($P(SDRESCH,";")="NSR"!($P(SDRESCH,";")="CPR")!($P(SDRESCH,";")="CCR"))
  1.  ...S ADJDIFF=ADJDIFF+(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN,"STAT",SDRESCH)*APPLEN)
  1.  .S ADJDEM=APPDEM I ADJDIFF&APPDEM S ADJDEM=APPDEM-ADJDIFF
  1.  .S ADJDEM=$S($G(ADJDIFF):ADJDEM,1:APPDEM)
  1.  .D PARSE^SDECXML2(APPDEM,SDCLN,SDPRV,"DEM",APPLEN,SDSTP,ADJDEM)
  1.  .;
  1.  ; Appointments - lengths
  1.  S APPTOT="",APPLEN="",SDACTAP="",APPDEM="",ACTOT=""
  1.  I SDIV="All" S APPLEN="" F  S APPLEN=$O(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN)) Q:'APPLEN  D
  1.  .S SDSTP="" F  S SDSTP=$O(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP)) Q:SDSTP=""  D
  1.  ..Q:SDSTP="STAT"  S ACTOT=""
  1.  ..S APPTOT=$G(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP))
  1.  ..;Q:(APPTOT="")
  1.  ..I '$G(GRPFLG) S SDFILT=$$GRP^SDECXML(SDGRP) D SETTMPF^SDECXML(.SDLCNT,SDFILT,13)
  1.  ..S APPOVR=$P(APPTOT,"^",2),APPNEW=$P(APPTOT,"^",3),APPEST=$P(APPTOT,"^",4),ACTOT=APPNEW+APPEST
  1.  ..I ACTOT D PARSE^SDECXML2(ACTOT,SDCLN,SDPRV,"APPACT",APPLEN,SDSTP)
  1.  ..I APPOVR S SDDATA=$$PROV^SDECXML(SDPRV)_" "_$$OVRAP^SDECXML2(APPOVR,APPLEN,SDSTP) D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ..I APPNEW S SDDATA=$$PROV^SDECXML(SDPRV)_" "_$$NEWAP^SDECXML2(APPNEW,APPLEN,SDSTP) D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ..I APPEST S SDDATA=$$PROV^SDECXML(SDPRV)_" "_$$ESTAP^SDECXML2(APPEST,APPLEN,SDSTP) D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ;
  1.  S APPTOT="",APPLEN="",SDACTAP="",APPDEM="",ACTOT=""
  1.  I $G(SDIV) S APPLEN="" F  S APPLEN=$O(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN)) Q:'APPLEN  D
  1.  .S SDSTP="" F  S SDSTP=$O(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP)) Q:SDSTP=""  D
  1.  ..Q:SDSTP="STAT"  S ACTOT=""
  1.  ..S APPTOT=$G(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV,"APP","LEN",APPLEN,SDSTP))
  1.  ..;Q:(APPTOT="")
  1.  ..I '$G(GRPFLG) S SDFILT=$$GRP^SDECXML(SDGRP) D SETTMPF^SDECXML(.SDLCNT,SDFILT,13)
  1.  ..S APPOVR=$P(APPTOT,"^",2),APPNEW=$P(APPTOT,"^",3),APPEST=$P(APPTOT,"^",4),ACTOT=APPNEW+APPEST
  1.  ..I ACTOT D PARSE^SDECXML2(ACTOT,SDCLN,SDPRV,"APPACT",APPLEN,SDSTP)
  1.  ..I APPOVR S SDDATA=$$PROV^SDECXML(SDPRV)_" "_$$OVRAP^SDECXML2(APPOVR,APPLEN,SDSTP) D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ..I APPNEW S SDDATA=$$PROV^SDECXML(SDPRV)_" "_$$NEWAP^SDECXML2(APPNEW,APPLEN,SDSTP) D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ..I APPEST S SDDATA=$$PROV^SDECXML(SDPRV)_" "_$$ESTAP^SDECXML2(APPEST,APPLEN,SDSTP) D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ;
  1.  I $G(SDIV) S PRTOT=$G(^XTMP(SDNODE,DTNAM,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLN,SDPRV))
  1.  I SDIV="All" S PRTOT=$G(^XTMP(SDNODE,"PROVIDER",DTNAM,SDRPTYP,SDAT,"GRP",SDGRP,"CLIN",SDCLN,SDPRV))
  1.  I ($G(PRTOT)]"") N SDI F SDI=1:1:4 D
  1.  .S SDDATA=$$PROV^SDECXML(SDPRV)_" "_$S(SDI=1:$$ENC^SDECXML($P(PRTOT,"^",SDI)),SDI=2:$$NEW^SDECXML($P(PRTOT,"^",SDI)),SDI=3:$$EST^SDECXML($P(PRTOT,"^",SDI)),SDI=4:$$TEL^SDECXML($P(PRTOT,"^",SDI)),1:"")
  1.  .Q:($TR(SDDATA,"^","")="")
  1.  .I '$G(GRPFLG) S SDFILT=$$GRP^SDECXML(SDGRP) D SETTMPF^SDECXML(.SDLCNT,SDFILT,13)
  1.  .D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  Q
  1.  ;
  1. DIVNAME(DIV) ; Division name
  1.  K DIVNAME,DIC,DR
  1.  I DIV="All" Q DIV
  1.  N DIE,DIQ,DIR,DA,X,Y
  1.  S DIQ(0)="I",DIC=40.8,DA=+$G(DIV),DR=".01"
  1.  D GETS^DIQ(DIC,DA,DR,"I","DIVNAME")
  1.  S DIVNAME=$G(DIVNAME(DIC,DA_",",.01,"I"))
  1.  I DIVNAME=""!($L(DIVNAME)<3) S DIVNAME=$P($$SITE^VASITE(),"^",2)
  1.  Q DIVNAME
  1.  ;
  1. OUTPUT(TEXT,PAD,SDLCNT,SDEBUG) ; Generic Set/Output
  1.  I $G(XMLNODE)="" S XMLNODE=$S($G(SDFLTFLG):"FLTXML",1:"SDECXML")
  1.  I TEXT["/Rg" S GRPFLG=0
  1.  I TEXT["/Rs" S CLNTAG=0
  1.  S SDLCNT=$G(SDLCNT)+1
  1.  I $G(SDEBUG) U IO W:(SDLCNT>1) ! W ?PAD,TEXT
  1.  S ^XTMP("SDVSE",XMLNODE,SDLCNT)=TEXT
  1.  Q
  1.  ;
  1. CLINIC(SDLCNT,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLIN,DTINC,SDNODE,CLNTAG,SDCALL,GRPFLG,SDEBUG,XMLNODE) ; Clinic
  1.  N CLTOT,SDFILT,SDMEAS,SDDATA,DTNAM,TMPCLIN,GRPTOT,PRGDTOT,SDCLDIV,ACTOT,SDCLNALL,SDCLPR
  1.  S DTNAM=$G(DTNAMAR(DTINC))
  1.  I '$G(SDCALL) D ALLCLIN^SDECXML5(.SDLCNT,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,DTINC,.CLNTAG,"",SDCALL,SDNODE,.GRPFLG,SDEBUG,XMLNODE)
  1.  D ONECLIN^SDECXML4(.SDLCNT,SDRPTYP,SDAT,SDFAC,SDIV,SDGRP,SDCLIN,DTINC,"",SDEBUG,.CLNTAG,.GRPFLG,SDNODE,XMLNODE) ; Single Clinic
  1.  ;
  1.  Q
  1.  ;
  1. NEWAP(NEW,LEN,STOP) ; Return new patients
  1.  N STOPNAM
  1.  ;S STOPNAM=$$GRPNAM^SDECXML(STOP)
  1.  S STOPNAM=$P($$GRPNAM^SDECXML(STOP),") ",2)
  1.  S STRING="Mn="""_LEN_" Min Appointments - "_STOPNAM_""" Vt=""New Patients"" Vl="""_NEW_"""" Q STRING
  1. ESTAP(EST,LEN,STOP) ; Return established patients
  1.  N STOPNAM
  1.  ;S STOPNAM=$$GRPNAM^SDECXML(STOP)
  1.  S STOPNAM=$P($$GRPNAM^SDECXML(STOP),") ",2)
  1.  S STRING="Mn="""_LEN_" Min Appointments - "_STOPNAM_""" Vt=""Established Patients"" Vl="""_EST_"""" Q STRING
  1. OVRAP(OVR,LEN,STOP) ; Appointment 
  1.  N STOPNAM
  1.  S STOPNAM=$P($$GRPNAM^SDECXML(STOP),") ",2)
  1.  S STRING="Mn="""_LEN_" Min Appointments - "_STOPNAM_""" Vt=""Overbooks"" Vl="""_OVR_""""
  1.  Q STRING
  1. ACTUALAP(ACTUAL,LEN,STOP) ; Appointment 
  1.  N STOPNAM
  1.  S STOPNAM=$P($$GRPNAM^SDECXML(STOP),") ",2)
  1.  S STRING="Mn="""_LEN_" Min Appointments - "_STOPNAM_""" Vt=""Actual"" Vl="""_ACTUAL_""""
  1.  Q STRING
  1.  ;
  1. PARSE(TOT,CL,PR,TYPE,LEN,STOP,ADJ) ; Get record attributes, write/set
  1.  I $G(TYPE)="" D  Q
  1.  .N SDI F SDI=1:1:4 D
  1.  ..S SDDATA=$$PROV^SDECXML(PR)_" "_$S(SDI=1:$$ENC^SDECXML($P(TOT,"^",SDI)),SDI=2:$$NEW^SDECXML($P(TOT,"^",SDI)),SDI=3:$$EST^SDECXML($P(TOT,"^",SDI)),SDI=4:$$TEL^SDECXML($P(TOT,"^",SDI)),1:"")
  1.  ..Q:($TR(SDDATA,"^","")="")
  1.  ..D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ;
  1.  I $G(TYPE)="OVR" D
  1.  .S SDDATA=$$PROV^SDECXML(PR)_" "_$$RCAOVR^SDECXML($P(TOT,"^"))
  1.  .Q:SDDATA=""
  1.  .D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ;
  1.  I $E($G(TYPE),1,3)="APP" D
  1.  .S SDDATA=$$PROV^SDECXML(PR)_" "_$S(TYPE="APPOVR":$$OVRAP^SDECXML2(TOT,LEN,STOP),TYPE="APPNEW":$$NEWAP^SDECXML2(TOT,LEN,STOP),TYPE="APPEST":$$ESTAP^SDECXML2(TOT,LEN,STOP),TYPE="APPACT":$$ACTUALAP^SDECXML2(TOT,LEN,STOP),1:"")
  1.  .Q:SDDATA=""
  1.  .D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ;
  1.  I $G(TYPE)="DEM" S SDDATA=$$PROV^SDECXML(PR)_" "_$$RCADEM^SDECXML(TOT) D
  1.  .I $G(ADJ)<0
  1.  .D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  .S SDDATA=$$PROV^SDECXML(PR)_" "_$$RCADEMA^SDECXML($G(ADJ))
  1.  .D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  ;
  1.  I $G(TYPE)="SUP" D
  1.  .S SDDATA=$$PROV^SDECXML("All")_" "_$$RCASUP^SDECXML($P(TOT,"^"))
  1.  .Q:SDDATA=""
  1.  .D SETREC^SDECXML(.SDLCNT,SDDATA,15)
  1.  Q