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

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

initial load of FOIAVistA 6/30/08 version
File size: 2.8 KB
Line 
1DGPFLMD1 ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/18/04 9:33am
2 ;;5.3;Registration;**425,554**;Aug 13, 1993
3 ;
4EN(DGARRY,DGPFAPI,DGCNT) ;
5 ;
6 N DGFLG
7 N DGI
8 N DGLINE
9 N DGNARR
10 N DGNUM
11 N DGTEXT
12 ;
13 S (DGNUM,DGFLG,DGLINE)=0
14 F S DGFLG=$O(DGPFAPI(DGFLG)) Q:'DGFLG D
15 . S DGNUM=DGNUM+1
16 . ;
17 . ;blank line(s)
18 . F DGI=1:1:$S(DGNUM>1:2,1:1) D
19 . . S DGLINE=DGLINE+1
20 . . D SET^DGPFLMU1(DGARRY,DGLINE," ",1,,,.DGCNT)
21 . ;
22 . ;Flag Name
23 . S DGLINE=DGLINE+1
24 . S DGTEXT=DGNUM_"."
25 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,IORVON,IORVOFF,.DGCNT)
26 . S DGTEXT="Flag Name: "
27 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,5,,,.DGCNT)
28 . S DGTEXT="<"_$P(DGPFAPI(DGFLG,"FLAG"),U,2)_">"
29 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,16,IORVON,IORVOFF,.DGCNT)
30 . ;
31 . ;Category
32 . S DGLINE=DGLINE+1
33 . S DGTEXT="Category: "_$P(DGPFAPI(DGFLG,"CATEGORY"),U,2)
34 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,6,,,.DGCNT)
35 . ;
36 . ;Flag Type
37 . S DGLINE=DGLINE+1
38 . S DGTEXT="Type: "_$P(DGPFAPI(DGFLG,"FLAGTYPE"),U,2)
39 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,10,,,.DGCNT)
40 . ;
41 . ;Assignment Narrative
42 . S DGLINE=DGLINE+1
43 . D SET^DGPFLMU1(DGARRY,DGLINE," ",1,,,.DGCNT)
44 . S DGLINE=DGLINE+1
45 . S DGTEXT="Assignment Narrative:"
46 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,IORVON,IORVOFF,.DGCNT)
47 . S DGNARR=0
48 . F S DGNARR=$O(DGPFAPI(DGFLG,"NARR",DGNARR)) Q:'DGNARR D
49 . . S DGLINE=DGLINE+1
50 . . S DGTEXT=$G(DGPFAPI(DGFLG,"NARR",DGNARR,0))
51 . . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,,,.DGCNT)
52 . ;
53 . ;blank line
54 . S DGLINE=DGLINE+1
55 . D SET^DGPFLMU1(DGARRY,DGLINE," ",1,,,.DGCNT)
56 . ;
57 . ;assignment details header
58 . S DGLINE=DGLINE+1
59 . S DGTEXT="Assignment Details:"
60 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,IORVON,IORVOFF,.DGCNT)
61 . ;
62 . ;Assignment Date
63 . S DGLINE=DGLINE+1
64 . S DGTEXT="Initial Assignment: "_$$FMTE^XLFDT($P(DGPFAPI(DGFLG,"ASSIGNDT"),U),"D")
65 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,3,,,.DGCNT)
66 . ;
67 . ;Approved By
68 . S DGLINE=DGLINE+1
69 . S DGTEXT="Approved By: "_$P(DGPFAPI(DGFLG,"APPRVBY"),U,2)
70 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,10,,,.DGCNT)
71 . ;
72 . ;Review Date
73 . S DGLINE=DGLINE+1
74 . S DGTEXT="Next Review Date: "_$S($P(DGPFAPI(DGFLG,"REVIEWDT"),U)>0:$$FMTE^XLFDT($P(DGPFAPI(DGFLG,"REVIEWDT"),U),"D"),1:"N/A")
75 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,5,,,.DGCNT)
76 . ;
77 . ;Owner Site
78 . S DGLINE=DGLINE+1
79 . S DGTEXT="Owner Site: "_$P(DGPFAPI(DGFLG,"OWNER"),U,2)
80 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,11,,,.DGCNT)
81 . ;
82 . ;Originating Site
83 . S DGLINE=DGLINE+1
84 . S DGTEXT="Originating Site: "_$P(DGPFAPI(DGFLG,"ORIGSITE"),U,2)
85 . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,5,,,.DGCNT)
86 . ;
87 . ;Progress Note Linked - only defined if Owner of assignment
88 . I $D(DGPFAPI(DGFLG,"TIULINK")) D
89 . . S DGLINE=DGLINE+1
90 . . S DGTEXT="Progress Note Linked: "_$S(+$P(DGPFAPI(DGFLG,"TIULINK"),U):"YES",1:"NO")
91 . . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,,,.DGCNT)
92 ;
93 Q
Note: See TracBrowser for help on using the repository browser.