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

HDISVF03.m

Go to the documentation of this file.
  1. HDISVF03 ;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. GETSDIS(SYSPTR) ;Get value of DISABLE STATUS UPDATES field (#31)
  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^HDISVF02(7118.29,31,(FAC_","),"B",.ARR)
  1. I XTRNL="" Q "0^NO"
  1. Q ARR("I")_"^"_XTRNL
  1. ;
  1. SETSDIS(VALUE,SYSPTR) ;Set value of DISABLE STATUS UPDATES field (#31)
  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^HDISVF02(7118.29,31,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. GETSLOC(SYSPTR) ;Get value of STATUS SERVER LOCATION field (#32)
  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^HDISVF02(7118.29,32,(FAC_","),"E")
  1. I XTRNL="" Q "DOMAIN.EXT"
  1. Q XTRNL
  1. ;
  1. SETSLOC(VALUE,SYSPTR) ;Set value of STATUS SERVER LOCATION field (#32)
  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^HDISVF02(7118.29,32,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. GETSCON(SYSPTR) ;Get value of STATUS SERVER CONNECTION TYPE field (#33)
  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^HDISVF02(7118.29,33,(FAC_","),"B",.ARR)
  1. I XTRNL="" Q "1^MAILMAN"
  1. Q ARR("I")_"^"_XTRNL
  1. ;
  1. SETSCON(VALUE,SYSPTR) ;Set value of STATUS SERVER CONNECTION TYPE field (#33)
  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^HDISVF02(7118.29,33,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. GETSSRV(SYSPTR) ;Get value of STATUS SERVER OPTION field (#41)
  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-STATUS-UPDATE-SERVER returned
  1. N FAC,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q "HDIS-STATUS-UPDATE-SERVER"
  1. S XTRNL=$$GET^HDISVF02(7118.29,41,(FAC_","),"E")
  1. I XTRNL="" Q "HDIS-STATUS-UPDATE-SERVER"
  1. Q XTRNL
  1. ;
  1. SETSSRV(VALUE,SYSPTR) ;Set value of STATUS SERVER OPTION field (#41)
  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^HDISVF02(7118.29,41,(FAC_","),$G(VALUE),1)
  1. Q
  1. ;
  1. GETNSVL(SYSPTR) ;Get value of LAST NON-STANDARD VUID field (#51)
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Value of field
  1. ; Notes : If no value found, null ("") returned
  1. N FAC,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q ""
  1. S XTRNL=$$GET^HDISVF02(7118.29,51,(FAC_","),"E")
  1. Q XTRNL
  1. ;
  1. GETNSVE(SYSPTR) ;Get value of ENDING NON-STANDARD VUID field (#52)
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Value of field
  1. ; Notes : If no value found, null ("") returned
  1. N FAC,XTRNL
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q ""
  1. S XTRNL=$$GET^HDISVF02(7118.29,52,(FAC_","),"E")
  1. Q XTRNL
  1. ;
  1. CALCNSV(SYSPTR) ;Calculate next non-standard VUID
  1. ; Input : SYSPTR - Pointer to HDIS System file
  1. ; (default to current system)
  1. ;Output : Next non-standard VUID centralized VUID server should
  1. ; use when assigning non-standard VUIDs.
  1. ; Notes : LAST NON-STANDARD VUID field (#51) updated with
  1. ; calculated value
  1. ; : Locking implemented to prevent simultaneous calculations
  1. ; : Null ("") returned on error OR if calculated value exceeds
  1. ; allowed ending value (ENDING NON-STANDARD VUID field, #52)
  1. N FAC,CVUID,NVUID,EVUID,OK,X
  1. S FAC=$$GETPTR^HDISVF10($G(SYSPTR))
  1. I 'FAC Q ""
  1. S OK=0
  1. F X=1:1:10 Q:OK L +^HDISF(7118.29,"CALCULATE NEXT VUID"):1 S:$T OK=1 I 'OK H 1
  1. I 'OK Q ""
  1. S CVUID=$$GETNSVL($G(SYSPTR))
  1. S EVUID=$$GETNSVE($G(SYSPTR))
  1. I (CVUID="")!(EVUID="") L -^HDISF(7118.29,"CALCULATE NEXT VUID") Q ""
  1. S NVUID=CVUID+1
  1. I NVUID>EVUID L -^HDISF(7118.29,"CALCULATE NEXT VUID") Q ""
  1. S X=$$SET^HDISVF02(7118.29,51,(FAC_","),NVUID,1)
  1. L -^HDISF(7118.29,"CALCULATE NEXT VUID")
  1. Q NVUID
  1. ;
  1. ;---------- End HDIS PARAMETER file APIs ----------