| 1 | PXRMLCD ; SLC/PKR - Reminder Patient List Patients ;11/02/2007
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
|
|---|
| 3 | ;
|
|---|
| 4 | ;Display list creation documentation.
|
|---|
| 5 | ;===========================================================
|
|---|
| 6 | DCDOC ;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,"SEL",IND)
|
|---|
| 15 | . D EN^PXRMLCD(LISTIEN)
|
|---|
| 16 | S VALMBCK="R"
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | ;===========================================================
|
|---|
| 20 | EN(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 | ;===========================================================
|
|---|
| 33 | EXIT ;Exit code
|
|---|
| 34 | K ^TMP("PXRMLCD",$J)
|
|---|
| 35 | D CLEAN^VALM10
|
|---|
| 36 | D FULL^VALM1
|
|---|
| 37 | S VALMBCK="R"
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | ;===========================================================
|
|---|
| 41 | HDR ; Header code
|
|---|
| 42 | S VALMHDR(1)="Documentation for creation of patient list:"
|
|---|
| 43 | S VALMHDR(2)=" "_$P(^PXRMXP(810.5,LISTIEN,0),U,1)
|
|---|
| 44 | S VALMSG="+ Next Screen - Prev Screen ?? More Actions"
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | ;===========================================================
|
|---|
| 48 | HELP ;Help code
|
|---|
| 49 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
