Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXSC.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/PXRMXSC.m
r628 r636 1 PXRMXSC ; SLC/PJH - Reminder reports service category selection ;1 2/18/20062 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMXSC ; SLC/PJH - Reminder reports service category selection ;11/03/2005 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 4 SCAT ;Get the list of service categories. … … 10 10 D HELP^DIE(9000010,"",.07,"S","SCA") 11 11 S NSC=SCA("DIHELP") 12 S DIR("?")=U_"D SCATHELP^PXRMXSC" 12 S DIR("?")=" " 13 S DIR("?",1)="The possible service categories for the report are:" 14 S JC=0 15 F IC=2:1:NSC D 16 . S X=$P(SCA("DIHELP",IC)," ",1) 17 . I PCESVC="" S PCESVC=X 18 . E S PCESVC=PCESVC_","_X 19 . S JC=JC+1 20 . S DIR("?",JC)=SCA("DIHELP",IC) 21 S NSC=JC 13 22 S DIR("??")=U_"D SCATHELP^PXRMXSC" 14 23 SCATP ; … … 28 37 ; 29 38 ;====================================================== 30 SCATHELP ;? help for service categories. 31 N ARRAY,IC,JC,NSC,PCESVC 32 S PCESVC="" 33 D HELP^DIE(9000010,"",.07,"S","SCA") 34 S NSC=SCA("DIHELP") 35 S JC=0 36 F IC=2:1:NSC D 37 . S X=$P(SCA("DIHELP",IC)," ",1) 38 . I PCESVC="" S PCESVC=X 39 . E S PCESVC=PCESVC_","_X 40 . S JC=JC+1 41 . S ARRAY(JC)=SCA("DIHELP",IC) 42 S NSC=JC 39 SCATHELP ;?? help for service categories. 43 40 W !!,"Enter the letter(s), separated by commas, corresponding to the desired service" 44 41 W !,"category or categories. For example A,H,T,E would allow only encounters with" 45 42 W !,"service categories of ambulatory, hospitalization, telecommunications, and" 46 43 W !,"event (historical) to be included." 47 W !!,"The possible service categories for the report are:",!48 F IC=1:1:NSC W !,ARRAY(IC)49 44 Q 50 45 ;
Note:
See TracChangeset
for help on using the changeset viewer.