Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMLPP.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMLPP.m
r628 r636 1 PXRMLPP ; SLC/PKR/PJH - Reminder Patient List Patients ;0 4/04/20072 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMLPP ; SLC/PKR/PJH - Reminder Patient List Patients ;01/06/2006 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 4 ;Main entry point for PXRM PATIENT LIST 5 5 START(IEN) ; 6 N CDATE,CLASS,CREATOR, INDP,INTP,LDATA,LNAME,PXRMVIEW,SNAME,SOURCE,TYPE6 N CDATE,CLASS,CREATOR,LDATA,LNAME,PXRMVIEW,SNAME,SOURCE,TYPE 7 7 N VALMBCK,VALMBG,VALMCNT,VALMSG,X,XMZ,XQORM,XQORNOD 8 8 ;Get Patient List record and associated data. … … 33 33 S CLASS=$P($G(^PXRMXP(810.5,IEN,100)),U) 34 34 S CLASS=$S(CLASS="N":"National",CLASS="V":"VISN",1:"Local") 35 S INDP=$P(LDATA,U,11)36 S INTP=$P(LDATA,U,12)37 35 ;Default view by name. 38 36 S PXRMVIEW="N" … … 90 88 Q 91 89 ; 92 FRE(NUMBER,PNAME,DFN,DECEASED,TESTP,INST) ;Format entry number, name, primary 93 ;station and deceased, test information. 94 N TEMP,TEXT,TNAME,TSOURCE 95 S TEXT=$$RJ^XLFSTR(NUMBER,5," ") 96 S TEXT=$$SETFLD^VALM1(PNAME,TEXT,"HEADER1") 97 S TEXT=TEXT_" "_$$LJ^XLFSTR(DFN,15," ") 98 S TEMP="" 99 I DECEASED S TEMP=" (D)" 100 I TESTP S TEMP=" (T)" 101 I DECEASED,TESTP S TEMP=" (DP)" 102 S TEXT=TEXT_TEMP 103 I INST'="" S TEXT=$$SETFLD^VALM1(INST,TEXT,"HEADER3") 104 Q TEXT 90 FRE(NUMBER,NAME,INST,DFN) ;Format entry number, name and primary station 91 N TEMP,TNAME,TSOURCE 92 S TEMP=$$RJ^XLFSTR(NUMBER,5," ") 93 S TNAME=$E(NAME,1,30) 94 S TEMP=TEMP_" "_$$LJ^XLFSTR(TNAME,32," ") 95 S TEMP=TEMP_" "_$$LJ^XLFSTR(DFN,15," ") 96 I INST'="" S TEMP=TEMP_" "_INST 97 Q TEMP 105 98 ; 106 99 HDR ; Header code 107 N TEXT 108 S VALMHDR(1)="List Name: "_LNAME 100 S VALMHDR(1)="List Name: "_LNAME_" ("_VALMCNT_" patients)" 109 101 S VALMHDR(2)=" Created: "_$$FMTE^XLFDT(CDATE,"5Z") 110 102 S VALMHDR(2)=$$LJ^XLFSTR(VALMHDR(2),40)_"Creator: "_CREATOR … … 112 104 S VALMHDR(3)=$$LJ^XLFSTR(VALMHDR(3),40)_"Type: "_TYPE 113 105 S VALMHDR(4)=" Source: "_SNAME 114 S VALMHDR(5)=" Number of patients: "_VALMCNT115 106 S VALMSG="+ Next Screen - Prev Screen ?? More Actions" 116 S TEXT=""117 I INDP S TEXT=" (D=deceased)"118 I INTP S TEXT=" (T=test)"119 I INDP,INTP S TEXT=" (D=deceased, T=test)"120 S TEXT="DFN"_TEXT121 D CHGCAP^VALM("HEADER2",TEXT)122 107 Q 123 108 ; … … 148 133 .;DBIA #10035 149 134 .S PNAME=$P(^DPT(DFN,0),U,1) 150 .I PNAME="" S PNAME=DFN_" does not exist"151 135 .S ^XTMP(PLNODE,PNAME)=DFN 152 136 D HSI^PXRMLPHS(PLNODE) … … 159 143 ; 160 144 LIST(VALMCNT,IEN,INCINST) ;Build a list of patients. 161 N DATA,D ECEASED,DFN,IND,INST,NEXT,PNAME,SUB,TESTP145 N DATA,DFN,IND,INST,NEXT,PNAME,SUB 162 146 ;Build the ordered list. 163 147 S IND=0,SUB="NAME" … … 165 149 .S DATA=$G(^PXRMXP(810.5,IEN,30,IND,0)) Q:DATA="" 166 150 .S DFN=$P(DATA,U) Q:'DFN 167 .S DECEASED=$P(DATA,U,4)168 .S TESTP=$P(DATA,U,5)169 151 .;#DBIA 10035 170 152 .S PNAME=$P($G(^DPT(DFN,0)),U,1) 171 .I PNAME="" S PNAME=DFN_" does not exist"172 153 .S INSTNUM=$P(DATA,U,2) S:INSTNUM="" INSTNUM="NONE" 173 154 .S INST=$P(DATA,U,3) … … 176 157 .I INST="" S INST="NONE" 177 158 .I PXRMVIEW="I" S SUB=INST 178 .S ^TMP("PXRMLPPA",$J,SUB,PNAME,DFN)= DECEASED_U_TESTP_U_INST159 .S ^TMP("PXRMLPPA",$J,SUB,PNAME,DFN)=INST 179 160 ;Transfer to list manager array 180 161 S SUB="",VALMCNT=0 … … 184 165 ..S DFN="" 185 166 ..F S DFN=$O(^TMP("PXRMLPPA",$J,SUB,PNAME,DFN)) Q:DFN="" D 186 ...S DATA=^TMP("PXRMLPPA",$J,SUB,PNAME,DFN) 187 ...S DECEASED=$P(DATA,U,1) 188 ...S TESTP=$P(DATA,U,2) 189 ...I INCINST S INST=$P(DATA,U,3) 167 ...I INCINST S INST=^TMP("PXRMLPPA",$J,SUB,PNAME,DFN) 190 168 ...S VALMCNT=VALMCNT+1 191 ...S ^TMP("PXRMLPP",$J,VALMCNT,0)=$$FRE(VALMCNT,PNAME, DFN,DECEASED,TESTP,INST)169 ...S ^TMP("PXRMLPP",$J,VALMCNT,0)=$$FRE(VALMCNT,PNAME,INST,DFN) 192 170 ...S ^TMP("PXRMLPPI",$J,VALMCNT)=DFN 193 171 K ^TMP("PXRMLPPA",$J)
Note:
See TracChangeset
for help on using the changeset viewer.