source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMXTB.m@ 1259

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

revised back to 6/30/08 version

File size: 2.2 KB
Line 
1PXRMXTB ; SLC/PJH - Reminder Reports Template Load ;08/01/2001
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ; Called from PXRMXD
5 ;
6 ;Select Template
7 ;---------------
8START N X,Y,CNT,FOUND,PXRMFLD,DIC,MSG
9 N ERR,SEQ,TMPLST,LIST
10 K DIROUT,DIRUT,DTOUT,DUOUT
11 S PXRMTMP="",FOUND=0
12 ;
13 ;Check if any templates exist for the user
14 D GETLST^XPAR(.TMPLST,"USR","PXRM REPORT TEMPLATE (USER)","Q",.ERR)
15 I ERR>0 W !!,?5,"Error: "_$P(ERR,U,2) S DUOUT=1 H 2 Q
16 I 'TMPLST W !!,?5,"No report Templates for this user" S DUOUT=1 H 2 Q
17 ;Build list of templates
18 S SEQ=0
19 F S SEQ=$O(TMPLST(SEQ)) Q:'SEQ D
20 .S Y=$P(TMPLST(SEQ),U,2) Q:'Y
21 .S LIST(Y)=""
22 ;
23 ;Select template required
24 W !
25 S CNT=0,DIC=810.1,DIC(0)="AEQMZ"
26 S DIC("A")="Select REPORT TEMPLATE:"
27 S DIC("S")="I $D(LIST(+Y)),$P(^PXRMPT(810.1,+Y,0),U,3)=PXRMTYP"
28 D ^DIC
29 W !!,"1"
30 I X="" S DUOUT=1
31 I X=(U_U) S DTOUT=1
32 I '$D(DTOUT),('$D(DUOUT)) D
33 .I +Y'=-1 D Q
34 ..S CNT=CNT+1,ARRAY(CNT)=Y_U_Y(0,0)_U_$P(Y(0),U,3)
35 K DIC
36 ;
37 ;Load template into local array
38 I (+Y'=-1)&('$D(DTOUT))&('$D(DUOUT)) D
39 .L +^PXRMPT(810.1,$P(Y,U)):0
40 .E W !!?5,"Another user is editing this entry." S DUOUT=1 Q
41 .;Load template into an array
42 .S PXRMTMP=Y_U_$P(Y(0),U,2) D LOAD^PXRMXT
43 .L -^PXRMPT(810.1,$P(PXRMTMP,U))
44 .;Exit if problem loading template
45 .I $D(MSG) S DTOUT=1 Q
46 .;Display Template information
47 .D:'$D(MSG) ^PXRMXTD
48EXIT Q
49 ;
50XREF ;
51 K MREF,XREF
52 S XREF("NAME")=.01
53 S XREF("TITLE")=1.9
54 S XREF("PXRMTYP")=1.1
55 S XREF("PXRMSEL")=1.2
56 S XREF("PXRMPRIM")=1.3
57 S XREF("PXRMREP")=1.4
58 S XREF("PXRMLCSC")=1.5
59 S XREF("PXRMFD")=1.6
60 S XREF("PXRMREM")=2
61 S XREF("PXRMFAC")=3
62 S XREF("PXRMPRV")=4
63 S XREF("RUN")=5
64 S XREF("PXRMPAT")=6
65 S XREF("PXRMOTM")=7
66 S XREF("PXRMPCM")=8
67 S XREF("PXRMSCAT")=9
68 S XREF("PXRMLCHL")=10
69 S XREF("PXRMCS")=11
70 S XREF("PXRMCGRP")=12
71 S XREF("PXRMRCAT")=13
72 S XREF("PXRMLIST")=14
73 ;
74 S MREF("REMINDER")=.01
75 S MREF("PATIENT")=.01
76 S MREF("PROVIDER")=.01
77 S MREF("OERR TEAM")=.01
78 S MREF("PCMM TEAM")=.01
79 S MREF("FACILITY")=.01
80 S MREF("SERVICE")=.01
81 S MREF("LOCATION")=.01
82 S MREF("STOP CODE")=.01
83 S MREF("CLINIC GROUP")=.01
84 S MREF("DISPLAY ORDER")=.02
85 S MREF("REMINDER CATEGORY")=.01
86 S MREF("DISPLAY")=.02
87 S MREF("PXRMLIST")=.01
88 Q
Note: See TracBrowser for help on using the repository browser.