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

INSY183.m

Go to the documentation of this file. 
  1. INSY183 ;slt;19 Aug 1994@090349;compiled gis system data
  1.  ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1.  ;COPYRIGHT 1991-2000 SAIC
  1.  Q
  1.  ;
  1. EN F I=1:2 S %ODD=$E($T(EN+I),4,999) Q:%ODD=""  S %EVEN=$E($T(EN+(I+1)),4,999) S X="^UTILITY(""INHSYS"","_$J_","_$P(%ODD,",",2,99),@X=%EVEN
  1.  ;;^UTILITY(562037788,"SGDT",11,3)
  1.  ;;S:$L(X) (X,INSETID(X))=$G(INSETID(X))+1
  1.  ;;^UTILITY(562037788,"SGDT",12,0)
  1.  ;;COMPOSITE^CM
  1.  ;;^UTILITY(562037788,"SGDT",13,0)
  1.  ;;COMPOSITE ID NUMBER AND NAME^CN
  1.  ;;^UTILITY(562037788,"SGDT",13,1,0)
  1.  ;;^^3^3
  1.  ;;^UTILITY(562037788,"SGDT",13,1,1,0)
  1.  ;;This data type is used to combine a Person Name data type with an ID
  1.  ;;^UTILITY(562037788,"SGDT",13,1,2,0)
  1.  ;;number and takes the form:
  1.  ;;^UTILITY(562037788,"SGDT",13,1,3,0)
  1.  ;;     ID\last\first\mi\title
  1.  ;;^UTILITY(562037788,"SGDT",13,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGDT",13,50)
  1.  ;;K:'X X I $D(X) S X="`"_+X
  1.  ;;^UTILITY(562037788,"SGDT",15,0)
  1.  ;;COMPOSITE PERSON NAME^CP
  1.  ;;^UTILITY(562037788,"SGDT",15,1,0)
  1.  ;;1^^1^1
  1.  ;;^UTILITY(562037788,"SGDT",15,1,1,0)
  1.  ;;Composite data type which is a person's name.  This will transform the name portion into the internal or transportable format.
  1.  ;;^UTILITY(562037788,"SGDT",15,2)
  1.  ;;I X]"" S X=+X_"\"_$TR($P(X,"\",2,9),".") N Y S Y=X,X=+Y_"\"_$P(X,"\",2)_$S($P(X,"\",3)]"":","_$P(X,"\",3),1:"") S:$P(Y,"\",4)]"" X=X_" "_$P(Y,"\",4) S:$P(Y,"\",5)]"" X=X_" "_$P(Y,"\",5)
  1.  ;;^UTILITY(562037788,"SGDT",15,3)
  1.  ;;I X]"" S X=$P(X,",")_"\"_$P($P(X,",",2)," ")_$S($P($P(X,",",2)," ",2)]"":"\"_$P($P(X,",",2)," ",2),1:"")
  1.  ;;^UTILITY(562037788,"SGDT",15,50)
  1.  ;;K:'X X I $D(X) S X="`"_+X
  1.  ;;^UTILITY(562037788,"SGDT",16,0)
  1.  ;;COMPOSITE ID WITH CHECK DIGIT^CK
  1.  ;;^UTILITY(562037788,"SGDT",16,1,0)
  1.  ;;3^^3^3^2940128
  1.  ;;^UTILITY(562037788,"SGDT",16,1,1,0)
  1.  ;;*** NOT AVAILABLE ** 
  1.  ;;^UTILITY(562037788,"SGDT",16,1,2,0)
  1.  ;;A composite consisting of three components: an id number, a check digit, and
  1.  ;;^UTILITY(562037788,"SGDT",16,1,3,0)
  1.  ;;a code showing the check digit scheme employed.
  1.  ;;^UTILITY(562037788,"SGDT",17,0)
  1.  ;;CODED ELEMENT^CE
  1.  ;;^UTILITY(562037788,"SGDT",17,3)
  1.  ;;S X=$$CE^INHUT(X)
  1.  ;;^UTILITY(562037788,"SGDT",19,0)
  1.  ;;COMPOSITE PERSON NAME SPECIAL^CX
  1.  ;;^UTILITY(562037788,"SGDT",19,3)
  1.  ;;S X=$$CN^INHUT(X)
  1.  ;;^UTILITY(562037788,"SGF",170,0)
  1.  ;;HL PATIENT NAME^PERSON NAME^48
  1.  ;;^UTILITY(562037788,"SGF",170,"C")
  1.  ;;NAME
  1.  ;;^UTILITY(562037788,"SGF",171,0)
  1.  ;;HL GENDER^CODED ID^1
  1.  ;;^UTILITY(562037788,"SGF",171,"C")
  1.  ;;SEX
  1.  ;;^UTILITY(562037788,"SGF",172,0)
  1.  ;;HL DATE OF BIRTH^DATE^8
  1.  ;;^UTILITY(562037788,"SGF",172,"C")
  1.  ;;DOB
  1.  ;;^UTILITY(562037788,"SGF",173,0)
  1.  ;;HL RACE^CODED ID^1
  1.  ;;^UTILITY(562037788,"SGF",173,10,0)
  1.  ;;^4012.02P^1^0
  1.  ;;^UTILITY(562037788,"SGF",173,"C")
  1.  ;;RACE:CODE
  1.  ;;^UTILITY(562037788,"SGF",174,0)
  1.  ;;HL RELIGION^CODED ID^3
  1.  ;;^UTILITY(562037788,"SGF",174,"C")
  1.  ;;RELIGION:CODE
  1.  ;;^UTILITY(562037788,"SGF",175,0)
  1.  ;;HL MARITAL STATUS^CODED ID^1
  1.  ;;^UTILITY(562037788,"SGF",175,"C")
  1.  ;;MARITAL STATUS:ABBREVIATION
  1.  ;;^UTILITY(562037788,"SGF",176,0)
  1.  ;;HL PATIENT ADDRESS^ADDRESS^178
  1.  ;;^UTILITY(562037788,"SGF",176,10,0)
  1.  ;;^4012.02P^6^5
  1.  ;;^UTILITY(562037788,"SGF",176,10,1,0)
  1.  ;;HL STREET ADDRESS^1
  1.  ;;^UTILITY(562037788,"SGF",176,10,2,0)
  1.  ;;HL OTHER DESIGNATION^2
  1.  ;;^UTILITY(562037788,"SGF",176,10,3,0)
  1.  ;;HL CITY^3
  1.  ;;^UTILITY(562037788,"SGF",176,10,5,0)
  1.  ;;HL ZIP OR POSTAL CODE^5
  1.  ;;^UTILITY(562037788,"SGF",176,10,6,0)
  1.  ;;HL STATE^4
  1.  ;;^UTILITY(562037788,"SGF",176,10,"AS",1,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"AS",2,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"AS",3,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"AS",4,6)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"AS",5,5)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"B",177,1)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"B",178,2)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"B",179,3)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"B",181,5)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",176,10,"B",182,6)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",177,0)
  1.  ;;HL STREET ADDRESS^STRING^36
  1.  ;;^UTILITY(562037788,"SGF",177,"C")
  1.  ;;STREET ADDRESS
  1.  ;;^UTILITY(562037788,"SGF",178,0)
  1.  ;;HL OTHER DESIGNATION^STRING^36
  1.  ;;^UTILITY(562037788,"SGF",178,"C")
  1.  ;;#.112_$S($L(#.113):" ",1:"")_#.113
  1.  ;;^UTILITY(562037788,"SGF",179,0)
  1.  ;;HL CITY^STRING^20
  1.  ;;^UTILITY(562037788,"SGF",179,"C")
  1.  ;;CITY
  1.  ;;^UTILITY(562037788,"SGF",181,0)
  1.  ;;HL ZIP OR POSTAL CODE^STRING^10
  1.  ;;^UTILITY(562037788,"SGF",181,"C")
  1.  ;;ZIP CODE
  1.  ;;^UTILITY(562037788,"SGF",182,0)
  1.  ;;HL STATE^STRING^71
  1.  ;;^UTILITY(562037788,"SGF",182,5)
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",182,"C")
  1.  ;;STATE
  1.  ;;^UTILITY(562037788,"SGF",185,0)
  1.  ;;HL PATIENT ACCOUNT NUM^COMPOSITE ID WITH CHECK DIGIT^20
  1.  ;;^UTILITY(562037788,"SGF",185,"C")
  1.  ;;
  1.  ;;^UTILITY(562037788,"SGF",186,0)
  1.  ;;HL COUNTY CODE^CODED ID^4
  1.  ;;^UTILITY(562037788,"SGF",187,0)
  1.  ;;HL ALTERNATE PATIENT^STRING^15
  1.  ;;^UTILITY(562037788,"SGF",187,"C")
  1.  ;;#8000
  1.  ;;^UTILITY(562037788,"SGF",188,0)
  1.  ;;HL PHONE NUMBER - HOME^TELEPHONE NUMBER^14
  1.  ;;^UTILITY(562037788,"SGF",188,"C")
  1.  ;;PHONE
  1.  ;;^UTILITY(562037788,"SGF",189,0)
  1.  ;;HL PHONE NUMBER-BUSINES^TELEPHONE NUMBER^18
  1.  ;;^UTILITY(562037788,"SGF",189,"C")
  1.  ;;OFFICE PHONE
  1.  ;;^UTILITY(562037788,"SGF",190,0)
  1.  ;;HL PATIENT EXTERNAL ID^COMPOSITE ID WITH CHECK DIGIT^16
  1.  ;;^UTILITY(562037788,"SGF",191,0)
  1.  ;;HL MOTHER'S MAIDEN NAME^STRING^30
  1.  ;;^UTILITY(562037788,"SGF",192,0)
  1.  ;;HL PATIEN ALIAS^PERSON NAME^48
  1.  ;;^UTILITY(562037788,"SGF",193,0)
  1.  ;;HL LANGUAGE - PATIENT^STRING^25
  1.  ;;^UTILITY(562037788,"SGF",194,0)
  1.  ;;HL SSN NUMBER - PATIENT^STRING^16
  1.  ;;^UTILITY(562037788,"SGF",194,"C")
  1.  ;;#.09
  1.  ;;^UTILITY(562037788,"SGF",195,0)
  1.  ;;HL DRIVER'S LIC NUM^COMPOSITE^25
  1.  ;;^UTILITY(562037788,"SGF",196,0)
  1.  ;;HL SET ID - PATIENT ID^SET ID^4
  1.  ;;^UTILITY(562037788,"SGF",196,"C")
  1.  ;;"PID"
  1.  ;;^UTILITY(562037788,"SGF",201,0)
  1.  ;;HL FIELD SEPARATOR^STRING^1
  1.  ;;^UTILITY(562037788,"SGF",202,0)
  1.  ;;HL ENCODING CHARACTERS^STRING^4
  1.  ;;^UTILITY(562037788,"SGF",203,0)
  1.  ;;HL SENDING APPLICATIONS^STRING^15
  1.  ;;^UTILITY(562037788,"SGF",204,0)
  1.  ;;HL SENDING FACILITY^STRING^20
  1.  ;;^UTILITY(562037788,"SGF",205,0)
  1.  ;;HL RECEIVING APPLICATIO^STRING^15
  1.  ;;^UTILITY(562037788,"SGF",206,0)
  1.  ;;HL RECEIVING FACILITY^STRING^30
  1.  ;;^UTILITY(562037788,"SGF",207,0)
  1.  ;;HL DATE/TIME OF MESSAGE^TIME STAMP^19
  1.  Q