Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMETH1.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/PXRMETH1.m
r628 r636 1 PXRMETH1 ; SLC/PJH - Reminder Extract History ;0 9/07/20072 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMETH1 ; SLC/PJH - Reminder Extract History ;07/24/2006 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 BLDLIST(EDIEN) ;Build workfile 5 ;EDIEN is the extract definition IEN. 6 N IND,FMTSTR,PLIST 4 BLDLIST(IEN) ;Build workfile 5 N IND,PLIST 7 6 K ^TMP("PXRMETH",$J) 8 S FMTSTR=$$LMFMTSTR^PXRMTEXT(.VALMDDF,"RLL")9 7 ;Build list of extract summaries in period order 10 I PXRMVIEW="P" D LIST1( EDIEN,"PXRMETH",FMTSTR)8 I PXRMVIEW="P" D LIST1(.PLIST,.IEN) 11 9 ;Build list of extract summaries in date order 12 I PXRMVIEW="D" D LIST2(EDIEN,"PXRMETH",FMTSTR) 13 Q 14 ; 15 FMT(NUMBER,NAME,EDATE,XDATE,AUTO,FMTSTR,NL,OUTPUT) ;Format 16 N TAUTO,TDATE,TEMP,TNAME,TSOURCE 17 S TEMP=NUMBER_U_NAME_U 18 S TDATE=$$FMTE^XLFDT(EDATE,"5Z") 19 S TEMP=TEMP_$$LJ^XLFSTR(TDATE,20," ") 20 S TDATE=XDATE I TDATE S TDATE=$$FMTE^XLFDT(TDATE,"5Z") 21 S TEMP=TEMP_" "_$$LJ^XLFSTR(TDATE,22," ") 22 S TAUTO=AUTO 23 S TEMP=TEMP_TAUTO 24 D COLFMT^PXRMTEXT(FMTSTR,TEMP," ",.NL,.OUTPUT) 10 I PXRMVIEW="D" D LIST2(.PLIST,.IEN) 11 ;Move into list array 12 M ^TMP("PXRMETH",$J)=PLIST 13 S VALMCNT=PLIST("VALMCNT") 14 ;Allow selection by item 15 F IND=1:1:VALMCNT D 16 .S ^TMP("PXRMETH",$J,"IDX",IND,IND)=IEN(IND) 25 17 Q 26 18 ; … … 28 20 N HTEXT 29 21 I CALL=1 D 30 .S HTEXT(1)="Select DE to delete an extract.\\" 31 .S HTEXT(2)="Select ES to view the details of an extract or run a compliance" 32 .S HTEXT(3)="report for the extract.\\Select MT to transmit extract details to the AAC.\\" 33 .S HTEXT(4)="Select TH to view the transmission history for an extract." 22 .S HTEXT(1)="Select ES to view the details of an extract or run a compliance" 23 .S HTEXT(2)="report for the extract. Select MT to transmit extract details to the AAC." 24 .S HTEXT(3)="Select TH to view the transmission history for an extract." 34 25 ; 35 26 I CALL=3 D … … 41 32 Q 42 33 ; 43 LIST1(EDIEN,NODE,FMTSTR) ;Build a list of extract summaries for a parameter. 44 N AUTO,EDATE,HL7ID,HL7SUB,IND,JND,NAME,NL,NUM,OUTPUT 45 N PERIOD,STR,XDATE,YEAR 34 LIST1(LIST,IEN) ;Build a list of extract summaries for a parameter. 35 N AUTO,EDATE,HL7ID,HL7SUB,IND,NAME,PERIOD,XDATE,YEAR 46 36 ;Build list of extract summaries in reverse date order. 47 S YEAR="9999", (NUM,VALMCNT)=048 F S YEAR=$O(^PXRMXT(810.3,"D", EDIEN,YEAR),-1) Q:YEAR="" D37 S YEAR="9999",VALMCNT=0 38 F S YEAR=$O(^PXRMXT(810.3,"D",IEN,YEAR),-1) Q:YEAR="" D 49 39 .S PERIOD="99" 50 .F S PERIOD=$O(^PXRMXT(810.3,"D", EDIEN,YEAR,PERIOD),-1) Q:PERIOD="" D40 .F S PERIOD=$O(^PXRMXT(810.3,"D",IEN,YEAR,PERIOD),-1) Q:PERIOD="" D 51 41 ..S IND="" 52 ..F S IND=$O(^PXRMXT(810.3,"D", EDIEN,YEAR,PERIOD,IND),-1) Q:IND="" D42 ..F S IND=$O(^PXRMXT(810.3,"D",IEN,YEAR,PERIOD,IND),-1) Q:IND="" D 53 43 ...S NAME=$P($G(^PXRMXT(810.3,IND,0)),U) 54 44 ...S EDATE=$P($G(^PXRMXT(810.3,IND,0)),U,6) … … 59 49 ...I HL7SUB S XDATE=$P($G(^PXRMXT(810.3,IND,5,HL7SUB,0)),U,2) 60 50 ...I 'XDATE S XDATE="Not Transmitted" 61 ...S NUM=NUM+1 62 ...D FMT(NUM,NAME,EDATE,XDATE,AUTO,FMTSTR,.NL,.OUTPUT) 63 ...F JND=1:1:NL D 64 ....S VALMCNT=VALMCNT+1,^TMP(NODE,$J,VALMCNT,0)=OUTPUT(JND) 65 ....S ^TMP(NODE,$J,"IDX",VALMCNT,NUM)="" 66 ....S ^TMP(NODE,$J,"SEL",NUM)=IND 51 ...S VALMCNT=VALMCNT+1 52 ...S LIST(VALMCNT,0)=$$FRE(VALMCNT,NAME,EDATE,XDATE,AUTO) 53 ...S IEN(VALMCNT)=IND 54 S LIST("VALMCNT")=VALMCNT 67 55 Q 68 56 ; 69 LIST2(EDIEN,NODE,FMTSTR) ;Build a list of extract summaries for a parameter. 70 N AUTO,EDATE,HL7ID,HL7SUB,IND,JND,NAME,NL,NUM,OUTPUT 71 N PERIOD,STR,XDATE,YEAR 57 LIST2(LIST,IEN) ;Build a list of extract summaries for a parameter. 58 N AUTO,EDATE,HL7ID,HL7SUB,IND,NAME,PERIOD,XDATE,YEAR 72 59 ;Build list of extract summaries in reverse date order. 73 S EDATE="", (NUM,VALMCNT)=074 F S EDATE=$O(^PXRMXT(810.3,"C", EDIEN,EDATE),-1) Q:'EDATE D60 S EDATE="",VALMCNT=0 61 F S EDATE=$O(^PXRMXT(810.3,"C",IEN,EDATE),-1) Q:'EDATE D 75 62 .S IND="" 76 .F S IND=$O(^PXRMXT(810.3,"C", EDIEN,EDATE,IND)) Q:'IND D77 ..S NAME=$P($G(^PXRMXT(810.3,IND,0)),U ,1)63 .F S IND=$O(^PXRMXT(810.3,"C",IEN,EDATE,IND)) Q:'IND D 64 ..S NAME=$P($G(^PXRMXT(810.3,IND,0)),U) 78 65 ..S AUTO=$P($G(^PXRMXT(810.3,IND,4)),U,5) 79 66 ..S AUTO=$S(AUTO="A":"Y",1:"N") … … 82 69 ..I HL7SUB S XDATE=$P($G(^PXRMXT(810.3,IND,5,HL7SUB,0)),U,2) 83 70 ..I 'XDATE S XDATE="Not Transmitted" 84 ..S NUM=NUM+1 85 ..D FMT(NUM,NAME,EDATE,XDATE,AUTO,FMTSTR,.NL,.OUTPUT) 86 ..F JND=1:1:NL D 87 ...S VALMCNT=VALMCNT+1,^TMP(NODE,$J,VALMCNT,0)=OUTPUT(JND) 88 ...S ^TMP(NODE,$J,"IDX",VALMCNT,NUM)="" 89 ...S ^TMP(NODE,$J,"SEL",NUM)=IND 71 ..S VALMCNT=VALMCNT+1 72 ..S LIST(VALMCNT,0)=$$FRE(VALMCNT,NAME,EDATE,XDATE,AUTO) 73 ..S IEN(VALMCNT)=IND 74 S LIST("VALMCNT")=VALMCNT 90 75 Q 91 76 ; 77 FRE(NUMBER,NAME,EDATE,XDATE,AUTO) ;Format 78 N TAUTO,TDATE,TEMP,TNAME,TSOURCE 79 S TEMP=$$RJ^XLFSTR(NUMBER,5," ") 80 S TNAME=$E(NAME,1,27) 81 S TEMP=TEMP_" "_$$LJ^XLFSTR(TNAME,27," ") 82 S TDATE=$$FMTE^XLFDT(EDATE,"5Z") 83 S TEMP=TEMP_" "_$$LJ^XLFSTR(TDATE,20," ") 84 S TDATE=XDATE I TDATE S TDATE=$$FMTE^XLFDT(TDATE,"5Z") 85 S TEMP=TEMP_" "_$$LJ^XLFSTR(TDATE,22," ") 86 S TAUTO=AUTO 87 S TEMP=TEMP_TAUTO 88 Q TEMP
Note:
See TracChangeset
for help on using the changeset viewer.