Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMETM.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (15 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CLINICAL_REMINDERS-PXRM/PXRMETM.m (modified) (7 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMETM.m

@@ -1 @@
-PXRMETM ; SLC/PKR/PJH - Extract/Transmission Management ;09/06/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMETM ; SLC/PKR/PJH - Extract/Transmission Management ;05/15/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;Main entry point for PXRM EXTRACT MANAGEMENT
@@ -15 +15 @@
  K ^TMP("PXRMETM",$J)
  N IEN,IND,PLIST
- D LIST("PXRMETM",.VALMCNT)
+ D LIST(.PLIST,.IEN)
+ M ^TMP("PXRMETM",$J)=PLIST
+ S VALMCNT=PLIST("VALMCNT")
+ F IND=1:1:VALMCNT D
+ .S ^TMP("PXRMETM",$J,"IDX",IND,IND)=IEN(IND)
  Q
+ ;
+LIST(RLIST,IEN) ;Build a list of extract definition entries.
+ N EPCLASS,IND,FNAME,NAME
+ ;Build the list in alphabetical order.
+ S VALMCNT=0
+ S NAME=""
+ F  S NAME=$O(^PXRM(810.2,"B",NAME)) Q:NAME=""  D
+ .S IND=$O(^PXRM(810.2,"B",NAME,"")) Q:'IND
+ .S FNAME=$P($G(^PXRM(810.2,IND,0)),U)
+ .S EPCLASS=$P($G(^PXRM(810.2,IND,100)),U)
+ .S VALMCNT=VALMCNT+1
+ .S RLIST(VALMCNT,0)=$$FRE(VALMCNT,FNAME,EPCLASS)
+ .S IEN(VALMCNT)=IND
+ S RLIST("VALMCNT")=VALMCNT
+ Q
+ ;
+FRE(NUMBER,NAME,CLASS) ;Format  entry number, name
+ ;and date packed.
+ N TCLASS,TEMP,TNAME,TSOURCE
+ S TEMP=$$RJ^XLFSTR(NUMBER,5," ")
+ S TNAME=$E(NAME,1,46)
+ S TEMP=TEMP_"  "_$$LJ^XLFSTR(TNAME,60," ")
+ S TCLASS=$S(CLASS="N":"NATIONAL",CLASS="V":"VISN",1:"LOCAL")
+ S TEMP=TEMP_"  "_TCLASS
+ Q TEMP
  ;
 ENTRY ;Entry code
@@ -30 +59 @@
  Q
  ;
-FMT(NUMBER,NAME,CLASS) ;Format  entry number, name
- ;and date packed.
- N TCLASS,TEMP,TNAME,TSOURCE
- S TEMP=$$RJ^XLFSTR(NUMBER,5," ")
- S TNAME=$E(NAME,1,46)
- S TEMP=TEMP_"  "_$$LJ^XLFSTR(TNAME,60," ")
- S TCLASS=$S(CLASS="N":"NATIONAL",CLASS="V":"VISN",1:"LOCAL")
- S TEMP=TEMP_"  "_TCLASS
- Q TEMP
- ;
-GEN ;Ad hoc report option
- ;Reset Screen Mode
- W IORESET
- ;
- N IND,LISTIEN,VALMY
- D EN^VALM2(XQORNOD(0))
- ;If there is no list quit.
- I '$D(VALMY) Q
- S PXRMDONE=0
- S IND=""
- F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D
- .;Get the ien.
- .S LISTIEN=^TMP("PXRMETM",$J,"SEL",IND)
- .D GENSEL(LISTIEN)
- ;
- S VALMBCK="R"
- Q
- ;
-GENSEL(IEN) ;Report for selected extract definition
- N ANS,BEGIN,END,RTN,TEXT
- D DATES^PXRMEUT(.BEGIN,.END,"Report")
- ;Options
- S RTN="PXRMETM",TEXT="Run compliance report for this period"
- S ANS=$$ASKYN^PXRMEUT("N",TEXT,RTN,1) Q:'ANS  Q:$D(DUOUT)!$D(DTOUT)
- ;Print Report
- D ADHOC^PXRMETCO(IEN,BEGIN,END)
- Q
- ;
 HDR ; Header code
  S VALMHDR(1)="Available Extract Definitions:"
  S VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"
- Q
- ;
-HELP(CALL) ;General help text routine
- N HTEXT
- I CALL=1 D
- .S HTEXT(1)="Select EDM to edit/display extract definitions.\\"
- .S HTEXT(2)="Select VSE to view previous extracts or"
- .S HTEXT(3)="initiate a manual extract or transmission."
- D HELP^PXRMEUT(.HTEXT)
- Q
- ;
-HLIST ;Extract History
- N IND,LISTIEN,VALMY
- D EN^VALM2(XQORNOD(0))
- ;If there is no list quit.
- I '$D(VALMY) Q
- S PXRMDONE=0
- S IND=""
- F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D
- .;Get the ien.
- .S LISTIEN=^TMP("PXRMETM",$J,"SEL",IND)
- .D START^PXRMETH(LISTIEN)
- S VALMBCK="R"
  Q
  ;
@@ -106 +74 @@
  Q
  ;
-LIST(NODE,VALMCNT) ;Build a list of extract definition entries.
- N EPCLASS,IND,FNAME,NAME
- ;Build the list in alphabetical order.
- S VALMCNT=0
- S NAME=""
- F  S NAME=$O(^PXRM(810.2,"B",NAME)) Q:NAME=""  D
- .S IND=$O(^PXRM(810.2,"B",NAME,"")) Q:'IND
- .S FNAME=$P($G(^PXRM(810.2,IND,0)),U)
- .S EPCLASS=$P($G(^PXRM(810.2,IND,100)),U)
- .S VALMCNT=VALMCNT+1
- .S ^TMP(NODE,$J,VALMCNT,0)=$$FMT(VALMCNT,FNAME,EPCLASS)
- .S ^TMP(NODE,$J,"IDX",VALMCNT,VALMCNT)=""
- .S ^TMP(NODE,$J,"SEL",VALMCNT)=IND
- Q
- ;
 PEXIT ;Protocol exit code
  S VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"
  ;Reset after page up/down etc
  D XQORM
- Q
- ;
-PLIST ;Extract Definition Inquiry
- N IND,EPIEN,VALMY
- D EN^VALM2(XQORNOD(0))
- ;If there is no list quit.
- I '$D(VALMY) Q
- S PXRMDONE=0
- S IND=""
- F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D
- .;Get the ien.
- .S EPIEN=^TMP("PXRMETM",$J,"SEL",IND)
- .D START^PXRMEPED(EPIEN)
- S VALMBCK="R"
  Q
  ;
@@ -146 +85 @@
  ;
 XSEL ;PXRM EXTRACT MANAGEMENT SELECT ENTRY validation
- N EDIEN,SEL
+ N SEL,IEN
  S SEL=$P(XQORNOD(0),"=",2)
  ;Remove trailing ,
@@ -154 +93 @@
  .W $C(7),!,"Only one item number allowed." H 2
  .S VALMBCK="R"
- I ('SEL)!(SEL>VALMCNT)!('$D(@VALMAR@("SEL",SEL))) D  Q
+ I ('SEL)!(SEL>VALMCNT)!('$D(@VALMAR@("IDX",SEL))) D  Q
  .W $C(7),!,SEL_" is not a valid item number." H 2
  .S VALMBCK="R"
  ;
  ;Get the list ien.
- S EDIEN=^TMP("PXRMETM",$J,"SEL",SEL)
+ S IEN=^TMP("PXRMETM",$J,"IDX",SEL,SEL)
  ;
  ;Full screen mode
@@ -178 +117 @@
  ;
  ;Display Extract Definitions
- I OPTION="EDM" D START^PXRMEPED(EDIEN)
+ I OPTION="EDM" D
+ .D START^PXRMEPED(IEN)
  ;
  ;Examine/Run Extract
- I OPTION="VSE" D START^PXRMETH(EDIEN)
+ I OPTION="VSE" D
+ .D START^PXRMETH(IEN)
  ;
  ;Examine/Run Extract
- I OPTION="ERE" D GENSEL(EDIEN)
+ I OPTION="ERE" D
+ .D GENSEL(IEN)
  ;
  S VALMBCK="R"
  Q
  ;
+HELP(CALL) ;General help text routine
+ N HTEXT
+ I CALL=1 D
+ .S HTEXT(1)="Select EDM to edit/display extract definitions."
+ .S HTEXT(2)="extract. Select VSE to view previous extracts or "
+ .S HTEXT(3)="initiate a manual extract or transmission."
+ ;
+ D HELP^PXRMEUT(.HTEXT)
+ Q
+ ;
+GEN ;Ad hoc report option
+ ;
+ ;Reset Screen Mode
+ W IORESET
+ ;
+ N IND,LISTIEN,VALMY
+ D EN^VALM2(XQORNOD(0))
+ ;If there is no list quit.
+ I '$D(VALMY) Q
+ S PXRMDONE=0
+ S IND=""
+ F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D
+ .;Get the ien.
+ .S LISTIEN=^TMP("PXRMETM",$J,"IDX",IND,IND)
+ .D GENSEL(LISTIEN)
+ ;
+ S VALMBCK="R"
+ Q
+ ;
+GENSEL(IEN) ;Report for selected extract definition
+ N ANS,BEGIN,END,RTN,TEXT
+ D DATES^PXRMEUT(.BEGIN,.END,"Report")
+ ;Options
+ S RTN="PXRMETM",TEXT="Run compliance report for this period"
+ S ANS=$$ASKYN^PXRMEUT("N",TEXT,RTN,1) Q:'ANS  Q:$D(DUOUT)!$D(DTOUT)
+ ;Print Report
+ D ADHOC^PXRMETCO(IEN,BEGIN,END)
+ Q
+ ;
+HLIST ;Extract History
+ N IND,LISTIEN,VALMY
+ D EN^VALM2(XQORNOD(0))
+ ;If there is no list quit.
+ I '$D(VALMY) Q
+ S PXRMDONE=0
+ S IND=""
+ F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D
+ .;Get the ien.
+ .S LISTIEN=^TMP("PXRMETM",$J,"IDX",IND,IND)
+ .D START^PXRMETH(LISTIEN)
+ S VALMBCK="R"
+ Q
+ ;
+PLIST ;Extract Definition Inquiry
+ N IND,EPIEN,VALMY
+ D EN^VALM2(XQORNOD(0))
+ ;If there is no list quit.
+ I '$D(VALMY) Q
+ S PXRMDONE=0
+ S IND=""
+ F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D
+ .;Get the ien.
+ .S EPIEN=^TMP("PXRMETM",$J,"IDX",IND,IND)
+ .D START^PXRMEPED(EPIEN)
+ ;
+ S VALMBCK="R"
+ Q