Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^INRHS

Package: IHS Generic Interface System

Global: ^INRHS


Information

FileMan FileNo FileMan Filename Package
4006 INTERFACE SCRIPT IHS Generic Interface System

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
IHS Generic Interface System 17 INHF    INHI    INHMG1    INHMGD11    INHPCO1    INHSC    INHSGZ    INHSZ
INHSZ0    INHSZ1    INHUSEN2    INHUSEN3    INHUSEN8    INHUTC51    INTSTF    INTSUSN
INXHR08    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IHS Generic Interface System 3 INHSC    INHSGZ    INHSZ    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Generic Interface System 2 INTERFACE TRANSACTION TYPE(#4000)[.03]    SCRIPT GENERATOR MESSAGE(#4011)[100, 101]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
VA Fileman 1 FILE(#1)[.03]    

Fields, Total: 10

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X[".") X
  • LAST EDITED:  JAN 14, 1991
  • HELP-PROMPT:  Type a whole number between 1 and 9999
  • DESCRIPTION:  
    This is the number uniquely indentifying the script.
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E)!'$$ISNS^INHUT2(X) X I $D(X),$D(^INRHS("B",$E(X,1,60))) K X
  • LAST EDITED:  JUL 26, 1994
  • HELP-PROMPT:  Answer must be 3-60 characters in length and properly name-spaced
  • DESCRIPTION:  
    This is the name of the script.  GIS generated scripts are prefixed with "Generated: ".
  • EXECUTABLE HELP:  D:$D(DW)>1 MSG^INHUT2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  4006^B
    1)= S ^INRHS("B",$E(X,1,60),DA)=""
    2)= K ^INRHS("B",$E(X,1,60),DA)
.02 DIRECTION 0;2 SET
************************REQUIRED FIELD************************
  • 'I' FOR INPUT;
  • 'O' FOR OUTPUT;

  • LAST EDITED:  APR 11, 1991
  • DESCRIPTION:  This is the direction of data flow that this script is to process. INPUT refers to data entering the local database from the Universal Interface FIle (UIF). OUTPUT refers to data being formatted from the local database
    to be placed in the UIF for transmission to a remote host.
.03 FILE 0;3 POINTER TO FILE FILE (#1)
************************REQUIRED FIELD************************
FILE(#1)

  • LAST EDITED:  APR 15, 1991
  • DESCRIPTION:  
    This is the root file upon which this script is based.  It is necessary to allow specification of fields, computed expressions, etc. in the script.
.04 INCLUDE ONLY 0;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 03, 1991
  • DESCRIPTION:  
    This field indicates whether this is a full script or not.  If a script is INCLUDE ONLY, then it will not be compiled on its own nor will it require a file or direction.
.05 UNEDITABLE 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 08, 1991
  • DESCRIPTION:  
    If this field is set to a 1 this script was automatically generated and cannot be edited using the script editor.  If must be regenerated.
    UNEDITABLE
.06 NUMBER OF COMPILED ROUTINES 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X[".") X
  • LAST EDITED:  AUG 10, 1992
  • HELP-PROMPT:  Type a whole number between 1 and 999
  • DESCRIPTION:  
    This the number of routines that were created in order to compile this script.
    WRITE AUTHORITY:  ^
.07 STANDARD 0;7 SET
************************REQUIRED FIELD************************
  • 'HL7' FOR HL7;
  • 'NCPDP' FOR NCPDP;
  • 'X12' FOR X12;
  • 'ADSI' FOR ADSI;
  • 'HTML' FOR HTML;
  • 'XML' FOR XML;

  • LAST EDITED:  JUN 07, 1999
  • HELP-PROMPT:  Enter the protocol standard that this interface is based on (e.g. HL7.)
  • DESCRIPTION:  
    The STANDARDS set of codes represents the protocol standard that will be used by the Generic Interface System to properly format or parse messages.
1 ROUTINE COMPUTED

  • MUMPS CODE:  X ^DD(4006,1,9.2) S X=$E(DIO(4006,1,2),DIO(4006,1,3),X) S Y=X,X=DIO(4006,1,1),X=X_Y
    9.2 = S X="IS",DIO(4006,1,1)=$G(X) S X=$S($G(D0)'>0:"",1:D0)+100000,DIO(4006,1,2)=$G(X) S X=2,DIO(4006,1,3)=$G(X) S X=6
  • ALGORITHM:  "IS"_$E(NUMBER+100000,2,6)
  • LAST EDITED:  FEB 10, 1992
  • DESCRIPTION:  
    This is the primary compiled routine that is called in order to run this script.
2 SCRIPT TEXT 1;0 WORD-PROCESSING #4006.01

  • DESCRIPTION:  
    This is the text of the script.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All