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

PXRMPTD1.m

Go to the documentation of this file.
  1. PXRMPTD1 ;SLC/PKR,PJH,AGP - Reminder Inquiry print template routines. ;04/05/2016 12:06
  1. ;;2.0;CLINICAL REMINDERS;**4,12,22,45**;Feb 04, 2005;Build 566
  1. ;
  1. ;=======================================
  1. AFREQ ; Print baseline FREQUENCY/AGE RANGE.
  1. N PXAMAX,PXAMIN,PXF,PXF0,PXW
  1. S PXF0=$G(^PXD(811.9,D0,7,D1,0))
  1. S PXF=$P(PXF0,U,1)
  1. S PXAMIN=$P(PXF0,U,2)
  1. S PXAMAX=$P(PXF0,U,3)
  1. I PXF="" S PXW="MISSING FREQUENCY"
  1. S PXW=$$FREQ^PXRMPTD2(PXF)
  1. S PXW=PXW_$$FMTAGE^PXRMAGE(PXAMIN,PXAMAX)
  1. W " ",PXW
  1. Q
  1. ;
  1. ;=======================================
  1. DUEWI ;Print DO WITHIN time frame
  1. N PXF,PXW
  1. S PXF=$P($G(^PXD(811.9,D0,0)),U,4)
  1. I (PXF="")!(+PXF=0) W " Wait until actually DUE" Q
  1. S PXW=$$FREQ^PXRMPTD2(PXF)
  1. W " Do if DUE within "_PXW
  1. Q
  1. ;
  1. ;=======================================
  1. EDIT ;Print latest entry in edit history
  1. N CNT,DIWF,DIWL,DIWR,EDATA,EIEN,ETIME,FIRST,IC,MAX,UIEN,USER,X
  1. K ^UTILITY($J,"W")
  1. ;Get edit history count
  1. S MAX=$G(^PXRM(800,1,"EDIT HISTORY COUNT")) I MAX="" S MAX=2
  1. ;Last N lines
  1. S CNT=0,EIEN="A",FIRST=1
  1. F S EIEN=$O(^PXD(811.9,D0,110,EIEN),-1) Q:'EIEN Q:CNT=MAX D
  1. .;Edit date and edit by fields
  1. .S EDATA=$G(^PXD(811.9,D0,110,EIEN,0)) Q:EDATA=""
  1. .S ETIME=$P(EDATA,U),UIEN=$P(EDATA,U,2) Q:'UIEN
  1. .S USER=$$GET1^DIQ(200,UIEN,.01),CNT=CNT+1
  1. .;Comments
  1. .S DIWF="C50",DIWL=20,DIWR=78
  1. .S IC=0
  1. .F S IC=$O(^PXD(811.9,D0,110,EIEN,1,IC)) Q:'IC D
  1. ..S X=$G(^PXD(811.9,D0,110,EIEN,1,IC,0))
  1. ..D ^DIWP
  1. .;Output
  1. .;Header
  1. .I FIRST S FIRST=0 W "Edit History:",!!
  1. .W ?4,"Edit date:",?16,$$FMTE^XLFDT(ETIME,"1")
  1. .W ?40,"Edit by:",?52,USER
  1. .W !,?4,"Edit Comments:"
  1. .S IC=0
  1. .F S IC=$O(^UTILITY($J,"W",DIWL,IC)) Q:IC="" D
  1. ..W ?20,^UTILITY($J,"W",DIWL,IC,0),!
  1. .K ^UTILITY($J,"W")
  1. .W !!
  1. Q
  1. ;
  1. ;=======================================
  1. USAGE ;Format usage string
  1. W ?7,$$XFORM($P($G(^PXD(811.9,D0,100)),U,4))
  1. Q
  1. ;
  1. ;=======================================
  1. XFORM(Y) ;Print transform for field 103 in file #811.9
  1. ;If ALL
  1. N ARRAY,IC,LIT,OUTPUT,X
  1. I Y["*" D
  1. . S ARRAY("CPRS")=""
  1. . S ARRAY("DATA EXTRACT")=""
  1. . S ARRAY("REPORTS")=""
  1. ;Look for others.
  1. F IC=1:1:$L(Y) D
  1. . S X=$E(Y,IC)
  1. . I X="*" Q
  1. . S LIT=$S(X="C":"CPRS",X="X":"DATA EXTRACT",X="R":"REPORTS",X="P":"PATIENT",X="L":"REMINDER PATIENT LIST",X="O":"REMINDER ORDER CHECKS",X="A":"ACTION",1:"")
  1. . I LIT'="" S ARRAY(LIT)=""
  1. ;
  1. S LIT="",OUTPUT=""
  1. F S LIT=$O(ARRAY(LIT)) Q:LIT="" D
  1. . S OUTPUT=OUTPUT_", "_LIT
  1. Q $E(OUTPUT,3,$L(OUTPUT))
  1. ;