Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (15 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMDBL3.m

    r628 r636  
    1 PXRMDBL3 ; SLC/PJH - Reminder Dialog Generation. (overflow) ;11/08/2007
    2  ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
     1PXRMDBL3 ; SLC/PJH - Reminder Dialog Generation. (overflow) ;04/30/2001
     2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
    33 ;
    44 ; Called from PXRMDBL1
    55 ;
    66 ;Set number range for site
    7 START ;
    8  D SETSTART^PXRMCOPY("^PXRMD(801.41,")
     7START D SETSTART^PXRMCOPY("^PXRMD(801.41,")
    98 ;Update dialog file for individual dialog items
    109 D UPDATE(.ARRAY,.WPTXT,"E")
     
    6463 N RNAME,TEST,YT S YT=""
    6564 ;Convert ien to name
    66  ;DBIA #5044
    67  S YT("CODE")=$P($G(^YTT(601.71,IEN,0)),U)
     65 S YT("CODE")=$P($G(^YTT(601,IEN,0)),U)
    6866 ;Quit if no code found
    6967 I YT("CODE")="" Q 0
    70  I '$$OK^PXRMDLL(IEN) Q 0
     68 ;Check if this is an allowable GUI test
     69 I (YT("CODE")'="GAF"),($P($G(^YTT(601.6,IEN,0)),U,4)'="Y") Q 0
     70 ;Get details of test
     71 D SHOWALL^YTAPI3(.TEST,.YT)
    7172 ;Check if valid
    72  ;I TEST(1)["[ERROR]" Q 0
     73 I TEST(1)["[ERROR]" Q 0
    7374 ;
    7475 S DNAME=FTYP_" "_YT("CODE")
     
    8283 ;Dialog item name, finding item and result
    8384 S ARRAY(CNT)=DSHORT_U_U_RESN_U
    84  ;Commented out Result Group Patch 6 until a decision can be made
    8585 ;Result group name
    86  ;S RNAME="PXRM "_YT("CODE")_" RESULT GROUP"
     86 S RNAME="PXRM "_YT("CODE")_" RESULT GROUP"
    8787 ;Result pointer
    88  ;S $P(ARRAY(CNT),U,7)=$O(^PXRMD(801.41,"B",RNAME,""))
     88 S $P(ARRAY(CNT),U,7)=$O(^PXRMD(801.41,"B",RNAME,""))
    8989 ;If aims exclude from p/n
    9090 I YT("CODE")="AIMS" S $P(ARRAY(CNT),U,6)=1
     
    130130 ..;MH fields (exclude from P/N and results pointer)
    131131 ..S:$P(INP(CNT),U,6) FDA(801.41,"?+1,",54)=$P(INP(CNT),U,6)
    132  ..;S:$P(INP(CNT),U,7) FDA(801.41,"?+1,",55)=$P(INP(CNT),U,7)
     132 ..S:$P(INP(CNT),U,7) FDA(801.41,"?+1,",55)=$P(INP(CNT),U,7)
    133133 .;Reminder dialog associated reminder/DISABLE
    134134 .I DTYPE="R" D
Note: See TracChangeset for help on using the changeset viewer.