Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (14 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/PXRMPDRP.m

    r628 r636  
    1 PXRMPDRP ;SLC/AGP,PKR - Patient List Demographic report print routine ;11/16/2007
    2  ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
     1PXRMPDRP ;SLC/AGP,PKR - Patient List Demographic report print routine ;06/20/2006
     2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
    33 ;
    44ADDTXT(TEXT) ;Accumulate text in ^TMP.
    … …  
    77 Q
    88 ;
    9 APPHDR(DC,DDATA,SUB) ;Build the appointment header.
    10  I DDATA(SUB,"LEN")'>0 Q
     9APPHDR(DC,APPDATA) ;Build the appointment header.
     10 I APPDATA("LEN")'>0 Q
    1111 N HDR,IND,JND,KND,LND,TEMP
    1212 S IND=0,HDR=""
    13  F IND=1:1:DDATA(SUB,"MAX") D
    14  . F JND=1:1:DDATA(SUB,"LEN") D
    15  .. S KND=$P(DDATA(SUB),",",JND)
     13 F IND=1:1:APPDATA("MAX") D
     14 . F JND=1:1:APPDATA("LEN") D
     15 .. S KND=$P(APPDATA,",",JND)
    1616 .. S LND=""
    17  .. F  S LND=$O(DDATA(SUB,KND,LND)) Q:LND=""  D
    18  ... S TEMP=$P(DDATA(SUB,KND,LND),U,1)
     17 .. F  S LND=$O(APPDATA(KND,LND)) Q:LND=""  D
     18 ... S TEMP=$P(APPDATA(KND,LND),U,1)
    1919 ... S HDR=HDR_TEMP_IND_DC
    20  S DDATA(SUB,"HDR")=HDR
    21  Q
    22  ;
    23 APPPRINT(DFN,DDATA,SUB) ;Print appointment data.
     20 S APPDATA("HDR")=HDR
     21 Q
     22 ;
     23APPPRINT(DFN,APPDATA) ;Print appointment data.
    2424 N CLINIC,COUNT,DATE,HDR,IND,JND,KND,LINE,PCLINIC,PDATE,TEMP
    2525 S (PCLINIC,PDATE)=0
    26  F IND=1:1:DDATA(SUB,"LEN") D
    27  . S JND=$P(DDATA(SUB),",",IND)
     26 F IND=1:1:APPDATA("LEN") D
     27 . S JND=$P(APPDATA,",",IND)
    2828 . I JND=1 S PDATE=1
    2929 . I JND=2 S PCLINIC=1
    3030 S HDR=""
    31  I PDATE S HDR=" "_$P(DDATA(SUB,1,1),U,1)
    32  I PCLINIC S HDR=HDR_"   "_$P(DDATA(SUB,2,2),U,1)
     31 I PDATE S HDR=" "_$P(APPDATA(1,1),U,1)
     32 I PCLINIC S HDR=HDR_"   "_$P(APPDATA(2,2),U,1)
    3333 D ADDTXT(" ")
    3434 D ADDTXT("Appointment Data")
    3535 D ADDTXT(HDR)
    3636 S COUNT=0
    37  F  S COUNT=$O(^TMP("PXRMPLD",$J,DFN,"APP",COUNT)) Q:COUNT=""  D
    38  . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"APP",COUNT))
     37 F  S COUNT=$O(^TMP("PXRMPLD",$J,DFN,"APPDATA",COUNT)) Q:COUNT=""  D
     38 . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"APPDATA",COUNT))
    3939 . S LINE=""
    4040 . I PDATE S LINE=LINE_$P(TEMP,U,1)
    … …  
    4343 Q
    4444 ;
    45 DELIMHDR(DC,DDATA,SUB) ;Build the delimited header for a data type.
    46  I DDATA(SUB,"LEN")'>0 Q
     45DELIMHDR(DC,DATA) ;Build the delimited header for a data type.
     46 I DATA("LEN")'>0 Q
    4747 N HDR,IND,JND,KND,LND,MAX,TEMP
    4848 S IND=0,HDR=""
    49  F IND=1:1:DDATA(SUB,"LEN") D
    50  . S JND=$P(DDATA(SUB),",",IND)
     49 F IND=1:1:DATA("LEN") D
     50 . S JND=$P(DATA,",",IND)
    5151 . S KND=""
    52  . F  S KND=$O(DDATA(SUB,JND,KND)) Q:KND=""  D
    53  .. S TEMP=$P(DDATA(SUB,JND,KND),U,1)
    54  .. S MAX=$P(DDATA(SUB,JND,KND),U,3)
     52 . F  S KND=$O(DATA(JND,KND)) Q:KND=""  D
     53 .. S TEMP=$P(DATA(JND,KND),U,1)
     54 .. S MAX=$P(DATA(JND,KND),U,3)
    5555 .. I MAX="" S HDR=HDR_TEMP_DC
    5656 .. I +MAX>0 F LND=1:1:MAX S HDR=HDR_TEMP_LND_DC
    57  S DDATA(SUB,"HDR")=HDR
    58  Q
    59  ;
    60 DELIMPR(DC,PLIEN,DDATA) ;
     57 S DATA("HDR")=HDR
     58 Q
     59 ;
     60DELIMPR(DC,PLIEN,ADDDATA,APPDATA,DEMDATA,FINDDATA,INPDATA,PFACDATA,REMDATA) ;
    6161 ;Print the delimited report.
    6262 N DATALIST,DFN,IND,NDT,PNAME
    6363 S NDT=0
    64  I DDATA("ADD","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="ADD"
    65  I DDATA("APP","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="APP"
    66  I DDATA("DEM","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="DEM"
    67  I DDATA("ELIG","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="ELIG"
    68  I DDATA("FIND","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="FIND"
    69  I DDATA("INP","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="INP"
    70  I DDATA("PFAC","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="PFAC"
    71  I DDATA("REM","LEN")>0 S NDT=NDT+1,DATALIST(NDT)="REM"
    72  S DATALIST(0)=NDT
     64 I ADDDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="ADDDATA"
     65 I APPDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="APPDATA"
     66 I DEMDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="DEMDATA"
     67 I ELIGDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="ELIGDATA"
     68 I FINDDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="FINDDATA"
     69 I INPDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="INPDATA"
     70 I PFACDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="PFACDATA"
     71 I REMDATA("LEN")>0 S NDT=NDT+1,DATALIST(NDT)="REMDATA"
    7372 D TITLE(PLIEN,1)
    74  ;Create the delimited header.
     73 ;Output the delimited header.
    7574 F IND=1:1:NDT D
    76  . I DATALIST(IND)="ADD" D DELIMHDR(DC,.DDATA,"ADD") Q
    77  . I DATALIST(IND)="APP" D APPHDR(DC,.DDATA,"APP") Q
    78  . I DATALIST(IND)="DEM" D DELIMHDR(DC,.DDATA,"DEM") Q
    79  . I DATALIST(IND)="ELIG" D DELIMHDR(DC,.DDATA,"ELIG") Q
    80  . I DATALIST(IND)="FIND" D DELIMHDR(DC,.DDATA,"FIND") Q
    81  . I DATALIST(IND)="INP" D DELIMHDR(DC,.DDATA,"INP") Q
    82  . I DATALIST(IND)="PFAC" D PFACHDR(.DDATA,"PFAC")
    83  . I DATALIST(IND)="REM" D REMHDR(DC,.DDATA,"REM") Q
    84  D DELTITLE(DC,.DATALIST,.DDATA)
     75 . I DATALIST(IND)="ADDDATA" D DELIMHDR(DC,.ADDDATA) Q
     76 . I DATALIST(IND)="APPDATA" D APPHDR(DC,.APPDATA) Q
     77 . I DATALIST(IND)="DEMDATA" D DELIMHDR(DC,.DEMDATA) Q
     78 . I DATALIST(IND)="ELIGDATA" D DELIMHDR(DC,.ELIGDATA) Q
     79 . I DATALIST(IND)="FINDDATA" D DELIMHDR(DC,.FINDDATA) Q
     80 . I DATALIST(IND)="INPDATA" D DELIMHDR(DC,.INPDATA) Q
     81 . I DATALIST(IND)="PFACDATA" D PFACHDR(.PFACDATA)
     82 . I DATALIST(IND)="REMDATA" D REMHDR(DC,.REMDATA) Q
     83 D DELTITLE(DC,.ADDDATA,.APPDATA,.DEMDATA,.FINDDATA,.INPDATA,.PFACDATA,.REMDATA)
    8584 S PNAME=":"
    8685 F  S PNAME=$O(^TMP("PXRMPLN",$J,PNAME)) Q:PNAME=""  D
    … …  
    8988 .. W !,PNAME_DC
    9089 .. F IND=1:1:NDT D
    91  ... I DATALIST(IND)="ADD" D PDELDATA(DFN,DC,DATALIST(IND),.DDATA,"ADD") Q
    92  ... I DATALIST(IND)="APP" D PAPPDATA(DFN,DC,.DDATA,"APP") Q
    93  ... I DATALIST(IND)="DEM" D PDELDATA(DFN,DC,DATALIST(IND),.DDATA,"DEM") Q
    94  ... I DATALIST(IND)="ELIG" D PDELDATA(DFN,DC,DATALIST(IND),.DDATA,"ELIG") Q
    95  ... I DATALIST(IND)="FIND" D PFINDATA(DFN,DC,.DDATA,"FIND") Q
    96  ... I DATALIST(IND)="INP" D PDELDATA(DFN,DC,DATALIST(IND),.DDATA,"INP") Q
    97  ... I DATALIST(IND)="PFAC" D PFACDATA(DFN,.DDATA,"PFAC") Q
    98  ... I DATALIST(IND)="REM" D PREMDATA(DFN,DC,.DDATA,"REM") Q
     90 ... I DATALIST(IND)="ADDDATA" D PDELDATA(DFN,DC,DATALIST(IND),.ADDDATA) Q
     91 ... I DATALIST(IND)="APPDATA" D PAPPDATA(DFN,DC,.APPDATA) Q
     92 ... I DATALIST(IND)="DEMDATA" D PDELDATA(DFN,DC,DATALIST(IND),.DEMDATA) Q
     93 ... I DATALIST(IND)="ELIGDATA" D PDELDATA(DFN,DC,DATALIST(IND),.ELIGDATA) Q
     94 ... I DATALIST(IND)="FINDDATA" D PFINDATA(DFN,DC,.FINDDATA) Q
     95 ... I DATALIST(IND)="INPDATA" D PDELDATA(DFN,DC,DATALIST(IND),.INPDATA) Q
     96 ... I DATALIST(IND)="PFACDATA" D PFACDATA(DFN,.PFACDATA) Q
     97 ... I DATALIST(IND)="REMDATA" D PREMDATA(DFN,DC,.REMDATA) Q
    9998 .. W "\\"
    10099 Q
    101100 ;
    102 DELTITLE(DC,DATALIST,DDATA) ;Combine all the headers to create the delimited title.
     101DELTITLE(DC,ADDDATA,APPDATA,DEMDATA,FINDDATA,INPDATA,PFACDATA,REMDATA) ;Combine
     102 ;all the headers to create the delimited title.
    103103 W !,"PATIENT"_DC
    104  N IND
    105  F IND=1:1:DATALIST(0) W DDATA(DATALIST(IND),"HDR")
     104 W $G(ADDDATA("HDR"))
     105 W $G(APPDATA("HDR"))
     106 W $G(DEMDATA("HDR"))
     107 W $G(ELIGDATA("HDR"))
     108 W $G(FINDDATA("HDR"))
     109 W $G(INPDATA("HDR"))
     110 W $G(PFACDATA("HDR"))
     111 W $G(REMDATA("HDR"))
    106112 W "\\"
    107113 Q
    108114 ;
    109 FINDPR(DFN,DDATA,SUB) ;Print finding information.
     115FINDPR(DFN,FINDDATA) ;Print finding information.
    110116 N IND,JND,LINE,TEMP
    111117 D ADDTXT(" ")
    112118 S LINE="Finding Data"
    113119 D ADDTXT(LINE)
    114  F IND=1:1:DDATA(SUB,"LEN") D
    115  . S JND=$P(DDATA(SUB),",",IND)
    116  . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"FIND",JND))
     120 F IND=1:1:FINDDATA("LEN") D
     121 . S JND=$P(FINDDATA,",",IND)
     122 . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"FINDDATA",JND))
    117123 . I TEMP="" Q
    118  . S LINE=" "_$P(DDATA(SUB,JND,JND),U,1)_": "_TEMP
     124 . S LINE=" "_$P(FINDDATA(JND,JND),U,1)_": "_TEMP
    119125 . D ADDTXT(LINE)
    120126 Q
    … …  
    134140 ;
    135141PAGE ;
    136  I ($E(IOST,1,2)="C-")&(IO=IO(0)) D
     142 I ($E(IOST)="C")&(IO=IO(0)) D
    137143 . N DIR
    138144 . S DIR(0)="E"
    … …  
    141147 I $D(DUOUT)!$D(DTOUT) Q
    142148 W:$D(IOF) @IOF
    143  I ($E(IOST,1,2)="C-")&(IO=IO(0)) W @IOF
    144  Q
    145  ;
    146 PAPPDATA(DFN,DC,DDATA,SUB) ;Print the delimited appointment data.
     149 I $E(IOST)="C",IO=IO(0) W @IOF
     150 Q
     151 ;
     152PAPPDATA(DFN,DC,APPDATA) ;Print the delimited appointment data.
    147153 N IND,JND,KND,LINE,LND,PIECE,TEMP
    148  I DDATA(SUB,"LEN")'>0 Q
     154 I APPDATA("LEN")'>0 Q
    149155 S LINE=""
    150  F IND=1:1:DDATA(SUB,"MAX") D
    151  . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"APP",IND))
    152  . F JND=1:1:DDATA(SUB,"LEN") D
    153  .. S KND=$P(DDATA(SUB),",",JND)
     156 F IND=1:1:APPDATA("MAX") D
     157 . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"APPDATA",IND))
     158 . F JND=1:1:APPDATA("LEN") D
     159 .. S KND=$P(APPDATA,",",JND)
    154160 .. S LND=""
    155  .. F  S LND=$O(DDATA(SUB,KND,LND)) Q:LND=""  D
    156  ... S PIECE=$P(DDATA(SUB,KND,KND),U,2)
     161 .. F  S LND=$O(APPDATA(KND,LND)) Q:LND=""  D
     162 ... S PIECE=$P(APPDATA(KND,KND),U,2)
    157163 ... S LINE=LINE_$P(TEMP,U,PIECE)_DC
    158164 W LINE
    159165 Q
    160166 ;
    161 PDELDATA(DFN,DC,DTYPE,DDATA,SUB) ;Print the delimited data.
     167PDELDATA(DFN,DC,DTYPE,DATA) ;Print the delimited data.
    162168 N IND,JND,KND,LINE,LND,TEMP,TTEMP
     169 I DATA("LEN")'>0 Q
    163170 S TEMP=$G(^TMP("PXRMPLD",$J,DFN,DTYPE))
    164171 S LINE=""
    165  F IND=1:1:DDATA(DTYPE,"LEN") D
    166  . S JND=$P(DDATA(DTYPE),",",IND)
     172 F IND=1:1:DATA("LEN") D
     173 . S JND=$P(DATA,",",IND)
    167174 . S KND=""
    168  . F  S KND=$O(DDATA(DTYPE,JND,KND)) Q:KND=""  D
    169  .. S MAX=$P(DDATA(DTYPE,JND,KND),U,3)
     175 . F  S KND=$O(DATA(JND,KND)) Q:KND=""  D
     176 .. S MAX=$P(DATA(JND,KND),U,3)
    170177 .. I MAX="" S LINE=LINE_$P(TEMP,U,KND)_DC Q
    171178 .. I +MAX>1 S TTEMP=$P(TEMP,U,KND) F LND=1:1:MAX S LINE=LINE_$P(TTEMP,"~",LND)_DC
    … …  
    173180 Q
    174181 ;
    175 PFACHDR(DDATA,SUB) ;Build the preferred facility header.
    176  I DDATA(SUB,0)=1 S DDATA(SUB,"HDR")="PATIENT'S PREFERRED FACILITY"
    177  Q
    178  ;
    179 PFACDATA(DFN,DDATA,SUB) ;Print the patient's preferred facility data, delimited.
    180  I DDATA(SUB,0)=0 Q
    181  W ^TMP("PXRMPLD",$J,DFN,"PFAC")
    182  Q
    183  ;
    184 PFACPR(DFN,DDATA,SUB) ;Print the patient's preferred facility.
    185  I DDATA(SUB,0)=0 Q
     182PFACHDR(PFACDATA) ;Build the preferred facility header.
     183 I PFACDATA(0)=1 S PFACDATA("HDR")="PATIENT'S PREFERRED FACILITY"
     184 Q
     185 ;
     186PFACDATA(DFN,PFACDATA) ;Print the patient's preferred facility data, delimited.
     187 I PFACDATA(0)=0 Q
     188 W ^TMP("PXRMPLD",$J,DFN,"PFACDATA")
     189 Q
     190 ;
     191PFACPR(DFN,PFACDATA) ;Print the patient's preferred facility.
     192 I PFACDATA(0)=0 Q
    186193 D ADDTXT("Patient's Preferred Facility")
    187  D ADDTXT(" "_$G(^TMP("PXRMPLD",$J,DFN,"PFAC")))
    188  Q
    189  ;
    190 PFINDATA(DFN,DC,DDATA,SUB) ;Print the finding data.
     194 D ADDTXT(" "_$G(^TMP("PXRMPLD",$J,DFN,"PFACDATA")))
     195 Q
     196 ;
     197PFINDATA(DFN,DC,FINDDATA) ;Print the finding data.
    191198 N IND,JND,LINE,TEMP
    192  I DDATA(SUB,"LEN")'>0 Q
     199 I FINDDATA("LEN")'>0 Q
    193200 S LINE=""
    194  F IND=1:1:DDATA(SUB,"LEN") D
    195  . S JND=$P(DDATA(SUB),",",IND)
    196  . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"FIND",JND))
     201 F IND=1:1:FINDDATA("LEN") D
     202 . S JND=$P(FINDDATA,",",IND)
     203 . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"FINDDATA",JND))
    197204 . S LINE=LINE_TEMP_DC
    198205 W LINE
    199206 Q
    200207 ;
    201 PREMDATA(DFN,DC,DDATA,SUB) ;Print the reminder data.
     208PREMDATA(DFN,DC,REMDATA) ;Print the reminder data.
    202209 N IND,JND,LINE,TEMP
    203  I DDATA(SUB,"LEN")'>0 Q
     210 I REMDATA("LEN")'>0 Q
    204211 S LINE=""
    205  F IND=1:1:DDATA(SUB,"LEN") D
    206  . S JND=$P(DDATA(SUB),",",IND)
    207  . S LINE=LINE_DDATA(SUB,"RNAME",JND)_DC
    208  . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"REM",DDATA(SUB,"IEN",JND)))
     212 F IND=1:1:REMDATA("LEN") D
     213 . S JND=$P(REMDATA,",",IND)
     214 . S LINE=LINE_REMDATA("RNAME",JND)_DC
     215 . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"REMDATA",REMDATA("IEN",JND)))
    209216 . S LINE=LINE_$P(TEMP,U,2)_DC_$P(TEMP,U,3)_"^"_$P(TEMP,U,4)_DC
    210217 W LINE
    211218 Q
    212219 ;
    213 REGPR(PLIEN,DDATA,SUB) ;
     220REGPR(PLIEN,ADDDATA,APPDATA,DEMDATA,FINDDATA,INPDATA,PFACDATA,REMDATA) ;
    214221 ;Print the regular report..
    215222 N DATATYPE,DFN,PNAME,LINCNT
    … …  
    225232 .. S DATATYPE=""
    226233 .. F  S DATATYPE=$O(^TMP("PXRMPLD",$J,DFN,DATATYPE)) Q:DATATYPE=""  D
    227  ... I DATATYPE="ADD" D VADPTPR(DFN,"Address Data",DATATYPE,.DDATA,"ADD") Q
    228  ... I DATATYPE="APP" D APPPRINT(DFN,.DDATA,"APP") Q
    229  ... I DATATYPE="DEM" D VADPTPR(DFN,"Demographic Data",DATATYPE,.DDATA,"DEM") Q
    230  ... I DATATYPE="ELIG" D VADPTPR(DFN,"Eligibility Data",DATATYPE,.DDATA,"ELIG") Q
    231  ... I DATATYPE="FIND" D FINDPR(DFN,.DDATA,"FIND") Q
    232  ... I DATATYPE="INP" D VADPTPR(DFN,"Inpatient Data",DATATYPE,.DDATA,"INP") Q
    233  ... I DATATYPE="PFAC" D PFACPR(DFN,.DDATA,"PFAC") Q
    234  ... I DATATYPE="REM" D REMPR(DFN,.DDATA,"REM") Q
     234 ... I DATATYPE="ADDDATA" D VADPTPR(DFN,"Address Data",DATATYPE,.ADDDATA) Q
     235 ... I DATATYPE="APPDATA" D APPPRINT(DFN,.APPDATA) Q
     236 ... I DATATYPE="DEMDATA" D VADPTPR(DFN,"Demographic Data",DATATYPE,.DEMDATA) Q
     237 ... I DATATYPE="ELIGDATA" D VADPTPR(DFN,"Eligibility Data",DATATYPE,.ELIGDATA) Q
     238 ... I DATATYPE="FINDDATA" D FINDPR(DFN,.FINDDATA) Q
     239 ... I DATATYPE="INPDATA" D VADPTPR(DFN,"Inpatient Data",DATATYPE,.INPDATA) Q
     240 ... I DATATYPE="PFACDATA" D PFACPR(DFN,.PFACDATA) Q
     241 ... I DATATYPE="REMDATA" D REMPR(DFN,.REMDATA) Q
    235242 D OUTPUT
    236243 K ^TMP("PXRMPDEM",$J)
    237244 Q
    238245 ;
    239 REMHDR(DC,DDATA,SUB) ;Build the reminder data delimited header.
     246REMHDR(DC,REMDATA) ;Build the reminder data delimited header.
    240247 N HDR,IND,JND
    241248 S HDR=""
    242  F IND=1:1:DDATA(SUB,"LEN") D
    243  . S JND=$P(DDATA(SUB),",",IND)
     249 F IND=1:1:REMDATA("LEN") D
     250 . S JND=$P(REMDATA,",",IND)
    244251 . S HDR=HDR_"REMINDER"_JND_DC_"STATUS"_JND_DC_"DUE DATE"_JND_DC_"LAST DONE"_JND_DC
    245  S DDATA(SUB,"HDR")=HDR
    246  Q
    247  ;
    248 REMPR(DFN,DDATA,SUB) ;Print reminder status information.
     252 S REMDATA("HDR")=HDR
     253 Q
     254 ;
     255REMPR(DFN,REMDATA) ;Print reminder status information.
    249256 N DUE,IND,JND,LAST,LINE,NSP,STATUS,TEMP
    250257 D ADDTXT(" ")
    251258 S LINE="Reminder:"_$$INSCHR^PXRMEXLC(27," ")_"--STATUS--  --DUE DATE--  --LAST DONE--"
    252259 D ADDTXT(LINE)
    253  F IND=1:1:DDATA(SUB,"LEN") D
    254  . S JND=$P(DDATA(SUB),",",IND)
    255  . S RIEN=DDATA(SUB,"IEN",JND)
    256  . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"REM",RIEN))
     260 F IND=1:1:REMDATA("LEN") D
     261 . S JND=$P(REMDATA,",",IND)
     262 . S RIEN=REMDATA("IEN",JND)
     263 . S TEMP=$G(^TMP("PXRMPLD",$J,DFN,"REMDATA",RIEN))
    257264 . I TEMP="" Q
    258265 . S STATUS=$P(TEMP,U,2)
    259266 . S DUE=$P(TEMP,U,3),DUE=$$EDATE^PXRMDATE(DUE)
    260267 . S LAST=$P(TEMP,U,4),LAST=$$EDATE^PXRMDATE(LAST)
    261  . S NSP=38-$L(DDATA(SUB,"RNAME",JND))
    262  . S LINE=DDATA(SUB,"RNAME",JND)_$$INSCHR^PXRMEXLC(NSP," ")_STATUS
     268 . S NSP=38-$L(REMDATA("RNAME",JND))
     269 . S LINE=REMDATA("RNAME",JND)_$$INSCHR^PXRMEXLC(NSP," ")_STATUS
    263270 . S NSP=54-$L(LINE)-($L(DUE)/2)
    264271 . S LINE=LINE_$$INSCHR^PXRMEXLC(NSP," ")_DUE
    … …  
    282289 Q
    283290 ;
    284 VADPTPR(DFN,DNAME,DTYPE,DDATA,SUB) ;Print data returned by a VADPT call.
     291VADPTPR(DFN,DNAME,DTYPE,DATA) ;Print data returned by a VADPT call.
    285292 N IND,JND,KND,LINE,LND,MAX,TEMP,TTEMP
    286293 D ADDTXT(" ")
    287294 D ADDTXT(DNAME)
    288295 S TEMP=$G(^TMP("PXRMPLD",$J,DFN,DTYPE))
    289  F IND=1:1:DDATA(SUB,"LEN") D
    290  . S JND=$P(DDATA(SUB),",",IND)
     296 F IND=1:1:DATA("LEN") D
     297 . S JND=$P(DATA,",",IND)
    291298 . S KND=""
    292  . F  S KND=$O(DDATA(SUB,JND,KND)) Q:KND=""  D
     299 . F  S KND=$O(DATA(JND,KND)) Q:KND=""  D
    293300 .. S TTEMP=$P(TEMP,U,KND)
    294  .. S MAX=+$P(DDATA(SUB,JND,KND),U,3)
     301 .. S MAX=+$P(DATA(JND,KND),U,3)
    295302 .. I MAX=0 S MAX=1
    296303 .. F LND=1:1:MAX D
    297  ... S LINE=" "_$P(DDATA(SUB,JND,KND),U,1)_": "_$P(TTEMP,"~",LND)
     304 ... S LINE=" "_$P(DATA(JND,KND),U,1)_": "_$P(TTEMP,"~",LND)
    298305 ... D ADDTXT(LINE)
    299306 Q
Note: See TracChangeset for help on using the changeset viewer.