Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HDISVF02

HDISVF02.m

Go to the documentation of this file.
  1. HDISVF02 ;BPFO/JRP - FILE UTILITIES/API;12/20/2004
  1. ;;1.0;HEALTH DATA & INFORMATICS;;Feb 22, 2005
  1. ;
  1. ;---------- Begin HDIS PARAMETER file (#7118.29) APIs ----------
  1. ;
  1. GETTYPE(SYSPTR) ;Get value of SYSTEM TYPE field (#.02)
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Internal Value ^ External Value
  1. ; Notes : If no value found, values for client system type returned
  1. N FAC,ARR,NTRNL,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q "1^CLIENT"
  1. S XTRNL=$$GET(7118.29,.02,(FAC_","),"B",.ARR)
  1. I XTRNL="" Q "1^CLIENT"
  1. Q ARR("I")_"^"_XTRNL
  1. ;
  1. SETTYPE(VALUE,SYSPTR) ;Set value of SYSTEM TYPE field (#.02)
  1. ; Input : VALUE - New value (internal or external)
  1. ; : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : None
  1. N FAC,X,HDIVAL,HDIERR
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q
  1. ;Convert VALUE to internal - allows changing of uneditable field
  1. D CHK^DIE(7118.29,.02,"",$G(VALUE),.HDIVAL,"HDIERR")
  1. I HDIVAL="^" Q
  1. S X=$$SET(7118.29,.02,(FAC_","),HDIVAL,0)
  1. Q
  1. ;
  1. GETVFAIL(SYSPTR) ;Get value of DISABLE VUID ACTIVITY field (#11)
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Internal Value ^ External Value
  1. ; Notes : If no value found, values for OFF are returned
  1. N FAC,ARR,NTRNL,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q "0^OFF"
  1. S XTRNL=$$GET(7118.29,11,(FAC_","),"B",.ARR)
  1. I XTRNL="" Q "0^OFF"
  1. Q ARR("I")_"^"_XTRNL
  1. ;
  1. SETVFAIL(VALUE,SYSPTR) ;Set value of DISABLE VUID ACTIVITY field (#11)
  1. ; Input : VALUE - New value (internal or external)
  1. ; : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : None
  1. N FAC,X
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q
  1. S X=$$SET(7118.29,11,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. GETVLOC(SYSPTR) ;Get value of VUID SERVER LOCATION field (#12)
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Value of field
  1. ; Notes : If no value found, domain for FORUM returned
  1. N FAC,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q "DOMAIN.EXT"
  1. S XTRNL=$$GET(7118.29,12,(FAC_","),"E")
  1. I XTRNL="" Q "DOMAIN.EXT"
  1. Q XTRNL
  1. ;
  1. SETVLOC(VALUE,SYSPTR) ;Set value of VUID SERVER LOCATION field (#12)
  1. ; Input : VALUE - New value (internal or external)
  1. ; : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : None
  1. N FAC,X
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q
  1. S X=$$SET(7118.29,12,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. GETVCON(SYSPTR) ;Get value of VUID SERVER CONNECTION TYPE field (#13)
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Internal Value ^ External Value
  1. ; Notes : If no value found, values for MailMan connection returned
  1. N FAC,ARR,NTRNL,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q "1^MAILMAN"
  1. S XTRNL=$$GET(7118.29,13,(FAC_","),"B",.ARR)
  1. I XTRNL="" Q "1^MAILMAN"
  1. Q ARR("I")_"^"_XTRNL
  1. ;
  1. SETVCON(VALUE,SYSPTR) ;Set value of VUID SERVER CONNECTION TYPE field (#13)
  1. ; Input : VALUE - New value (internal or external)
  1. ; : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : None
  1. N FAC,X
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q
  1. S X=$$SET(7118.29,13,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. GETVSRV(SYSPTR) ;Get value of VUID SERVER OPTION field (#21)
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Value of field
  1. ; Notes : If no value found, HDIS-FACILITY-DATA-SERVER returned
  1. N FAC,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q "HDIS-FACILITY-DATA-SERVER"
  1. S XTRNL=$$GET(7118.29,21,(FAC_","),"E")
  1. I XTRNL="" Q "HDIS-FACILITY-DATA-SERVER"
  1. Q XTRNL
  1. ;
  1. SETVSRV(VALUE,SYSPTR) ;Set value of VUID SERVER OPTION field (#21)
  1. ; Input : VALUE - New value (internal or external)
  1. ; : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : None
  1. N FAC,X
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q
  1. S X=$$SET(7118.29,21,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. ;---------- End HDIS PARAMETER file APIs ----------
  1. ;
  1. SET(FILE,FIELD,IENS,VALUE,XTRNL) ;Store value into a field
  1. ; Input : FILE - File number
  1. ; FIELD - Field number
  1. ; IENS - IENS of entry
  1. ; VALUE - Value to store
  1. ; XTRNL - Flag indicating if VALUE is in external format
  1. ; 1 = Yes (external) 0 = No (internal) (default)
  1. ;Output : Flag indicating if storing of value was done
  1. ; 1 = OK 0 = Error
  1. ; Notes : Assumes input values are valid and exist
  1. ; : Does not support word processing fields
  1. N HDISFDA,HDISMSG,FLAGS
  1. S HDISFDA(FILE,IENS,FIELD)=VALUE
  1. S FLAGS=$S(XTRNL:"E",1:"")
  1. D FILE^DIE(FLAGS,"HDISFDA","HDISMSG")
  1. Q $D(HDISMSG)
  1. ;
  1. GET(FILE,FIELD,IENS,HOW,OUTPUT) ;Get value for a field
  1. ; Input : FILE - File number
  1. ; FIELD - Field number
  1. ; IENS - IENS of entry
  1. ; HOW - Flag indicating how value should be returned
  1. ; I - Return internal value
  1. ; E - Return external value
  1. ; B - Return internal and external value
  1. ; OUTPUT - Output array (pass by reference - dot notation)
  1. ; Only set if HOW = B (both)
  1. ; OUTPUT("I") = Internal value
  1. ; OUTPUT("E") = External value
  1. ;Output : If HOW = I, internal value
  1. ; If HOW = E, external value
  1. ; If HOW = B, external value
  1. ; Notes : Assumes input values are valid and exist
  1. ; : Does not support word processing fields
  1. ; : Null ("") returned on error
  1. N FLAGS,HDISTRG,HDISMSG
  1. S FLAGS=$S(HOW="I":"I",HOW="E":"E",1:"IE")
  1. D GETS^DIQ(FILE,IENS,FIELD,FLAGS,"HDISTRG","HDISMSG")
  1. I $D(HDISMSG) K OUTPUT Q ""
  1. I HOW'="B" Q $G(HDISTRG(FILE,IENS,FIELD,HOW))
  1. S OUTPUT("I")=$G(HDISTRG(FILE,IENS,FIELD,"I"))
  1. S OUTPUT("E")=$G(HDISTRG(FILE,IENS,FIELD,"E"))
  1. Q OUTPUT("E")