source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WVLAB.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1WVLAB ;HCIOFO/FT IHS/ANMC/MWR - ADD/EDIT PROCEDURE BY LAB STAFF; ;12/15/98 11:23
2 ;;1.0;WOMEN'S HEALTH;**3**;Sep 30, 1998
3 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
4 ;; CALLED BY OPTION: "WV LAB ADD A NEW PROCEDURE" TO ACCESSION
5 ;; PROCEDURES.
6 ;
7 D SETVARS^WVUTL5
8 F D Q:WVPOP
9 .D TITLE^WVUTL5("LAB: ENTER NEW PROCEDURES")
10 .D NEW
11 D EXIT
12 Q
13 ;
14NEW ;EP
15 ;---> SELECT PATIENT.
16 S WVPOP=0 N WVDFN,DIR,DR
17 ; Quit if no default case manager
18 I '$$DCM^WVUTL9(DUZ(2)) D NODCM^WVUTL9 S WVPOP=1 Q
19 D PATLKUP^WVUTL8(.Y,"ADD")
20 I Y<0 S WVPOP=1 Q
21 S WVDFN=+Y
22 ;---> SELECT PROCEDURE.
23 D NEW1^WVPROC I WVPOP S WVPOP=0 Q
24 I '$G(DA) D Q
25 .W !?5,"* FAILURE TO ADD NEW PROCEDURE. "
26 .W "PLEASE CONTACT YOUR SITE MANAGER" D DIRZ^WVUTL3
27 D EDIT2(DA)
28 Q
29 ;
30EDIT ;EP
31 ;---> CALLED BY OPTION: "WV LAB EDIT ACCESSION".
32 ;---> EDIT JUST THE ACCESSION FIELDS OF AN EXISTING PROCEDURE.
33 D SETVARS^WVUTL5
34 D TITLE^WVUTL5("EDIT AN ACCESSIONED PROCEDURE")
35 D LKUPPCD^WVPROC(.Y)
36 Q:Y<0!($D(DIROUT))
37 ;---> DA=IEN OF PROCEDURE IN PROCEDURE FILE 790.1.
38 S DA=+Y
39 D EDIT2(DA)
40 D EXIT
41 Q
42 ;
43 ;
44EDIT2(DA) ;EP
45 ;---> REQUIRED VARIABLES: DA=IEN IN ^WV(790.1,.
46 Q:'$G(DA)
47 S WVDFN=$P(^WV(790.1,DA,0),U,2)
48 D DDS^WVFMAN(790.1,"[WV PROC-FORM-LAB]",DA,"C",.WVCHG,.WVPOP)
49 Q
50 ;
51EXIT ;EP
52 D KILLALL^WVUTL8
53 Q
Note: See TracBrowser for help on using the repository browser.