source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPFLMA1.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1DGPFLMA1 ;ALB/KCL - PRF ASSIGNMENT LM PROTOCOL ACTIONS ; 6/10/03 3:57pm
2 ;;5.3;Registration;**425**;Aug 13, 1993
3 ;
4 ;no direct entry
5 QUIT
6 ;
7SP ;Entry point for DGPF SELECT PATIENT action protocol.
8 ;
9 ; Input: None
10 ;
11 ; Output:
12 ; DGDFN - pointer to patient in PATIENT #2 file
13 ; VALMBCK - 'R' = refresh screen
14 ;
15 N DGPAT ;patient lookup array
16 ;
17 ;set screen to full scrolling region
18 D FULL^VALM1
19 ;
20 ;patient selection (lookup)
21 D SELPAT^DGPFUT1(.DGPAT)
22 I (+$G(DGPAT)>0) D
23 . S DGDFN=+DGPAT
24 . ;
25 . Q:'$$CONTINUE^DGPFUT()
26 . ;
27 . ;- build header for selected patient
28 . D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
29 . ;
30 . ;- build list of flag assignments for selected patient
31 . D BLDLIST^DGPFLMU(DGDFN)
32 ;
33 ;return to LM (refresh screen)
34 S VALMBCK="R"
35 Q
36 ;
37 ;
38DF ;Entry point for DGPF DISPLAY ASSIGNMENT DETAIL action protocol.
39 ;
40 ; Input: None
41 ;
42 ; Output:
43 ; VALMBCK - 'R' = refresh screen
44 ;
45 N DGDFN ;patient dfn
46 N DGIEN ;assignment ien
47 N SEL ;user selection
48 N VALMY ;output of EN^VALM2 call, array of user selected entries
49 ;
50 ;set screen to full scroll region
51 D FULL^VALM1
52 ;
53 ;is action selection allowed?
54 I '$D(@VALMAR@("IDX")) D Q
55 . W !!?2,">>> '"_$P($G(XQORNOD(0)),U,3)_"' action not allowed at this point.",*7
56 . I '$G(DGDFN) W !?6,"A patient has not been selected."
57 . E W !?6,"There are no record flag assignments for this patient."
58 . D PAUSE^VALM1
59 . S VALMBCK="R"
60 ;
61 ;ask user to select a single assignment for detail display
62 S (SEL,DGIEN,VALMBCK)=""
63 D EN^VALM2($G(XQORNOD(0)),"S")
64 ;
65 ;process user selection
66 S SEL=$O(VALMY(""))
67 I SEL,$D(@VALMAR@("IDX",SEL,SEL)) D
68 . S DGIEN=$P($G(@VALMAR@("IDX",SEL,SEL)),U)
69 . S DGDFN=$P($G(@VALMAR@("IDX",SEL,SEL)),U,2)
70 . ;-display flag assignment details
71 . N VALMHDR
72 . D EN^DGPFLMAD
73 ;
74 ;return to LM (refresh screen)
75 S VALMBCK="R"
76 Q
Note: See TracBrowser for help on using the repository browser.