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

ORY306PR.m

Go to the documentation of this file.
  1. ORY306PR ;ISL/JLC - Post-install for patch OR*3*306 ;12/07/12 06:14
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**306**;Dec 17, 1997;Build 43
  1. ;
  1. ;
  1. QPR ; queue provider report to occur monthly
  1. N WHEN,%,X1,X2,X,Y,YR,DT,MN
  1. D LMES("Queue Monthly CS Report by Provider...",10,"B")
  1. D OPTSTAT^XUTMOPT("OR EPCS CS RX BY PROVIDER",.INFO) ;first, check for an existing schedule
  1. S Y=$P($G(INFO(1)),"^",2)
  1. D DD^%DT
  1. S WHEN=Y
  1. I $P($G(INFO(1)),"^",2)]"" D ;;already scheduled
  1. . D LMES("'OR EPCS CS RX BY PROVIDER' scheduled for "_WHEN,15)
  1. E D ;
  1. . S DT=$$NOW^XLFDT,YR=$E(DT,1,3)+1700,MN=$E(100+$E(DT,4,5),2,99) S MN=MN+1 I MN>12 S MN=1,YR=YR+1
  1. . S YR=YR-1700,WHEN=$P(YR_$E(MN+100,2,3)_"01",".")_".21"
  1. . D RESCH^XUTMOPT("OR EPCS CS RX BY PROVIDER",WHEN,"","1M","L")
  1. . S Y=WHEN
  1. . D DD^%DT
  1. . S WHEN=Y
  1. . D LMES("'OR EPCS CS RX BY PROVIDER' scheduled for "_WHEN,15)
  1. ;
  1. D LMES("Continuing...",20)
  1. D LMES("",1,"B")
  1. Q
  1. LMES(STR,SPCNUM,BVAR) ; List text in output display
  1. ;
  1. ; INPUT:
  1. ; STR - String to output
  1. ; SPCNUM - # Leading spaces
  1. ; BVAR - Null: Do not print a blank prior to text (Default) [MES]
  1. ; "B" : Print a blank prior to text [BMES]
  1. N ORMSG
  1. S ORMSG=""
  1. S:+$G(SPCNUM)=0 SPCNUM=1
  1. S $P(ORMSG," ",+$G(SPCNUM))=STR
  1. D:$G(BVAR)'="B" MES^XPDUTL(ORMSG)
  1. D:$G(BVAR)="B" BMES^XPDUTL(ORMSG)
  1. Q