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

BADEPRV1.m

Go to the documentation of this file. 
  1. BADEPRV1 ;IHS/SAIC/FJE  MSC/AMF - Dentrix Dental Visit Count ;14-Sep-2010 13:59;EDR
  1.  ;;1.0;DENTAL/EDR INTERFACE;**1**;AUG 22, 2011
  1.  Q
  1. FINDDLOC ;EP Display all Dental Location of Encounter ASUFACs in RPMS
  1.  ;Optional Begin Date filter to limit data to current period of time
  1.  ;If null, all Dental visits will be viewed
  1.  ;This report displays all ASUFAC values and names associated with Dental Visits Only
  1.  ;
  1.  N BADEIEN,BADEVSIT,BADEVDT,BADESTRT,BADEASUF,BADEXX,BADENAME,BADEACT,BADEDT
  1.  N X,%ZIS,IORVON,IORVOFF,VER,PKG,K
  1.  ; Display statistics
  1.  I $E($G(IOST),1,2)'="C-" W !,"Your terminal Type is not defined correctly for this report.",!!  S DIR(0)="EA",DIR("?")="",DIR("A")="Press ENTER to continue..." D ^DIR K DIR Q
  1.  S VER="Version "_$G(VER,1.0),PKG=$G(PKG,"RPMS-Dentrix Dental ASUFAC Display")
  1.  S X="IORVON;IORVOFF"
  1.  D ENDR^%ZISS
  1.  U IO
  1.  K %DT D NOW^%DTC S BADEDT=X
  1.  W !!,"This report will display visits for each Dental Facility for a specific time period.",!
  1.  S DIR(0)="D"_BADEDT_":EP",DIR("B")="T-365",DIR("A")="Enter the start date for the search"
  1.  S DIR("?")="Specify the earliest date for your search." D ^DIR K DIR
  1.  Q:Y=U  S BADESTRT=+Y
  1.  ;S BADESTRT=0 I +Y>0 S BADESTRT=+Y
  1.  W !,"Searching..." S K=0
  1.  K BADEXX
  1.  S BADEIEN=0 F  S BADEIEN=$O(^AUPNVDEN(BADEIEN)) Q:+BADEIEN'>0  D
  1.  .S K=K+1 W:'(K#5000) "."
  1.  .Q:'$D(^AUPNVDEN(BADEIEN,0))
  1.  .S BADEVSIT=+$P($G(^AUPNVDEN(BADEIEN,0)),U,3)  ; VisitIEN
  1.  .Q:'BADEVSIT
  1.  .S BADEVDT=+$P($G(^AUPNVSIT(BADEVSIT,0)),U,1)     ; Visit Date/Time
  1.  .Q:BADEVDT<BADESTRT  ;;Less Than Start Visit Date
  1.  .S BADEASUF=$S(+$P($G(^AUPNVSIT(BADEVSIT,0)),U,6):$P($G(^AUPNVSIT(BADEVSIT,0)),U,6),1:0)  ;ASUFAC IEN
  1.  .I '$D(BADEXX(BADEASUF)) S BADEXX(BADEASUF)=0
  1.  .S BADEXX(BADEASUF)=BADEXX(BADEASUF)+1
  1.  ;
  1.  W @IOF,IORVON,$$GET1^DIQ(4,DUZ(2),.01),?(IOM-$L(PKG)\2),PKG,?(IOM-$L(VER)),VER,!,IORVOFF
  1.  I '$D(BADEXX) W !,"No visits were found for this time period.",!!  S DIR(0)="EA",DIR("?")="",DIR("A")="Press ENTER to continue..." D ^DIR K DIR Q
  1.  W !!,"Dental Facility",?32,"ASUFAC     Status Dental Visit Count"
  1.  W !,"----------------------------------------------------------------------"
  1.  S BADEIEN="" F  S BADEIEN=$O(BADEXX(BADEIEN)) Q:+BADEIEN=0  D
  1.  .S BADENAME=$S($L($P($G(^DIC(4,BADEIEN,0)),U,1)):$P($G(^DIC(4,BADEIEN,0)),U,1),1:"No Name")
  1.  .S BADEASUF=$S(+$P($G(^AUTTLOC(BADEIEN,0)),"^",10):$P($G(^AUTTLOC(BADEIEN,0)),"^",10),1:"None")
  1.  .S BADEACT=$S(+$P($G(^AUTTLOC(BADEIEN,0)),"^",21):"Inactive",1:"Active")
  1.  .W !,BADENAME,?32,BADEASUF,?43,BADEACT,?50,BADEXX(BADEIEN)
  1.  W !!
  1.  S DIR(0)="EA",DIR("?")="",DIR("A")="Press ENTER to continue..." D ^DIR K DIR
  1.  Q
  1.  ;
  1. FINDVLOC ;EP Display all Location of Encounter ASUFACs in RPMS
  1.  ;Optional Begin Date filter to limit data to current period of time
  1.  ;If null, all Dental visits will be viewed
  1.  ;This report displays all ASUFAC values and names associated with All Visits
  1.  ;
  1.  N BADEIEN,BADEVSIT,BADEVDT,BADESTRT,BADEASUF,BADEXX,BADENAME,BADEACT
  1.  N X,%ZIS,IORVON,IORVOFF,VER,PKG
  1.  ; Display statistics
  1.  Q:$E($G(IOST),1,2)'="C-"
  1.  S VER="Version "_$G(VER,1.0),PKG=$G(PKG,"RPMS-Dentrix Visit LOE ASUFAC Display")
  1.  S X="IORVON;IORVOFF"
  1.  D ENDR^%ZISS
  1.  U IO
  1.  K %DT D NOW^%DTC S BADEDT=X
  1.  S DIR(0)="D^:"_BADEDT_":EP",DIR("A")="Enter Start Date of Scan:  " KILL DA D ^DIR KILL DIR
  1.  S BADESTRT=0 I +Y>0 S BADESTRT=+Y
  1.  S DIR(0)="E",DIR("A")="Press Enter to Continue" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1.  Q:$G(DIRUT)=1
  1.  W !,"Thinking...",!
  1.  K BADEXX
  1.  S BADEIEN=0 F  S BADEIEN=$O(^AUPNVSIT(BADEIEN)) Q:+BADEIEN'>0  D
  1.  .Q:'$D(^AUPNVSIT(BADEIEN,0))
  1.  .S BADEVDT=+$P($G(^AUPNVSIT(BADEIEN,0)),U,1)  ;Visit Date/Time
  1.  .Q:BADEVDT<BADESTRT  ;;Less Than Start Visit Date
  1.  .S BADEASUF=$S(+$P($G(^AUPNVSIT(BADEIEN,0)),U,6):$P($G(^AUPNVSIT(BADEIEN,0)),U,6),1:0)  ;ASUFAC IEN
  1.  .I '$D(BADEXX(BADEASUF)) S BADEXX(BADEASUF)=0
  1.  .S BADEXX(BADEASUF)=BADEXX(BADEASUF)+1
  1.  ;
  1.  W @IOF,IORVON,$$GET1^DIQ(4,DUZ(2),.01),?(IOM-$L(PKG)\2),PKG,?(IOM-$L(VER)),VER,!,IORVOFF
  1.  W !!,"Visit LOC Name",?32,"ASUFAC     Status Visit Count"
  1.  W !,"----------------------------------------------------------------------"
  1.  S BADEIEN=0 F  S BADEIEN=$O(BADEXX(BADEIEN)) Q:+BADEIEN=0  D
  1.  .S BADENAME=$S($L($P($G(^DIC(4,BADEIEN,0)),U,1)):$P($G(^DIC(4,BADEIEN,0)),U,1),1:"No Name")
  1.  .S BADEASUF=$S(+$P($G(^AUTTLOC(BADEIEN,0)),"^",10):$P($G(^AUTTLOC(BADEIEN,0)),"^",10),1:"None")
  1.  .S BADEACT=$S(+$P($G(^AUTTLOC(BADEIEN,0)),"^",21):"Inact",1:"Act")
  1.  .W !,BADENAME,?32,BADEASUF,?43,BADEACT,?50,BADEXX(BADEIEN)
  1.  W !!
  1.  S DIR(0)="EA",DIR("?")="",DIR("A")="Press ENTER to continue..." D ^DIR K DIR
  1.  Q
  1.  ;