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

VBECDCST.m

Go to the documentation of this file. 
  1. VBECDCST ;hoifo/gjc-print data from VBECS STANDARD TABLE DATA (#6007);Nov 21, 2002
  1.  ;;2.0;VBEC;;Jun 05, 2015;Build 4
  1.  ;
  1.  ;Medical Device #:
  1.  ;Note: The food and Drug Administration classifies this software as a
  1.  ;medical device.  As such, it may not be changed in any way.
  1.  ;Modifications to this software may result in an adulterated medical
  1.  ;device under 21CFR820, the use of which is considered to be a
  1.  ;violation of US Federal Statutes.  Acquiring and implementing this
  1.  ;software through the Freedom of Information Act requires the
  1.  ;implementer to assume total responsibility for the software, and
  1.  ;become a registered manufacturer of a medical device, subject to FDA
  1.  ;regulations.
  1.  ;
  1.  ;Call to $$NEWERR^%ZTER is supported by IA: 1621
  1.  ;Call to EN1^DIP is supported by IA: 10010
  1.  ;Call to ^DIR is supported by IA: 10026
  1.  ;Execution of ^%ZOSF("TEST") is supported by IA: 10096
  1.  ;
  1. EN ; entry point for standard table data report
  1.  ;
  1.  I $S($D(DUZ)[0:1,$D(DUZ(0))[0:1,'DUZ:1,DUZ=.5:1,1:0) W !!?3,$C(7),"DUZ & DUZ(0) must be defined to an active user (not POSTMASTER) in order to",!?3,"proceed." Q
  1.  ;
  1.  ; initialize the error trap
  1.  I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^VBECDCU1"
  1.  E  S X="D ERR^VBECDCU1",@^%ZOSF("TRAP")
  1.  ;
  1.  ; check to see that data exists in the VBECS STANDARD TABLE DATA FILE
  1.  ; (#6007).
  1.  I '+$O(^VBEC(6007,0)) D  Q
  1.  .W !!?3,"There is no data in the VBECS STANDARD TABLE DATA FILE (#6007)",!,"to be printed.",$C(7)
  1.  .Q
  1.  ;
  1.  S VBECXIT=0 F  D  Q:VBECXIT
  1.  .; enter the FROM range for the attribute name
  1.  .S DIR(0)="FAO^1:175^K:X'?1AN.ANP X",DIR("A")="Start With Attribute Name: "
  1.  .S DIR("?",1)="  To sort in sequence, starting with a particular Attribute Name, enter that"
  1.  .S DIR("?",2)="  Attribute Name.  Some displays might take a while due to the number of"
  1.  .S DIR("?")="  records in the file."
  1.  .D ^DIR S:$D(DTOUT)!$D(DUOUT) VBECXIT=-1 Q:VBECXIT
  1.  .S VBECFR=Y K DIR,DIRUT,DTOUT,DUOUT,X,Y
  1.  .; enter the TO range for the attribute name
  1.  .S DIR(0)="FAO^1:175^K:X'?1AN.ANP X",DIR("A")="Go To Attribute Name: "
  1.  .S DIR("?",1)="  To sort in sequence, up to a particular Attribute Name, enter that"
  1.  .S DIR("?",2)="  Attribute Name.  Some displays might take a while due to the number"
  1.  .S DIR("?")="  of records in the file."
  1.  .D ^DIR S:$D(DTOUT)!$D(DUOUT) VBECXIT=-1 Q:VBECXIT
  1.  .S VBECTO=Y K DIR,DIRUT,DTOUT,DUOUT,X,Y
  1.  .I $L(VBECFR),$L(VBECTO),(VBECFR]VBECTO) W !!,"'Go To' value must follow the 'Start With' value.",!
  1.  .ELSE  S VBECXIT=1
  1.  .Q
  1.  I VBECXIT=-1 D XIT QUIT
  1.  I VBECFILE=61.3 D GO613
  1.  I VBECFILE=65.4 D GO654
  1.  Q
  1.  ;
  1. GO613 ; entry point for antigen/antibody report
  1.  S L=0,DIC="^VBEC(6007,"
  1.  S FLDS=".01;C1;L28;""Name"",.04;C30;""Antibody/Antigen"",.02;C50;""SNOMED"""
  1.  S BY=".11,.01",FR="61.3,"_VBECFR,TO="61.3,"_VBECTO D EN1^DIP
  1.  D XIT
  1.  Q
  1.  ;
  1. GO654 ; entry point for transfusion reaction report
  1.  S L=0,DIC="^VBEC(6007,"
  1.  S FLDS=".01;C1;""Transfusion Reaction"""
  1.  S BY=".11,.01",FR="65.4,"_VBECFR,TO="65.4,"_VBECTO D EN1^DIP
  1.  D XIT
  1.  Q
  1.  ;
  1. XIT ; clean up symbol table, exit
  1.  K BY,D0,DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,DIWF,FR,L,POP,TO,VBECFR,VBECTO,VBECXIT,X,Y
  1.  Q
  1.  ;