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

BWNOTIF.m

Go to the documentation of this file.
  1. BWNOTIF ;IHS/ANMC/MWR - BW ADD/EDIT BW NOTIFICATIONS;27-Mar-2003 14:36;PLS
  1. ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
  1. ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1. ;; CALLED BY DIFFERENT OPTIONS TO ADD/EDIT NOTIFICATIONS.
  1. ;
  1. ;
  1. ADD ;EP
  1. ;---> CALLED BY OPTION: "BW ADD A NEW NOTIFICATION".
  1. D SETVARS^BWUTL5
  1. D TITLE^BWUTL5("ADD NEW NOTIFICATION")
  1. D PATLKUP^BWUTL8(.Y)
  1. D:Y>0 NEW(+Y)
  1. D EXIT
  1. Q
  1. ;
  1. ;
  1. EDIT ;EP
  1. ;---> CALLED BY OPTION: "BW EDIT NOTIFICATION".
  1. ;---> EDIT AN EXISTING NOTIFICATION.
  1. D SETVARS^BWUTL5
  1. N Y
  1. D TITLE^BWUTL5("EDIT A NOTIFICATION")
  1. D DIC^BWFMAN(9002086.4,"QEMA",.Y," Select PATIENT: ")
  1. G:Y<0 EXIT
  1. D EDIT2(+Y),EXIT
  1. Q
  1. ;
  1. EXIT ;EP
  1. D KILLALL^BWUTL8
  1. Q
  1. ;
  1. ;
  1. NEW(BWDFN,BWACCN) ;EP
  1. ;---> STUFF NEW ENTRY IN BW NOTIFICATION FILE, .01=DFN.
  1. ;---> REQUIRED VARIABLE: BWDFN=IEN OF BW PATIENT, FILE 9002086.
  1. ;---> OPTIONAL VARIABLE: BWACCN=ACCESSION# FOR PROCEDURE.
  1. I $$DECEASED^BWUTL1(BWDFN) D Q
  1. .W !!?5,"This patient is registered as deceased." D DIRZ^BWUTL3
  1. N DA,DIC,X
  1. S X=BWDFN K DD,DO
  1. S DIC="^BWNOT(",DIC(0)="ML",DLAYGO=9002086
  1. S DIC("DR")=".02///T;.06///"_$S($D(BWACCN):$P(BWACCN,","),1:"")
  1. S DIC("DR")=DIC("DR")_";.07////"_$G(DUZ(2))_";.14///o"
  1. D FILE^DICN K DD,DO,DIC
  1. ;---> IF Y<0, CHECK PERMISSIONS.
  1. I Y<0 D ERROR1 Q
  1. D EDIT2(+Y)
  1. Q
  1. ;
  1. ;
  1. EDIT2(DA) ;EP - FROM BWBRNOT2
  1. ;---> REQUIRED VARIABLES: DA=IEN IN ^BWNOT(.
  1. N BWDA D SETVARS^BWUTL5
  1. S BWDFN=$P(^BWNOT(DA,0),U)
  1. D SCREEN(DA,BWDFN,.BWPOP)
  1. Q:BWPOP
  1. I $G(DA) S BWDA=DA D PRINTNOW
  1. ;---> OPPORTUNITY TO EDIT PATIENT'S CASE DATA.
  1. ;---> IF $D(BWLOOP), NEW (ABOVE) WAS CALLED FROM CASEDATA^BWPATE,
  1. ;---> SO DON'T LOOP THROUGH AGAIN.
  1. D:'$D(BWLOOP) CASEDATA^BWPATE(BWDFN)
  1. Q
  1. ;
  1. ;
  1. SCREEN(DA,BWDFN,BWPOP) ;EP
  1. ;---> EDIT WITH SCREENMAN.
  1. ;---> NEEDS BWDFN FOR SCREEN ON ACCESSION# FIELD LOOKUP.
  1. S DDSFILE=9002086.4,DR="[BW NOTIF-FORM-1]",BWPOP=0
  1. ;---> IF THIS NOTIFICATION HAS ALREADY BEEN PRINTED, THEN DISALLOW
  1. ;---> THE USER TO EDIT MOST FIELDS BY USING FORM-2 BELOW.
  1. S:$P(^BWNOT(DA,0),U,10) DR="[BW NOTIF-FORM-2]"
  1. D DDS^BWFMAN(DDSFILE,DR,DA,"","",.BWPOP)
  1. Q
  1. ;
  1. ;
  1. PRINTNOW ;EP
  1. ;---> PRINT OR VIEW NOTIFICATION NOW, IF IT'S A LETTER.
  1. ;---> REQUIRED VARIABLE: BWDA=IEN IN ^BWNOT
  1. Q:'$D(BWDA)
  1. ;---> QUIT IF THIS NOTIFICATION DOES NOT HAVE A "TYPE OF NOTIFICATION".
  1. Q:'$P(^BWNOT(BWDA,0),U,3)
  1. ;---> QUIT IF TYPE OF NOTIFICATION IS NOT PRINTABLE.
  1. Q:'$P(^BWNOTT($P(^BWNOT(BWDA,0),U,3),0),U,2)
  1. ;---> QUIT IF THIS NOTIFICATION HAS ALREADY BEEN PRINTED.
  1. ;Q:$P(^BWNOT(BWDA,0),U,10) ;DISABLED FOR NOW, ALLOW VIEW OR REPRINT.
  1. F D Q:BWPOP Q:$P(^BWNOT(BWDA,0),U,10)
  1. .N BWCRT,DA,DIR
  1. .W !!,"Do you wish to PREVIEW or PRINT this letter now?"
  1. .S DIR(0)="Y",DIR("B")="NO" D HELP2
  1. .D ^DIR K DIR W !
  1. .I $D(DIRUT)!(Y<1) S BWPOP=1 Q
  1. .;---> QUIT IF NOT ASSOCIATED WITH THE USER'S CURRENT FACILITY.
  1. .N BWFACIL S BWFACIL=$P(^BWNOT(BWDA,0),U,7)
  1. .I ((BWFACIL'=DUZ(2))&(BWFACIL)) D S BWPOP=1 Q
  1. ..D TEXT1^BWLETPR,DIRZ^BWUTL3
  1. .I Y D DEVICE^BWLETPR Q:BWPOP D PRINT^BWLETPR
  1. Q
  1. ;
  1. ERROR1 ;EP
  1. W !!?10,*7,"NEW NOTIFICATION ENTRY FOR THIS PATIENT FAILED."
  1. D DIRZ^BWUTL3
  1. Q
  1. ;
  1. ADDNOTIF ;EP
  1. ;---> ADD NEW NOTIFICATION.
  1. ;---> AT PRESENT THIS EP IS NOT CALLED BY ANTHING.
  1. W !,"Do you wish to add a NEW Notification for this patient?"
  1. S DIR(0)="Y",DIR("B")="NO" D HELP1
  1. D ^DIR K DIR W !
  1. I Y D
  1. .N BWLOOP,DIC,DIE,Y
  1. .S Y=BWDFN,BWLOOP=1 D NEW(BWDFN)
  1. Q
  1. ;
  1. HELP1 ;EP
  1. ;;Enter YES to add a NEW Notification for this patient. If the
  1. ;;notification is a letter, the letter may be queued to print shortly
  1. ;;before the patient's next appointment by selecting an appropriate
  1. ;;"Print Date".
  1. S BWTAB=5,BWLINL="HELP1" D HELPTX
  1. Q
  1. ;
  1. HELP2 ;EP
  1. ;;"Preview" allows you to look at the letter that has just been queued.
  1. ;;To preview this letter, select HOME at the "DEVICE: " prompt.
  1. ;;
  1. ;;"Print" will print the letter now (regardless of its "Print Date")
  1. ;;and remove it from the queue of letters waiting to print.
  1. ;;To print this letter now, select a printer at the "DEVICE: " prompt.
  1. S BWTAB=5,BWLINL="HELP2" D HELPTX
  1. Q
  1. ;
  1. HELPTX ;EP
  1. ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: BWTAB,BWLINL.
  1. N I,T,X S T="" F I=1:1:BWTAB S T=T_" "
  1. F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
  1. S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
  1. Q