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

XUPSORG.m

Go to the documentation of this file.
  1. XUPSORG ;ALB/CMC - Build ORG segment;Aug 6, 2010
  1. ;;8.0;KERNEL;**551**;Jul 10, 1995;Build 2
  1. EN(XUDUZ,HL,XUORG) ; ORG SEGMENT FOR VISITOR FIELDS 1 AND 5
  1. ;INPUT: XUDUZ - IEN in file 200
  1. ;HL array variables
  1. ;OUTPUT: XUORG CONTAINING ORG SEGMENT(S)
  1. ;XUORG=-1^ERROR MESSAGE IF CAN'T BUILD ORG SEGMENT
  1. N NUM
  1. K XUORG
  1. I XUDUZ=""!('$D(HL)) S XUORG="-1^MISSING PARAMETERS" G QUIT ;missing parameter
  1. ;
  1. S NUM=1
  1. I '$D(^VA(200,XUDUZ,8910)) S $P(XUORG(NUM),HL("FS"),1)="ORG"_HL("FS")_NUM_HL("FS") G QUIT
  1. ;have visitor records
  1. N IEN,COMP,SUBCOMP,VIS,NODE
  1. S COMP=$E(HL("ECH"),1),SUBCOMP=$E(HL("ECH"),4)
  1. S IEN=0 F S IEN=$O(^VA(200,XUDUZ,8910,IEN)) Q:'IEN D
  1. .S NODE=$G(^VA(200,XUDUZ,8910,IEN,0))
  1. .;VISITOR DATA WILL BE:
  1. .;DUZ AT HOME SITE (0;3)^<CHECK DIGIT>^<CHECK DIGIT SCHEME>^ASSIGNING AUTHORTY^ID TYPE CODE^
  1. .;ASSIGNING FACILITY^EFFECTIVE DATE^EXPIRATION DATE (TODAY)
  1. .S $P(XUORG(NUM),HL("FS"),1)="ORG"_HL("FS")_NUM_HL("FS")
  1. .S VIS=$P(NODE,"^",3)_COMP_COMP_COMP_"USVHA"_SUBCOMP_SUBCOMP_"0363"_COMP_"PN"_COMP
  1. .S VIS=VIS_"VA FACILITY ID"_SUBCOMP_$P(NODE,"^")_SUBCOMP_"L"_COMP_COMP
  1. .S $P(XUORG(NUM),HL("FS"),6)=VIS
  1. .S NUM=NUM+1
  1. QUIT Q