source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPUX2.m@ 1259

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

initial load of WorldVistAEHR

File size: 4.3 KB
Line 
1PRCPUX2 ;WISC/RFJ/VAC/DST-extrinsic functions ; 2/21/07 10:52am
2 ;;5.1;IFCAP;**98**;Oct 20, 2000;Build 37
3 ;Per VHA Directive 2004-038, this routine should not be modified.
4 ;*98 Added three new calls to support On-Demand Items
5 ;*98 Added fourth call to support ODI All items or single item
6 Q
7 ;
8 ;
9ISMSFLAG(SITE) ; isms switch on|off for site
10 ; switch=0 or 1 for log code sheet format
11 ; switch=2 for isms code sheet formats
12 N % S %=+$P($G(^PRC(411,+SITE,0)),"^",23)
13 Q $S(1:1,%=0:1,1:%)
14 ;
15 ;
16INPERCNT(V1,V2,V3,V4) ; initialize percent graph
17 ; v1=total number of entries
18 ; v2=display character
19 ; v3=reverse video on (optional)
20 ; v4=reverse video off (optional)
21 ; returns number v2 to display per entry
22 W !!?30,"% COMPLETE",!?10,"0 10 20 30 40 50 60 70 80 90 100"
23 W !?10,"|----+----+----+----+----+----+----+----+----+----|"
24 W !?10,V3,V2,V4
25 S %=.02*V1,%=$S(%=0:50,1:1/%)
26 Q %
27 ;
28 ;
29SHPERCNT(V1,V2,V3,V4,V5,V6) ; display percent complete
30 ; v1=current entry number executed
31 ; v2=display this many v3 for each entry
32 ; v3=character to display
33 ; v4=reverse video on (optional)
34 ; v5=reverse video off (optional)
35 ; return last one displayed
36 N %
37 S X=V1*V2\1 S:X>50 X=50 F %=((V1-1*V2\1)+1):1:X W V4,V3,V5 I $X>50,$D(PRCP("XY")) X PRCP("XY")
38 Q X
39 ;
40 ;
41QPERCNT(V1,V2,V3,V4) ; finish percent display
42 ; v1=last v2 displayed
43 ; v2=character to display
44 ; v3=reverse video on (optional)
45 ; v4=reverse video off (optional)
46 N %
47 F %=V1+1:1:50 W V3,V2,V4 I $X>50,$D(PRCP("XY")) X PRCP("XY")
48 Q
49 ;
50 ;
51DISPLAY(DX1,DX2,X) ; display message
52 ; dx1 = begin column
53 ; dx2 = end column
54 ; x = message
55 N %,END,LENGTH,LINE,NEXT,PRCPFLAG,PRCPLINE,TEXT
56 S LENGTH=DX2-DX1 I LENGTH<10 S (DX1,DX2)=1,LENGTH=79
57 S DX1=DX1-1,DX2=DX2-1,PRCPLINE="",$P(PRCPLINE,"-",LENGTH)="",PRCPLINE="+"_PRCPLINE_"+"
58 W !?DX1,PRCPLINE
59 S LINE=0,TEXT=""
60 F D I TEXT="",'$O(X(LINE)) Q
61 . ;
62 . ; get more text if less than 240 characters
63 . F D Q:$G(PRCPFLAG)
64 . . S NEXT=+$O(X(LINE))
65 . . I NEXT,$L(TEXT)+$L($G(X(NEXT)))<240 S TEXT=TEXT_$S(TEXT'="":" ",1:"")_$G(X(NEXT)) K X(NEXT) Q
66 . . S PRCPFLAG=1
67 . ;
68 . ; fit text in window
69 . F END=LENGTH:-1:0 S %=$E(TEXT,END) I %=""!(%=" ") Q
70 . I END=0 S END=LENGTH
71 . W !?DX1,"|",$E(TEXT,1,END-1),?DX2,"|" S TEXT=$E(TEXT,END+1,255)
72 W !?DX1,PRCPLINE
73 Q
74 ;
75ODITEM(INVPT,ITEMDA) ;Return a flag for On-Demand Item
76 ; If an item is in the warehouse, return a "W", if the item is an
77 ; on-demand item, return a "Y", otherwise return a null.
78 Q:$P($G(^PRCP(445,INVPT,0)),"^",3)="W" "W"
79 Q:$P($G(^PRCP(445,INVPT,1,ITEMDA,0)),"^",30)="N" ""
80 Q $P($G(^PRCP(445,INVPT,1,ITEMDA,0)),"^",30)
81 ;
82ODIPROM(Y) ; Display prompt to user for On-Demand Items selection
83 ;
84 ; DIRUT - "^" entered, exit from this option and return to menu.
85 ; Y - user selection, passed to calling routine for further process:
86 ; if Y = 1 - display Standard Items on the report only.
87 ; if Y = 2 - display On-Demand Items on the report only.
88 ; if Y = 3 - display All Items on the report.
89 ;
90 N X
91 W !
92 S X(1)=" Select On-Demand/Standard items to include on this report: "
93 D DISPLAY^PRCPUX2(3,75,.X)
94 ; Choose one
95 K DIR
96 S DIR(0)="S^1:Standard Items Only;2:On-Demand Items Only;3:All Items (Both Standard and On-Demand)"
97 S DIR("A")="Display information for"
98 D ^DIR
99 K DIR
100 Q:$D(DIRUT) 0
101 Q Y
102 ;
103SRTPRMP(Y) ; Display prompt for On-Demand Items SORT selection
104 ;
105 ; DIRUT - "^" entered, exit from this option and return to menu.
106 ; Y - user selection, passed to calling routine for further process:
107 ; If Y = 1, report sorted by Item Description
108 ; Y = 2, report sorted by Item Number
109 N X
110 W !
111 S X(1)=" Select the order in which you want the item information to appear. "
112 D DISPLAY^PRCPUX2(3,42,.X)
113 K DIR
114 S DIR(0)="S^1:ITEM DESCRIPTION;2:ITEM NUMBER"
115 S DIR("A")="Sort By"
116 D ^DIR
117 K DIR
118 Q:$D(DIRUT) 0
119 Q Y
120 ;
121SINGIT(PRCPIP) ; Prompt for selecting a single item or all items
122 ; *98 Used by PRCPRODA
123 ; ITEMSEL=NULL for all items selected or non-NULL for a single item
124 N XP,ITEMSEL
125SING1 S %=0,ITEMSEL=""
126 W !
127 W "To select All items, press RETURN."
128 S ITEMSEL=$$ITEM^PRCPUITM(PRCPIP,0,"","")
129 I ITEMSEL=0 D G SING1:%=2
130 .S XP="Do you want to select ALL items"
131 .W !
132 .S %=$$YN^PRCPUYN(1)
133 .I %=1 S ITEMSEL="" Q
134 .S ITEMSEL="^"
135 Q ITEMSEL
Note: See TracBrowser for help on using the repository browser.