source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMLCD.m@ 1801

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

revised back to 6/30/08 version

File size: 1.5 KB
RevLine 
[623]1PXRMLCD ; SLC/PKR - Reminder Patient List Patients ;06/30/2005
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;Display list creation documentation.
5 ;===========================================================
6DCDOC ;Display creation documentation.
7 N IND,LISTIEN,VALMY
8 D EN^VALM2(XQORNOD(0))
9 ;If there is no list quit.
10 I '$D(VALMY) Q
11 ;PXRMDONE is newed in PXRMLPU
12 S IND="",PXRMDONE=0
13 F S IND=$O(VALMY(IND)) Q:(IND="")!(PXRMDONE) D
14 . S LISTIEN=^TMP("PXRMLPU",$J,"IDX",IND,IND)
15 . D EN^PXRMLCD(LISTIEN)
16 S VALMBCK="R"
17 Q
18 ;
19 ;===========================================================
20EN(LISTIEN) ;
21 N VALMBCK,VALMBG,VALMCNT,VALMSG,X,XMZ,XQORM,XQORNOD
22 K ^TMP("PXRMLCD",$J)
23 I $D(^PXRMXP(810.5,LISTIEN,200)) D
24 . M ^TMP("PXRMLCD",$J)=^PXRMXP(810.5,LISTIEN,200)
25 . S VALMCNT=$P(^PXRMXP(810.5,LISTIEN,200,0),U,4)
26 I '$D(^PXRMXP(810.5,LISTIEN,200)) D
27 . S ^TMP("PXRMLCD",$J,1,0)="No documentation is available."
28 . S VALMCNT=1
29 D EN^VALM("PXRM PATIENT LIST CREATION DOC")
30 Q
31 ;
32 ;===========================================================
33EXIT ;Exit code
34 K ^TMP("PXRMLCD",$J)
35 D CLEAN^VALM10
36 D FULL^VALM1
37 S VALMBCK="R"
38 Q
39 ;
40 ;===========================================================
41HDR ; Header code
42 S VALMHDR(1)="Documentation for creation of patient list "_$P(^PXRMXP(810.5,LISTIEN,0),U,1)
43 S VALMSG="+ Next Screen - Prev Screen ?? More Actions"
44 Q
45 ;
46 ;===========================================================
47HELP ;Help code
48 S X="?" D DISP^XQORM1 W !!
49 Q
50 ;
Note: See TracBrowser for help on using the repository browser.