Changeset 636 for FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RADD2.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/RADIOLOGY_NUCLEAR_MEDICINE-RA/RADD2.m
r628 r636 1 1 RADD2 ;HISC/GJC/CAH-Radiology Data Dictionary Utility Routine ;5/14/97 10:31 2 ;;5.0;Radiology/Nuclear Medicine;**84**;Mar 16, 1998;Build 13 3 ; 4 ;Integration Agreements 5 ;---------------------- 6 ;EN^DDIOL(10142); FILE^DIE(2053);NOTE^ORX3(868);MES^XPDUTL(10141) 7 ; 2 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998 8 3 EN1(RAX,RAY) ; Input transform for the .01 field (Procedure) for the Rad/Nuc 9 4 ; Med Common Procedure file i.e, ^RAMIS(71.3 … … 106 101 Q:+$P(RAUTH,"^")&($S('$P(RAUTH,"^",4):1,$P(RAUTH,"^",4)'<RADT:1,1:0)) 1 107 102 Q 0 108 ;109 PRIDXIXK(DA,X) ;This subroutine executes the KILL logic for the 'new style' AD cross-110 ;reference on the 'PRIMARY DIAGNOSTIC CODE' (data dictionary: 70.03; field: 13)111 ;Input: DA - an array where DA(2)=RADFN, DA(1)=RADTI, & DA=RACNI112 ; X - the primary diagnostic code value (this field points to file 78.3)113 N RACNI,RADFN,RADTI,RAFDA,RAIENS,RAX114 S RADFN=DA(2),RADTI=DA(1),RACNI=DA,RAX=X ;save the variables just in case115 S RAIENS=DA_","_DA(1)_","_DA(2)_",",RAFDA(70.03,RAIENS,20)="@"116 D FILE^DIE(,"RAFDA") ;delete data in 'DIAGNOSTIC PRINT DATE' (DD: 70.03; field: 20)117 K ^RADPT("AD",RAX,RADFN,RADTI,RACNI)118 Q119 ;
Note:
See TracChangeset
for help on using the changeset viewer.