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

IBDEI0BL.m

Go to the documentation of this file.
  1. IBDEI0BL ; ; 01-AUG-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1. Q:'DIFQ(358.6) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^DIC(358.6,0,"GL")
  1. ;;=^IBE(358.6,
  1. ;;^DIC("B","IMP/EXP PACKAGE INTERFACE",358.6)
  1. ;;=
  1. ;;^DIC(358.6,"%D",0)
  1. ;;=^^1^1^2950927^^^^
  1. ;;^DIC(358.6,"%D",1,0)
  1. ;;=This file is used as a workspace by the import/export utility.
  1. ;;^DIC(358.6,"%D",2,0)
  1. ;;=Import/Export Utility as a temporary staging area for data from that file
  1. ;;^DIC(358.6,"%D",3,0)
  1. ;;=that is being imported or exported.
  1. ;;^DIC(358.6,"%D",4,0)
  1. ;;=
  1. ;;^DIC(358.6,"%D",5,0)
  1. ;;=This file contains a description of all of the interfaces with other packages.
  1. ;;^DIC(358.6,"%D",6,0)
  1. ;;=The form will invoke the proper interface routines by doing a lookup on
  1. ;;^DIC(358.6,"%D",7,0)
  1. ;;=this file and then invoking the routine by indirection. The INPUT VARIABLE
  1. ;;^DIC(358.6,"%D",8,0)
  1. ;;=fields are for documentation purposes and to verify that the proper
  1. ;;^DIC(358.6,"%D",9,0)
  1. ;;=variables are defined. Data will be exchanged between the encounter form
  1. ;;^DIC(358.6,"%D",10,0)
  1. ;;=utilities and other packages by putting the data in a predefined location.
  1. ;;^DIC(358.6,"%D",11,0)
  1. ;;=The first part of the subscript is always be ^TMP("IB",$J,"INTERFACES".
  1. ;;^DIC(358.6,"%D",12,0)
  1. ;;=For output routines, but not selection routines, the fourth subscript is
  1. ;;^DIC(358.6,"%D",13,0)
  1. ;;=be the patient DFN. The next subscript is the name of the Package
  1. ;;^DIC(358.6,"%D",14,0)
  1. ;;=Interface. For single valued data and record valued data there is no
  1. ;;^DIC(358.6,"%D",15,0)
  1. ;;=additional subscript. For interfaces returning a list there is one
  1. ;;^DIC(358.6,"%D",16,0)
  1. ;;=additional subscript level, the number of the item on the list. For
  1. ;;^DIC(358.6,"%D",17,0)
  1. ;;=word processing type data the data will be in FM word-processing format,
  1. ;;^DIC(358.6,"%D",18,0)
  1. ;;=i.e., the final subscripts will be ...1,0),...2,0),...3,0), etc.
  1. ;;^DIC(358.6,"%D",19,0)
  1. ;;=these items of data can have its own entry in the Package Interface file,
  1. ;;^DIC(358.6,"%D",20,0)
  1. ;;=but by using the same entry point there is a savings because all of the
  1. ;;^DIC(358.6,"%D",21,0)
  1. ;;=data on that node can be obtained at once. The routines that invoke the
  1. ;;^DIC(358.6,"%D",22,0)
  1. ;;=entry point keep track of the entry points already invoked so they are
  1. ;;^DIC(358.6,"%D",23,0)
  1. ;;=not repeated.
  1. ;;^DD(358.6,0)
  1. ;;=FIELD^^21^76
  1. ;;^DD(358.6,0,"DDA")
  1. ;;=N
  1. ;;^DD(358.6,0,"DT")
  1. ;;=3000124
  1. ;;^DD(358.6,0,"ID",.06)
  1. ;;=W ""
  1. ;;^DD(358.6,0,"ID","WRITE")
  1. ;;=N IBDWNAM S IBDWNAM=$E($P(^(0),U),1,40) D EN^DDIOL(IBDWNAM,"","!?0")
  1. ;;^DD(358.6,0,"ID","WRITE1")
  1. ;;=N IBDWTYPE S IBDWTYPE=$S($P(^(0),"^",6)=1:"INPUT",$P(^(0),"^",6)=2:"OUTPUT",$P(^(0),"^",6)=3:"SELECTION",1:"REPORT")_$S($P(^(0),U,6)=3&'$P(^(0),"^",13):" ** NOT SCANNABLE **",1:"") D EN^DDIOL("TYPE="_IBDWTYPE,"","?45")
  1. ;;^DD(358.6,0,"IX","B",358.6,.01)
  1. ;;=
  1. ;;^DD(358.6,0,"IX","C",358.6,.04)
  1. ;;=
  1. ;;^DD(358.6,0,"IX","D",358.6,3)
  1. ;;=
  1. ;;^DD(358.6,0,"IX","E",358.6,.01)
  1. ;;=
  1. ;;^DD(358.6,0,"NM","IMP/EXP PACKAGE INTERFACE")
  1. ;;=
  1. ;;^DD(358.6,0,"PT",358.2,.11)
  1. ;;=
  1. ;;^DD(358.6,0,"PT",358.5,.03)
  1. ;;=
  1. ;;^DD(358.6,0,"PT",358.6,.13)
  1. ;;=
  1. ;;^DD(358.6,0,"PT",358.93,.06)
  1. ;;=
  1. ;;^DD(358.6,0,"VRPK")
  1. ;;=IBD
  1. ;;^DD(358.6,.01,0)
  1. ;;=NAME^RF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
  1. ;;^DD(358.6,.01,1,0)
  1. ;;=^.1
  1. ;;^DD(358.6,.01,1,1,0)
  1. ;;=358.6^B
  1. ;;^DD(358.6,.01,1,1,1)
  1. ;;=S ^IBE(358.6,"B",$E(X,1,30),DA)=""
  1. ;;^DD(358.6,.01,1,1,2)
  1. ;;=K ^IBE(358.6,"B",$E(X,1,30),DA)
  1. ;;^DD(358.6,.01,1,2,0)
  1. ;;=358.6^E^MUMPS
  1. ;;^DD(358.6,.01,1,2,1)
  1. ;;=S ^IBE(358.6,"E",$E(X,$F(X," "),40),DA)=""
  1. ;;^DD(358.6,.01,1,2,2)
  1. ;;=K ^IBE(358.6,"E",$E(X,$F(X," "),40),DA)
  1. ;;^DD(358.6,.01,1,2,"%D",0)
  1. ;;=^^4^4^2940224^
  1. ;;^DD(358.6,.01,1,2,"%D",1,0)
  1. ;;=
  1. ;;^DD(358.6,.01,1,2,"%D",2,0)
  1. ;;=For package interfaces that are output routines the name has the custodial
  1. ;;^DD(358.6,.01,1,2,"%D",3,0)
  1. ;;=package's name space as a prefix. This cross-reference removes that
  1. ;;^DD(358.6,.01,1,2,"%D",4,0)
  1. ;;=prefix. It is used to improve the display of output routines for the user.
  1. ;;^DD(358.6,.01,1,2,"DT")
  1. ;;=2930409
  1. ;;^DD(358.6,.01,3)
  1. ;;=Answer must be 3-40 characters in length. All entries with Action Type other than PRINT REPORT must be be prefixed with the namespace of the package that is responsible for the data.
  1. ;;^DD(358.6,.01,21,0)
  1. ;;=^^3^3^2950412^^^^
  1. ;;^DD(358.6,.01,21,1,0)
  1. ;;=
  1. ;;^DD(358.6,.01,21,2,0)
  1. ;;=The name of the Package Interface. For interfaces returning data the name
  1. ;;^DD(358.6,.01,21,3,0)
  1. ;;=should be preceded with the namespace of the package.
  1. ;;^DD(358.6,.01,23,0)
  1. ;;=^^1^1^2950412^
  1. ;;^DD(358.6,.01,23,1,0)
  1. ;;=
  1. ;;^DD(358.6,.01,"DT")
  1. ;;=2930409