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

PXRRGPRT.m

Go to the documentation of this file.
  1. PXRRGPRT ;ISL/PKR - PCE reports general printing routines. 4/17/97
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**3,12,20**;Aug 12, 1996
  1. ;
  1. ;=======================================================================
  1. CLASSNE(INDENT) ;Print the selected Person Classes that had no encounters.
  1. ;PXRRPECL is the input list, the fourth piece is "M" if a match was
  1. ;found.
  1. N CLS,IC,NOMATCH,TEMP
  1. S NOMATCH=0
  1. F IC=1:1:NCL Q:NOMATCH D
  1. . I $P(PXRRPECL(IC),U,4)'="M" S NOMATCH=1
  1. ;
  1. ;Print the list.
  1. I NOMATCH D
  1. . W !!,?INDENT,"The following selected Person Classes had no encounters that met the"
  1. . W !,?INDENT,"selection criteria:"
  1. . S CLS=INDENT+INDENT
  1. . F IC=1:1:NCL D
  1. .. S TEMP=PXRRPECL(IC)
  1. .. I $P(TEMP,U,4)'="M" D
  1. ... W !!,?CLS,"Occupation: ",$P(TEMP,U,1)
  1. ... W !,?CLS,"Specialty: ",$P(TEMP,U,2)
  1. ... W !,?CLS,"Subspecialty: ",$P(TEMP,U,3)
  1. Q
  1. ;
  1. ;=======================================================================
  1. FACNE(INDENT) ;Print the selected facilities that had no encounters.
  1. ;PXRRFAC is the input list, the fourth piece is "M" if a match was
  1. ;found.
  1. N IC,IND,NOMATCH,TEMP
  1. S NOMATCH=0
  1. F IC=1:1:NFAC Q:NOMATCH D
  1. . I $P(PXRRFAC(IC),U,4)'="M" S NOMATCH=1
  1. ;
  1. ;Print the list.
  1. I NOMATCH D
  1. . W !!,"The following selected Facilities had no encounters that met the selection"
  1. . W !,"criteria:"
  1. . F IC=1:1:NFAC D
  1. .. I $P(PXRRFAC(IC),U,4)'="M" D
  1. ... S IND=$P(PXRRFAC(IC),U,1)
  1. ... S TEMP=PXRRFACN(IND)
  1. ... W !,?INDENT,$P(TEMP,U,1)," ",$P(TEMP,U,2)
  1. Q
  1. ;
  1. ;=======================================================================
  1. HDR(PAGE) ;
  1. I $E(IOST)="C",IO=IO(0) W @IOF
  1. E W !
  1. N TEMP,TEXTLEN
  1. S TEMP=$$NOW^XLFDT,TEMP=$$FMTE^XLFDT(TEMP,"P")
  1. S TEMP=TEMP_" Page "_PAGE
  1. S TEXTLEN=$L(TEMP)
  1. W ?(IOM-TEXTLEN),TEMP
  1. ;PXRROPT should be newed in the main driver.
  1. I '$D(PXRROPT) D
  1. . S PXRROPT=$$TITLE
  1. . I ($L(PXRROPT)>0)&(PXRROPT'["PCE") S PXRROPT="PCE "_PXRROPT
  1. S TEXTLEN=$L(PXRROPT)
  1. I TEXTLEN>0 D
  1. . W !!
  1. . W ?((IOM-TEXTLEN)/2),PXRROPT
  1. Q
  1. ;
  1. ;=======================================================================
  1. OLRCRIT(PSTART) ;Output the location report criteria.
  1. N ED,SD
  1. W !?PSTART,"Location selection criteria:",?32,$P(PXRRLCSC,U,2)
  1. S SD=$$FMTE^XLFDT(PXRRBDT)
  1. S ED=$$FMTE^XLFDT(PXRREDT)
  1. W !?PSTART,"Encounter date range:",?32,SD," through ",ED
  1. I $D(PXRRSCAT) D OSCAT(PXRRSCAT,PSTART)
  1. I $D(PXRRENTY) D OENTYPE(PXRRENTY,PSTART)
  1. W !,"___________________________________________________________________"
  1. Q
  1. ;
  1. ;=======================================================================
  1. OENTYPE(ENTYL,PSTART) ;Output the encounter types used for screening the encounters.
  1. N IC,CSTART,EM,ENTYPE,ENTTEXT
  1. S CSTART=PSTART+3
  1. W !,?PSTART,"Encounter types:",?32,ENTYL
  1. F IC=1:1:$L(ENTYL) D
  1. . S ENTYPE=$E(ENTYL,IC,IC)
  1. . S ENTTEXT=$$EXTERNAL^DILFD(9000010,15003,"",ENTYPE,.EM)
  1. . W !,?CSTART,ENTYPE," - ",ENTTEXT
  1. Q
  1. ;
  1. ;=======================================================================
  1. OPRCRIT(PSTART) ;Output the provider report criteria.
  1. N ED,SD
  1. W !?PSTART,"Provider selection criteria:",?32,$P(PXRRPRSC,U,2)
  1. S SD=$$FMTE^XLFDT(PXRRBDT)
  1. S ED=$$FMTE^XLFDT(PXRREDT)
  1. W !?PSTART,"Report date range:",?32,SD," through ",ED
  1. D OSCAT(PXRRSCAT,PSTART)
  1. I $P($G(PXRRPRSC),U,1)="C" D PECLASS^PXRRGPRT(PSTART)
  1. I $D(PXRRENTY) D OENTYPE(PXRRENTY,PSTART)
  1. W !,"___________________________________________________________________"
  1. Q
  1. ;
  1. ;=======================================================================
  1. OSCAT(SCL,PSTART) ;Output the service categeories used for screening the encounters.
  1. N IC,CSTART,EM,SC,SCTEXT
  1. S CSTART=PSTART+3
  1. W !,?PSTART,"Service categories:",?32,SCL
  1. F IC=1:1:$L(SCL) D
  1. . S SC=$E(SCL,IC,IC)
  1. . S SCTEXT=$$EXTERNAL^DILFD(9000010,.07,"",SC,.EM)
  1. . W !,?CSTART,SC," - ",SCTEXT
  1. Q
  1. ;
  1. ;=======================================================================
  1. PAGE ;form feed to new page
  1. I ($E(IOST)="C")&(IO=IO(0)) D
  1. . S DIR(0)="E"
  1. . W !
  1. . D ^DIR K DIR
  1. I $D(DUOUT)!($D(DTOUT)) S DONE=1 Q
  1. W:$D(IOF) @IOF
  1. S PAGE=PAGE+1
  1. D HDR^PXRRGPRT(PAGE)
  1. S HEAD=1
  1. Q
  1. ;
  1. ;=======================================================================
  1. PECLASS(CLS) ;Print the list of selected Person Classes.
  1. N IC,TEMP
  1. S TEMP=$P(PXRRPRSC,U,2)_": "
  1. W !!,TEMP
  1. F IC=1:1:NCL D
  1. . S TEMP=PXRRPECL(IC)
  1. . I IC>1 W !
  1. . W !,?CLS,"Occupation: ",$P(TEMP,U,1)
  1. . W !,?CLS,"Specialty: ",$P(TEMP,U,2)
  1. . W !,?CLS,"Subspecialty: ",$P(TEMP,U,3)
  1. Q
  1. ;
  1. ;=======================================================================
  1. PTOTAL(TEXT,TOTAL,END,LINE) ;Print totals.
  1. N IC,TEXLEN,TOTLEN
  1. S TEXLEN=$L(TEXT)
  1. S TOTLEN=$L(TOTAL)
  1. I LINE D
  1. . W !,?(END-TOTLEN-1) F IC=1:1:TOTLEN+2 W "_"
  1. W !,?(END-TEXLEN-TOTLEN),TEXT,?(END-TOTLEN),TOTAL,!
  1. Q
  1. ;
  1. ;=======================================================================
  1. TITLE() ;Set title from option file name.
  1. N XQOPT
  1. I +$G(XQY)>0 D OP^XQCHK
  1. Q $P($G(XQOPT),U,2)
  1. ;