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

BMCDKNA.m

Go to the documentation of this file.
  1. BMCDKNA ; IHS/PHXAO/TMJ - DID NOT KEEP APPOINTMENT DKNA REPORT ;
  1. ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
  1. ;
  1. ;
  1. ;
  1. START ;
  1. D INFORM
  1. ;
  1. BD ;get beginning date
  1. W !! S DIR(0)="D^::EP",DIR("A")="Enter beginning Referral Initiation Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I $D(DIRUT) G END
  1. S AZXABD=Y
  1. ED ;get ending date
  1. W ! S DIR(0)="D^"_AZXABD_"::EP",DIR("A")="Enter ending Referral Initiation Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I $D(DIRUT) G BD
  1. S AZXAED=Y
  1. S X1=AZXABD,X2=-1 D C^%DTC S AZXASD=X
  1. W !
  1. ;
  1. ;
  1. ASK ;Ask if a particular Reason Not Complete
  1. S AZXASTBD=1,AZXASTED=10
  1. W ! S DIR(0)="Y0",DIR("A")="Would you like to INCLUDE ONLY a particular Reason NOT Completed",DIR("B")="NO"
  1. S DIR("?")="To RESTRICT to a particular REASON NOT COMPLETED - Answer Yes."
  1. D ^DIR K DIR
  1. G:$D(DIRUT) BD
  1. I 'Y G PRINT
  1. STATUS ;RCIS REASON NOT COMPLETED
  1. S DIR(0)="90001,.16",DIR("A")="Enter the REASON NOT COMPLETED"
  1. K DA D ^DIR K DIR
  1. G:$D(DIRUT) ASK
  1. G:Y=0 ASK
  1. S AZXASTBD=Y,AZXASTED=Y
  1. ;
  1. ;
  1. ;
  1. ;
  1. PRINT ;PRINT CLOSED DISCLOSURES BY DATE
  1. ;W !
  1. S FLDS="[BMC DKNA REPORT]",BY(0)="^BMCREF(""AF""," S L(0)=3,DIC="^BMCREF(",L=0
  1. S FR(0,1)=AZXASTBD,TO(0,1)=AZXASTED
  1. S FR(0,2)=AZXABD,TO(0,2)=AZXAED
  1. ;S FR(0,3)=AZXADKB,TO(0,3)=AZXADKE
  1. K DHIT,DIOEND,DIOBEG
  1. D EN1^DIP
  1. END ;
  1. K AZXABD,AZXAED,X,DD0,B Q
  1. ;
  1. INFORM ;User Report Information
  1. ;
  1. ;
  1. W !,?20,"*********RCIS-REASON NOT COMPLETED REPORT**********"
  1. W !!,"The Purpose of this report is to print a listing of Referrals"
  1. W " that have not been",! W "completed for a given date range.",!! W "The User is asked to select a"
  1. W " specific REASON NOT COMPLETED or list ALL Reasons",!,"Completed."
  1. Q