source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAMCU0.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1GMRAMCU0 ;HIRMFO/WAA-ID BAND/CHART MARKING UTILITIES ; 2/13/95
2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
3 ;
4IDBAND(DFN,DATE,USR) ; This program will mark all the ID Band fields for
5 ; all reactions for a patient
6 ;
7 ; INPUT
8 ; DFN = IEN for a patient in file 2 (Required)
9 ; DATE = Date of marking in File Manager format (optional-
10 ; if undefined or null current date/time will be used).
11 ; USR = User Marking the ID band (optional- if undefined null
12 ; will be used indicating data automatically entered).
13 ;
14 N GMRADT,GMRAPA,GMRAUSR
15 S GMRADT=$G(DATE),GMRAUSR=$G(USR)
16 I GMRADT="" S GMRADT=$$HTFM^XLFDT($H)
17 S X=GMRADT,%DT="TS" D ^%DT S GMRADT=Y
18 Q:$G(DFN)<1!(GMRADT<0)!(GMRAUSR'=""&(GMRAUSR'>0))
19 S GMRAPA=0 F S GMRAPA=$O(^GMR(120.8,"B",DFN,GMRAPA)) Q:GMRAPA<1 D
20 .Q:$P($G(^GMR(120.8,GMRAPA,0)),U,2)=""!+$G(^GMR(120.8,GMRAPA,"ER"))
21 .N DA,DD,DO,DIC,DIE,DINUM,DR
22 .S DIC="^GMR(120.8,"_GMRAPA_",14,",DIC(0)="L",DIC("P")="120.814DA",DLAYGO=120.8,DA(1)=GMRAPA,X=GMRADT D FILE^DICN K DA,DIC
23 .I Y>0,GMRAUSR'="" D
24 ..S DA(1)=GMRAPA,DA=+Y,DIE="^GMR(120.8,"_DA(1)_",14,",DR="1////"_GMRAUSR
25 ..D ^DIE
26 ..Q
27 .Q
28 Q
Note: See TracBrowser for help on using the repository browser.