MAGVAF05.m

MAGVAF05 ;WOIFO/NST - Utilities for RPC calls ; 14 Sep 2011 1:55 PM

 ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013

 ;; Per VHA Directive 2004-038, this routine should not be modified.

 ;; +---------------------------------------------------------------+

 ;; | Property of the US Government.                                |

 ;; | No permission to copy or redistribute this software is given. |

 ;; | Use of unreleased versions of this software requires the user |

 ;; | to execute a written test agreement with the VistA Imaging    |

 ;; | Development Office of the Department of Veterans Affairs,     |

 ;; | telephone (301) 734-0100.                                     |

 ;; | The Food and Drug Administration classifies this software as  |

 ;; | a medical device.  As such, it may not be changed in any way. |

 ;; | Modifications to this software may result in an adulterated   |

 ;; | medical device under 21CFR820, the use of which is considered |

 ;; | to be a violation of US Federal Statutes.                     |

 ;; +---------------------------------------------------------------+

 ;;

 Q

 ; +++++ Return IEN of the record with .01 field equals VALUE

 ;       If record is not found a new record will be added if a add flag is set to true

 ; 

 ; Input parameters

 ; ================

 ;   FILE  = FileMan file number (e.g. 2006.9193)

 ;   VALUE = External or internal value of .01 field

 ;   ADD   = Add a new record if the VALUE is not found (e.g. 0/1)

GETIEN(FILE,VALUE,ADD) ; Return IEN of the record with .01 field equals VALUE

 N MAGNFDA,MAGNIEN,MAGNXE,IEN,MAGRY

 I (VALUE=0)!(VALUE<0) Q $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"Unexpected value of #"_FILE_".01 :"_VALUE ; Error

 ; Do we have IEN?

 I +VALUE=VALUE D SETOKVAL^MAGVAF02(.MAGRY,VALUE) Q MAGRY

 ; Find the IEN by VALUE

 S IEN=$$FIND1^DIC(FILE,"","BX",VALUE,"","","MAGNXE") ; Find the IEN for VALUE

 I $D(MAGNXE("DIERR")) Q $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_$G(MAGNXE("DIERR",1,"TEXT",1))

 I IEN>0 D SETOKVAL^MAGVAF02(.MAGRY,IEN) Q MAGRY

 ; Return error if we don't need to add a new record

 I 'ADD Q $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"Record "_VALUE_" is not found in file #"_FILE

 ; Add a new record to FILE and return IEN of the new record

 S MAGNFDA(FILE,"+1,",.01)=VALUE

 D UPDATE^DIE("S","MAGNFDA","MAGNIEN","MAGNXE")

 I $D(MAGNXE("DIERR","E")) Q $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_$G(MAGNXE("DIERR",1,"TEXT",1))

 D SETOKVAL^MAGVAF02(.MAGRY,MAGNIEN(1))

 Q MAGRY

 ;

 ; Input parameters

 ; ================

 ;   FILE = FileMan file number (e.g. 2006.916)

 ;   FIELD = Field number or name (e.g. "CREATING APPLICATION" or 6)

 ;   

GETFILEP(FILE,FIELD)  ; Returns the file that a FIELD in file FILE points to

 Q $P($$GET1^DID(FILE,FIELD,"","SPECIFIER"),"P",2)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGVAF05   2820     printed  Apr 09, 2024@21:02:52                                                                                                                                                                                                    Page 2

MAGVAF05  ;WOIFO/NST - Utilities for RPC calls ; 14 Sep 2011 1:55 PM

 +1       ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013

 +2       ;; Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;; +---------------------------------------------------------------+

 +4       ;; | Property of the US Government.                                |

 +5       ;; | No permission to copy or redistribute this software is given. |

 +6       ;; | Use of unreleased versions of this software requires the user |

 +7       ;; | to execute a written test agreement with the VistA Imaging    |

 +8       ;; | Development Office of the Department of Veterans Affairs,     |

 +9       ;; | telephone (301) 734-0100.                                     |

 +10      ;; | The Food and Drug Administration classifies this software as  |

 +11      ;; | a medical device.  As such, it may not be changed in any way. |

 +12      ;; | Modifications to this software may result in an adulterated   |

 +13      ;; | medical device under 21CFR820, the use of which is considered |

 +14      ;; | to be a violation of US Federal Statutes.                     |

 +15      ;; +---------------------------------------------------------------+

 +16      ;;

 +17       QUIT 

 +18      ; +++++ Return IEN of the record with .01 field equals VALUE

 +19      ;       If record is not found a new record will be added if a add flag is set to true

 +20      ; 

 +21      ; Input parameters

 +22      ; ================

 +23      ;   FILE  = FileMan file number (e.g. 2006.9193)

 +24      ;   VALUE = External or internal value of .01 field

 +25      ;   ADD   = Add a new record if the VALUE is not found (e.g. 0/1)

GETIEN(FILE,VALUE,ADD) ; Return IEN of the record with .01 field equals VALUE

 +1        NEW MAGNFDA,MAGNIEN,MAGNXE,IEN,MAGRY

 +2       ; Error

           IF (VALUE=0)!(VALUE<0)

               QUIT $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"Unexpected value of #"_FILE_".01 :"_VALUE

 +3       ; Do we have IEN?

 +4        IF +VALUE=VALUE

               DO SETOKVAL^MAGVAF02(.MAGRY,VALUE)

               QUIT MAGRY

 +5       ; Find the IEN by VALUE

 +6       ; Find the IEN for VALUE

           SET IEN=$$FIND1^DIC(FILE,"","BX",VALUE,"","","MAGNXE")

 +7        IF $DATA(MAGNXE("DIERR"))

               QUIT $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_$GET(MAGNXE("DIERR",1,"TEXT",1))

 +8        IF IEN>0

               DO SETOKVAL^MAGVAF02(.MAGRY,IEN)

               QUIT MAGRY

 +9       ; Return error if we don't need to add a new record

 +10       IF 'ADD

               QUIT $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_"Record "_VALUE_" is not found in file #"_FILE

 +11      ; Add a new record to FILE and return IEN of the new record

 +12       SET MAGNFDA(FILE,"+1,",.01)=VALUE

 +13       DO UPDATE^DIE("S","MAGNFDA","MAGNIEN","MAGNXE")

 +14       IF $DATA(MAGNXE("DIERR","E"))

               QUIT $$FAILED^MAGVAF02()_$$RESDEL^MAGVAF02()_$GET(MAGNXE("DIERR",1,"TEXT",1))

 +15       DO SETOKVAL^MAGVAF02(.MAGRY,MAGNIEN(1))

 +16       QUIT MAGRY

 +17      ;

 +18      ; Input parameters

 +19      ; ================

 +20      ;   FILE = FileMan file number (e.g. 2006.916)

 +21      ;   FIELD = Field number or name (e.g. "CREATING APPLICATION" or 6)

 +22      ;   

GETFILEP(FILE,FIELD) ; Returns the file that a FIELD in file FILE points to

 +1        QUIT $PIECE($$GET1^DID(FILE,FIELD,"","SPECIFIER"),"P",2)