Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMSTA1.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/PXRMSTA1.m
r628 r636 1 PXRMSTA1 ; SLC/AGP - Routines for building status list. ;0 9/06/20072 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMSTA1 ; SLC/AGP - Routines for building status list. ;06/20/2006 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 4 ;This routine and PXRMSTA2 will allow users to select the … … 35 35 ; 36 36 ADDDEL(ANS,GBL,FILE,TYPE,NODE,WILD,DA,UPDATE,DELALL) ; 37 I $G(ANS)="" S ANS=$$PROMPT("S^A:ADD STATUS;D:DELETE A STATUS;S:SAVE AND QUIT;Q:QUIT WITHOUT SAVING CHANGES" )37 I $G(ANS)="" S ANS=$$PROMPT("S^A:ADD STATUS;D:DELETE A STATUS;S:SAVE AND QUIT;Q:QUIT WITHOUT SAVING CHANGES","S") 38 38 I "ADDASQ"'[ANS Q 39 39 I ANS="A",WILD=1 D … … 62 62 I TYPE[";" S TYPE=$P($G(TYPE),";",2) 63 63 I TYPE="PXD(811.2," D G ADDEX 64 .I $G(TAXTYPE)="R" !($G(TAXTYPE)="B")D DATA^PXRMSTA2(FILE,.DA,"RAMIS(71,","",.STATUS)64 .I $G(TAXTYPE)="R" D DATA^PXRMSTA2(FILE,.DA,"RAMIS(71,","",.STATUS) 65 65 .;I $G(TAXTYPE)="P" D DATA^PXRMSTA2(FILE,.DA,"PROB","",.STATUS) 66 . ;I $G(TAXTYPE)="B" D DATA^PXRMSTA2(FILE,.DA,"TAX","",.STATUS)66 .I $G(TAXTYPE)="B" D DATA^PXRMSTA2(FILE,.DA,"TAX","",.STATUS) 67 67 ; handle drug finding items 68 68 I TYPE["PSDRUG("!(TYPE["PS(50.605")!(TYPE["PSNDF") D G ADDEX … … 91 91 I TYPE[";" S TYPE=$P($G(TYPE),";",2) 92 92 I TYPE="PXD(811.2," D 93 .I $G(TAXTYPE)="R" !($G(TAXTYPE)="B")S FILE=7094 . ;I $G(TAXTYPE)="P" S FILE=900001193 .I $G(TAXTYPE)="R" S FILE=70 94 .I $G(TAXTYPE)="P" S FILE=9000011 95 95 I FILE="",TYPE="ORD(101.43," S FILE=100 96 96 I FILE="",TYPE="RAMIS(71," S FILE=70 … … 173 173 Q 174 174 ; 175 PROMPT(STR ) ;175 PROMPT(STR,DEFAULT) ; 176 176 N DIR,HTEXT 177 S HTEXT(1)="Select 'A' to add a status to the current status list. \\Select 'D' to"178 S HTEXT(2)="delete a status from the list. \\Select 'S' to save your changes and quit. "179 S HTEXT(3)=" \\Select 'Q' to quit without saving your changes."177 S HTEXT(1)="Select 'A' to add a status to the current status list. Select 'D' to " 178 S HTEXT(2)="delete a status from the list. Select 'S' to save your changes and quit. " 179 S HTEXT(3)="Select 'Q' to quit without saving your changes." 180 180 S DIR(0)=STR 181 181 S DIR("B")="S"
Note:
See TracChangeset
for help on using the changeset viewer.