Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMXSC

PXRMXSC.m

Go to the documentation of this file.
  1. PXRMXSC ; SLC/PJH - Reminder reports service category selection ;12/18/2006
  1. ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
  1. ;
  1. SCAT ;Get the list of service categories.
  1. N DIR,DIEA,IC,JC,NSC,PCESVC,SCA,VALID,X,Y
  1. K DIRUT,DTOUT,DUOUT
  1. ;Build a list of allowed service categories. PCE uses a subset of the
  1. ;categories in the file. These are stored in PCESVC.
  1. S PCESVC=""
  1. D HELP^DIE(9000010,"",.07,"S","SCA")
  1. S NSC=SCA("DIHELP")
  1. S DIR("?")=U_"D SCATHELP^PXRMXSC"
  1. S DIR("??")=U_"D SCATHELP^PXRMXSC"
  1. SCATP ;
  1. S DIR(0)="FU"_U_"1:"_NSC
  1. S DIR("A")="Select SERVICE CATEGORIES"
  1. S DIR("B")="A,I"
  1. W !
  1. D ^DIR K DIR
  1. I $D(DIROUT) S DTOUT=1
  1. I $D(DTOUT)!($D(DUOUT)) Q
  1. ;Make sure we have a valid list.
  1. S VALID=$$VSCLIST(Y,PCESVC)
  1. I 'VALID G SCATP
  1. S PXRMSCAT=$$UP^XLFSTR(Y)
  1. F IC=1:1:$L(PXRMSCAT,",") S X=$P(PXRMSCAT,",",IC),PXRMSCAT(X)=""
  1. Q
  1. ;
  1. ;======================================================
  1. SCATHELP ;? help for service categories.
  1. N ARRAY,IC,JC,NSC,PCESVC
  1. S PCESVC=""
  1. D HELP^DIE(9000010,"",.07,"S","SCA")
  1. S NSC=SCA("DIHELP")
  1. S JC=0
  1. F IC=2:1:NSC D
  1. . S X=$P(SCA("DIHELP",IC)," ",1)
  1. . I PCESVC="" S PCESVC=X
  1. . E S PCESVC=PCESVC_","_X
  1. . S JC=JC+1
  1. . S ARRAY(JC)=SCA("DIHELP",IC)
  1. S NSC=JC
  1. W !!,"Enter the letter(s), separated by commas, corresponding to the desired service"
  1. W !,"category or categories. For example A,H,T,E would allow only encounters with"
  1. W !,"service categories of ambulatory, hospitalization, telecommunications, and"
  1. W !,"event (historical) to be included."
  1. W !!,"The possible service categories for the report are:",!
  1. F IC=1:1:NSC W !,ARRAY(IC)
  1. Q
  1. ;
  1. ;======================================================
  1. VSCLIST(LIST,SLIST) ;LIST is a comma separated list of service categories. SLIST
  1. ;is the standard list of service categories. Make sure all the
  1. ;elements of LIST are in the standard list SLIST. If they are, then
  1. ;LIST is valid. Used for selection in reminder reports and as input
  1. ;transform SERVICE CATEGORY LIST in the REMINDER REPORT TEMPLATE
  1. ;file #810.1.
  1. I LIST="" Q 1
  1. I $G(SLIST)="" D
  1. . N IC,SCA,TEMP
  1. . D HELP^DIE(9000010,"",.07,"S","SCA")
  1. . S SLIST=""
  1. . F IC=2:1:SCA("DIHELP") D
  1. .. S TEMP=$P(SCA("DIHELP",IC)," ",1)
  1. .. I SLIST="" S SLIST=TEMP
  1. .. E S SLIST=SLIST_","_TEMP
  1. N IC,LE,LEN,VALID
  1. S LIST=$$UP^XLFSTR(LIST)
  1. S VALID=1
  1. S LEN=$L(LIST,",")
  1. F IC=1:1:LEN D
  1. . S LE=$P(LIST,",",IC)
  1. . I LE="" D Q
  1. .. D EN^DDIOL("Null is not a valid service category!")
  1. .. S VALID=0
  1. . I SLIST'[LE D
  1. .. D EN^DDIOL(LE_" is an invalid service category!")
  1. .. S VALID=0
  1. Q VALID
  1. ;