Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPU2.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/SCHEDULING-SD-SC/SCRPU2.m
r628 r636 1 1 SCRPU2 ;ALB/CMM - GENERIC PROMPTS FOR PCMM REPORTS ; 12 Jan 99 1:23 PM 2 ;;5.3;Scheduling;**41,174,297 ,526,520**;AUG 13, 1993;Build 262 ;;5.3;Scheduling;**41,174,297**;AUG 13, 1993 3 3 ; 4 4 DTRANG(FIRST,SECOND) ;Date Range - begin date ^ end date => fileman format … … 29 29 N TPEN,FOUND,TEAM 30 30 S TPEN="",FOUND=0 31 F S TPEN=$O(^SCTM(404.57," E",CLN,TPEN)) Q:TPEN=""!(FOUND) D31 F S TPEN=$O(^SCTM(404.57,"D",CLN,TPEN)) Q:TPEN=""!(FOUND) D 32 32 .S TEAM=$P(^SCTM(404.57,TPEN,0),"^",2) 33 33 .I $D(^SCPT(404.42,"APTTM",DFN,TEAM)) S FOUND=1 … … 122 122 SORT2() ;Prompt for sorting by: 123 123 ; [1] Division, Team, Patient Name 124 ;or [2] Division, Team, SSN124 ;or [2] Division, Team, Last 4 Pt ID 125 125 ;or [3] Division, Team, Practitioner, Patient Name 126 ;or [4] Division, Team, Practitioner, SSN126 ;or [4] Division, Team, Practitioner, Last 4 Pt ID 127 127 ; 128 128 EN4 ; 129 129 N X 130 130 W !,"Sort By:",!?10,"[1] Division, Team, Patient Name" 131 W !?10,"[2] Division, Team, SSN"131 W !?10,"[2] Division, Team, Last 4 Pt ID" 132 132 W !?10,"[3] Division, Team, Practitioner, Patient Name" 133 W !?10,"[4] Division, Team, Practitioner, SSN"133 W !?10,"[4] Division, Team, Practitioner, Last 4 Pt ID" 134 134 W !!,"Select 1, 2, 3, or 4: " 135 135 R X:DTIME … … 141 141 ;help prompt 142 142 W !,"Enter: ",!?5,"- 1 to sort by Division, Team, Patient Name" 143 W !?10,"- 2 to sort by Division, Team, SSN"143 W !?10,"- 2 to sort by Division, Team, Last 4 Pt ID" 144 144 W !?10,"- 3 to sort by Division, Team, Practitioner, Patient Name" 145 W !?10,"- 4 to sort by Division, Team, Practitioner, SSN"145 W !?10,"- 4 to sort by Division, Team, Practitioner, Last 4 Pt ID" 146 146 Q
Note:
See TracChangeset
for help on using the changeset viewer.