- WVBRNOT2 ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE NOTIFICATIONS;
- ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
- ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
- ;; PROMPTS FOR SELECTION CRITERIA WHEN BROWSING NOTIFICATIONS.
- ;; CALLED BY WVBRNOT.
- ;
- D SETVARS^WVUTL5
- D TITLE^WVUTL5("BROWSE NOTIFICATIONS")
- D ONEALL Q:WVPOP
- D DATES Q:WVPOP
- D STATUS Q:WVPOP
- D CMGR Q:WVPOP
- D ORDER Q:WVPOP
- D DEVICE Q:WVPOP
- Q
- ;
- ONEALL ;EP
- ;---> SELECT ONE PATIENT OR ALL PATIENTS.
- K DIR
- W !!?3,"Browse Notifications for ONE individual patient,"
- W !?3,"or browse Notifications for ALL patients?"
- S DIR("A")=" Select ONE or ALL: ",DIR("B")="ALL"
- S DIR(0)="SAM^o:ONE;a:ALL" D HELP2
- D ^DIR K DIR
- I Y=-1!($D(DIRUT)) S WVPOP=1 Q
- ;---> IF ALL PATIENTS, S WVA=1 AND QUIT.
- I Y="a" S WVA=1 Q
- ;
- W !!," Select the patient whose Notifications you wish to browse."
- D PATLKUP^WVUTL8(.Y)
- I Y<0 S WVPOP=1 Q
- ;---> FOR ONE PATIENT, SET WVA=0 AND WVDFN=PATIENT DFN, QUIT.
- S WVDFN=+Y,WVA=0,WVCMGR=$P(^WV(790,WVDFN,0),U,10)
- Q
- ;
- DATES ;EP
- ;---> ASK DATE RANGE. RETURN DATES IN WVBEGDT AND WVENDDT.
- ;---> IF LOOKING AT ONLY ONE PATIENT, SET DEFAULT BEGIN DATE=T-365.
- S WVBEGDF=$S(WVA:"T-30",1:"T-365")
- D ASKDATES^WVUTL3(.WVBEGDT,.WVENDDT,.WVPOP,WVBEGDF,"T")
- Q
- ;
- STATUS ;EP
- ;---> GET XREF: OPEN OR ALL
- W !!?3,"Do you wish to browse DELINQUENT, OPEN, QUEUED, "
- W "or ALL Notifications?"
- S DIR("A")=" Select DELINQUENT, OPEN, QUEUED or ALL: "
- S DIR("B")="OPEN"
- S DIR(0)="SAM^d:DELINQUENT;o:OPEN;q:QUEUED;a:ALL" D HELP4
- D ^DIR K DIR
- I Y=-1!($D(DIRUT)) S WVPOP=1 Q
- S WVB=Y
- Q
- ;
- CMGR ;EP
- ;---> SELECT CASES FOR ONE CASE MANAGER OR ALL.
- ;---> DO NOT PROMPT FOR CASE MANAGER IF SITE PARAMETERS SAY NOT TO,
- ;---> OR IF LOOKING AT PROCEDURES FOR ONLY ONE PATIENT.
- I '$D(^WV(790.02,DUZ(2),0)) S WVE=1 Q
- I '$P(^WV(790.02,DUZ(2),0),U,5)!('WVA) S WVE=1 Q
- W !!?3,"Browse Notifications for ONE particular Case Manager,"
- W !?3,"or browse Notifications for ALL Case Managers?"
- S DIR("A")=" Select ONE or ALL: ",DIR("B")="ALL"
- S DIR(0)="SAM^o:ONE;a:ALL" D HELP5
- D ^DIR K DIR
- I Y=-1!($D(DIRUT)) S WVPOP=1 Q
- ;---> IF ALL CASE MANAGERS, S WVE=1 AND QUIT.
- I Y="a" S WVE=1 Q
- ;
- W !!," Select the Case Manager whose patients you wish to browse."
- ;
- D DIC^WVFMAN(790.01,"QEMA",.Y," Select CASE MANAGER: ")
- I Y<0 S WVPOP=1 Q
- ;---> FOR ONE CASE MANAGER, SET WVE=0 AND WVCMGR=^VA(200 DFN, QUIT.
- S WVCMGR=+Y,WVE=0
- Q
- ;
- ;
- ORDER ;EP
- ;---> ASK ORDER BY DATE OR BY PATIENT OR BY PRIORITY.
- ;---> IF LOOKING AT ONLY ONE PATIENT, ORDER BY DATE AND QUIT.
- I 'WVA S WVC=1 Q
- ;
- ;---> SORT SEQUENCE IN WVC: 1=DATE, PATIENT, PRIORITY
- ;---> 2=PATIENT, DATE, PRIORITY
- ;---> 3=PRIORITY, DATE, PATIENT
- ;
- W !!?3,"Display Notifications in order of:"
- W ?39,"1) DATE OF NOTIFICATION (earliest first)"
- W !?39,"2) NAME OF PATIENT (alphabetically)"
- W !?39,"3) PRIORITY (beginning with URGENT)"
- S DIR("A")=" Select 1, 2, or 3: ",DIR("B")=1
- S DIR(0)="SAM^1:DATE;2:NAME;3:PRIORITY" D HELP3
- D ^DIR K DIR
- I Y=-1!($D(DIRUT)) S WVPOP=1 Q
- S WVC=Y
- Q
- ;
- DEVICE ;EP
- ;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
- S ZTRTN="DEQUEUE^WVBRNOT"
- F WVSV="A","B","C","D","E","CMGR","DFN","BEGDT","ENDDT" D
- .I $D(@("WV"_WVSV)) S ZTSAVE("WV"_WVSV)=""
- D ZIS^WVUTL2(.WVPOP,1,"HOME")
- Q
- ;
- HELP2 ;EP
- ;;Answer "ONE" to browse Notifications for ONE particular patient.
- ;;Answer "ALL" to browse Notifications for ALL patients.
- S WVTAB=5,WVLINL="HELP2" D HELPTX
- Q
- ;
- HELP3 ;EP
- ;;Enter "DATE" to list Notifications in chronological order beginning
- ;; with the oldest first.
- ;;Enter "NAME" to list Notifications by Patient Name in alphabetical
- ;; order.
- ;;Enter "PRIORITY" to list Notifications by degree of urgency,
- ;; beginning with the most urgent first.
- S WVTAB=5,WVLINL="HELP3" D HELPTX
- Q
- ;
- HELP4 ;EP
- ;;"OPEN Notifications" are ones that have not yet been closed,
- ;; in other words, the patient has not yet been reached or has not
- ;; yet responded.
- ;;
- ;;"DELINQUENT Notifications" are OPEN Notifications that have remained
- ;; open past the date they were due to be closed (as determined by
- ;; the "DATE DELINQUENT BY" field in the Edit Notification screen).
- ;;
- ;;"QUEUED Notifications" are only LETTERS waiting to be printed.
- ;; They do not include letters that have already been printed.
- ;;
- ;;"ALL Notifications" includes DELINQUENT, OPEN and CLOSED.
- ;; CLOSED notifications are ones that have been brought to closure,
- ;; in other words, either the patient has been contacted or the
- ;; case is no longer active.
- S WVTAB=5,WVLINL="HELP4" D HELPTX
- Q
- ;
- HELP5 ;EP
- ;;Answer "ONE" to browse Notifications for ONE particular Case Manager.
- ;;Answer "ALL" to browse Notifications for ALL Case Managers.
- S WVTAB=5,WVLINL="HELP5" D HELPTX
- Q
- ;
- HELPTX ;EP
- ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
- N I,T,X S T=$$REPEAT^XLFSTR(" ",WVTAB)
- F I=1:1 S X=$T(@WVLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
- S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVBRNOT2 5217 printed Jan 18, 2025@03:47:54 Page 2
- WVBRNOT2 ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE NOTIFICATIONS;
- +1 ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
- +2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
- +3 ;; PROMPTS FOR SELECTION CRITERIA WHEN BROWSING NOTIFICATIONS.
- +4 ;; CALLED BY WVBRNOT.
- +5 ;
- +6 DO SETVARS^WVUTL5
- +7 DO TITLE^WVUTL5("BROWSE NOTIFICATIONS")
- +8 DO ONEALL
- if WVPOP
- QUIT
- +9 DO DATES
- if WVPOP
- QUIT
- +10 DO STATUS
- if WVPOP
- QUIT
- +11 DO CMGR
- if WVPOP
- QUIT
- +12 DO ORDER
- if WVPOP
- QUIT
- +13 DO DEVICE
- if WVPOP
- QUIT
- +14 QUIT
- +15 ;
- ONEALL ;EP
- +1 ;---> SELECT ONE PATIENT OR ALL PATIENTS.
- +2 KILL DIR
- +3 WRITE !!?3,"Browse Notifications for ONE individual patient,"
- +4 WRITE !?3,"or browse Notifications for ALL patients?"
- +5 SET DIR("A")=" Select ONE or ALL: "
- SET DIR("B")="ALL"
- +6 SET DIR(0)="SAM^o:ONE;a:ALL"
- DO HELP2
- +7 DO ^DIR
- KILL DIR
- +8 IF Y=-1!($DATA(DIRUT))
- SET WVPOP=1
- QUIT
- +9 ;---> IF ALL PATIENTS, S WVA=1 AND QUIT.
- +10 IF Y="a"
- SET WVA=1
- QUIT
- +11 ;
- +12 WRITE !!," Select the patient whose Notifications you wish to browse."
- +13 DO PATLKUP^WVUTL8(.Y)
- +14 IF Y<0
- SET WVPOP=1
- QUIT
- +15 ;---> FOR ONE PATIENT, SET WVA=0 AND WVDFN=PATIENT DFN, QUIT.
- +16 SET WVDFN=+Y
- SET WVA=0
- SET WVCMGR=$PIECE(^WV(790,WVDFN,0),U,10)
- +17 QUIT
- +18 ;
- DATES ;EP
- +1 ;---> ASK DATE RANGE. RETURN DATES IN WVBEGDT AND WVENDDT.
- +2 ;---> IF LOOKING AT ONLY ONE PATIENT, SET DEFAULT BEGIN DATE=T-365.
- +3 SET WVBEGDF=$SELECT(WVA:"T-30",1:"T-365")
- +4 DO ASKDATES^WVUTL3(.WVBEGDT,.WVENDDT,.WVPOP,WVBEGDF,"T")
- +5 QUIT
- +6 ;
- STATUS ;EP
- +1 ;---> GET XREF: OPEN OR ALL
- +2 WRITE !!?3,"Do you wish to browse DELINQUENT, OPEN, QUEUED, "
- +3 WRITE "or ALL Notifications?"
- +4 SET DIR("A")=" Select DELINQUENT, OPEN, QUEUED or ALL: "
- +5 SET DIR("B")="OPEN"
- +6 SET DIR(0)="SAM^d:DELINQUENT;o:OPEN;q:QUEUED;a:ALL"
- DO HELP4
- +7 DO ^DIR
- KILL DIR
- +8 IF Y=-1!($DATA(DIRUT))
- SET WVPOP=1
- QUIT
- +9 SET WVB=Y
- +10 QUIT
- +11 ;
- CMGR ;EP
- +1 ;---> SELECT CASES FOR ONE CASE MANAGER OR ALL.
- +2 ;---> DO NOT PROMPT FOR CASE MANAGER IF SITE PARAMETERS SAY NOT TO,
- +3 ;---> OR IF LOOKING AT PROCEDURES FOR ONLY ONE PATIENT.
- +4 IF '$DATA(^WV(790.02,DUZ(2),0))
- SET WVE=1
- QUIT
- +5 IF '$PIECE(^WV(790.02,DUZ(2),0),U,5)!('WVA)
- SET WVE=1
- QUIT
- +6 WRITE !!?3,"Browse Notifications for ONE particular Case Manager,"
- +7 WRITE !?3,"or browse Notifications for ALL Case Managers?"
- +8 SET DIR("A")=" Select ONE or ALL: "
- SET DIR("B")="ALL"
- +9 SET DIR(0)="SAM^o:ONE;a:ALL"
- DO HELP5
- +10 DO ^DIR
- KILL DIR
- +11 IF Y=-1!($DATA(DIRUT))
- SET WVPOP=1
- QUIT
- +12 ;---> IF ALL CASE MANAGERS, S WVE=1 AND QUIT.
- +13 IF Y="a"
- SET WVE=1
- QUIT
- +14 ;
- +15 WRITE !!," Select the Case Manager whose patients you wish to browse."
- +16 ;
- +17 DO DIC^WVFMAN(790.01,"QEMA",.Y," Select CASE MANAGER: ")
- +18 IF Y<0
- SET WVPOP=1
- QUIT
- +19 ;---> FOR ONE CASE MANAGER, SET WVE=0 AND WVCMGR=^VA(200 DFN, QUIT.
- +20 SET WVCMGR=+Y
- SET WVE=0
- +21 QUIT
- +22 ;
- +23 ;
- ORDER ;EP
- +1 ;---> ASK ORDER BY DATE OR BY PATIENT OR BY PRIORITY.
- +2 ;---> IF LOOKING AT ONLY ONE PATIENT, ORDER BY DATE AND QUIT.
- +3 IF 'WVA
- SET WVC=1
- QUIT
- +4 ;
- +5 ;---> SORT SEQUENCE IN WVC: 1=DATE, PATIENT, PRIORITY
- +6 ;---> 2=PATIENT, DATE, PRIORITY
- +7 ;---> 3=PRIORITY, DATE, PATIENT
- +8 ;
- +9 WRITE !!?3,"Display Notifications in order of:"
- +10 WRITE ?39,"1) DATE OF NOTIFICATION (earliest first)"
- +11 WRITE !?39,"2) NAME OF PATIENT (alphabetically)"
- +12 WRITE !?39,"3) PRIORITY (beginning with URGENT)"
- +13 SET DIR("A")=" Select 1, 2, or 3: "
- SET DIR("B")=1
- +14 SET DIR(0)="SAM^1:DATE;2:NAME;3:PRIORITY"
- DO HELP3
- +15 DO ^DIR
- KILL DIR
- +16 IF Y=-1!($DATA(DIRUT))
- SET WVPOP=1
- QUIT
- +17 SET WVC=Y
- +18 QUIT
- +19 ;
- DEVICE ;EP
- +1 ;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
- +2 SET ZTRTN="DEQUEUE^WVBRNOT"
- +3 FOR WVSV="A","B","C","D","E","CMGR","DFN","BEGDT","ENDDT"
- Begin DoDot:1
- +4 IF $DATA(@("WV"_WVSV))
- SET ZTSAVE("WV"_WVSV)=""
- End DoDot:1
- +5 DO ZIS^WVUTL2(.WVPOP,1,"HOME")
- +6 QUIT
- +7 ;
- HELP2 ;EP
- +1 ;;Answer "ONE" to browse Notifications for ONE particular patient.
- +2 ;;Answer "ALL" to browse Notifications for ALL patients.
- +3 SET WVTAB=5
- SET WVLINL="HELP2"
- DO HELPTX
- +4 QUIT
- +5 ;
- HELP3 ;EP
- +1 ;;Enter "DATE" to list Notifications in chronological order beginning
- +2 ;; with the oldest first.
- +3 ;;Enter "NAME" to list Notifications by Patient Name in alphabetical
- +4 ;; order.
- +5 ;;Enter "PRIORITY" to list Notifications by degree of urgency,
- +6 ;; beginning with the most urgent first.
- +7 SET WVTAB=5
- SET WVLINL="HELP3"
- DO HELPTX
- +8 QUIT
- +9 ;
- HELP4 ;EP
- +1 ;;"OPEN Notifications" are ones that have not yet been closed,
- +2 ;; in other words, the patient has not yet been reached or has not
- +3 ;; yet responded.
- +4 ;;
- +5 ;;"DELINQUENT Notifications" are OPEN Notifications that have remained
- +6 ;; open past the date they were due to be closed (as determined by
- +7 ;; the "DATE DELINQUENT BY" field in the Edit Notification screen).
- +8 ;;
- +9 ;;"QUEUED Notifications" are only LETTERS waiting to be printed.
- +10 ;; They do not include letters that have already been printed.
- +11 ;;
- +12 ;;"ALL Notifications" includes DELINQUENT, OPEN and CLOSED.
- +13 ;; CLOSED notifications are ones that have been brought to closure,
- +14 ;; in other words, either the patient has been contacted or the
- +15 ;; case is no longer active.
- +16 SET WVTAB=5
- SET WVLINL="HELP4"
- DO HELPTX
- +17 QUIT
- +18 ;
- HELP5 ;EP
- +1 ;;Answer "ONE" to browse Notifications for ONE particular Case Manager.
- +2 ;;Answer "ALL" to browse Notifications for ALL Case Managers.
- +3 SET WVTAB=5
- SET WVLINL="HELP5"
- DO HELPTX
- +4 QUIT
- +5 ;
- HELPTX ;EP
- +1 ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
- +2 NEW I,T,X
- SET T=$$REPEAT^XLFSTR(" ",WVTAB)
- +3 FOR I=1:1
- SET X=$TEXT(@WVLINL+I)
- if X'[";;"
- QUIT
- SET DIR("?",I)=T_$PIECE(X,";;",2)
- +4 SET DIR("?")=DIR("?",I-1)
- KILL DIR("?",I-1)
- +5 QUIT