source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMFLST.m@ 1261

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1PXRMFLST ; SLC/PJH - List Resolution Statuses ;03/09/2000
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;List selected finding type parameter
5 ;------------------------------------
6START N BY,DC,DHD,DIC,FLDS,FR,L,LOGIC,MODE,NOW,TO,Y
7 ;Get lists of finding types for display
8 N DEF,DEF1,DEF2 D DEF^PXRMRUTL("811.902",.DEF,.DEF1,.DEF2)
9 ;
10SELECT S MODE=""
11 S DIC="^PXRMD(801.45,"
12 S DIC(0)="AEMQ"
13 S DIC("A")="Select Finding Type: "
14 D ^DIC
15 I Y'=-1 D G SELECT
16 .D SET
17 .D DISP
18END Q
19 ;
20 ;List all statuses
21 ;-----------------
22ALL N BY,DC,DHD,DIC,FLDS,FR,L,LOGIC,MODE,NOW,TO,Y
23 S Y=1,MODE="GENERAL"
24 ;Get lists of finding types for display
25 N DEF,DEF1,DEF2 D DEF^PXRMRUTL("811.902",.DEF,.DEF1,.DEF2)
26 ; Set Date for Header
27 S NOW=$$NOW^XLFDT
28 S NOW=$$FMTE^XLFDT(NOW,"1P")
29 D SET
30 S DIC="^PXRMD(801.45,"
31 S BY=".01"
32 S FR="",TO=""
33 S DHD="W ?0 D HED^PXRMFLST"
34 D DISP
35 Q
36 ;
37 ;Inquire/Print Option (for protocol PXRM GENERAL INQUIRE/PRINT)
38 ;--------------------
39INQ(Y) N BY,DC,DHD,DIC,FLDS,FR,L,LOGIC,MODE,NOW,TO
40 ;Get lists of finding types for display
41 N DEF,DEF1,DEF2 D DEF^PXRMRUTL("811.902",.DEF,.DEF1,.DEF2)
42 S MODE=""
43 S DIC="^PXRMD(801.45,"
44 S DIC(0)="AEMQ"
45 D SET
46 D DISP
47 Q
48 ;
49HED ; Display Header (see DHD variable)
50 N TEMP,TEXTLEN,TEXTHED,TEXTUND
51 S TEXTHED="RESOLUTION STATUS LIST"
52 S TEXTUND=$TR($J("",IOM)," ","-")
53 S TEMP=NOW_" Page "_DC
54 S TEXTLEN=$L(TEMP)
55 W TEXTHED
56 W ?(IOM-TEXTLEN),TEMP
57 W !,TEXTUND,!!
58 Q
59 ;
60DISP ;DISPLAY (Display from FLDS array)
61 S L=0,FLDS="[PXRM FINDING TYPE PARAMETERS]"
62 D EN1^DIP
63 Q
64 ;
65SET ;Setup all the variables
66 ;
67 ; Set Date for Header
68 S NOW=$$NOW^XLFDT
69 S NOW=$$FMTE^XLFDT(NOW,"1P")
70 ;
71 ;These variables need to be setup every time because DIP kills them.
72 S BY="NUMBER"
73 S (FR,TO)=+$P(Y,U,1)
74 S DHD="W ?0 D HED^PXRMFLST"
75 ;
76 Q
77 ;
78FDES N X S X=$P($G(^PXRMD(801.45,D0,0)),U) Q:X=""
79 I X="POV" W "(DIAGNOSIS)" Q
80 I X="CPT" W "(PROCEDURE)" Q
81 W "("_$G(DEF2(X))_")"
82 Q
Note: See TracBrowser for help on using the repository browser.