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

ACHSAB.m

Go to the documentation of this file.
  1. ACHSAB ; IHS/ITSC/PMF - BLANKET DOCUMENTS HEADER/DRIVER ; [ 10/16/2001 8:16 AM ]
  1. ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
  1. ;
  1. A1 ;
  1. D VIDEO^ACHS,NOBLK
  1. S ACHSBLKF="",ACHSACWK=ACHSFYWK(DUZ(2),ACHSCFY)
  1. ;
  1. ;
  1. I $P($G(^ACHS(9,DUZ(2),"FY",ACHSCFY,"W",ACHSACWK,0)),U,2)=DT W !!,*7," The Register Has Been CLOSED." S %=$$DIR^XBDIR("E") D END Q
  1. ;
  1. S (ACHSTYP,ACHSPROV,ACHSCONP,ACHSCAN,ACHSSCC,ACHSCOPT,ACHSESDA,ACHSESDO,ACHSFDT,ACHSTDT,ACHSHON,ACHSHONN,ACHSORDN,ACHSBLT,ACHSDES,ACHSSVDT,ACHSWKLD,ACHSDEST,ACHSDCR,ACHSRMPC,ACHSEDOS)=""
  1. K DFN
  1. ;
  1. D ^ACHSA ;ENTER DOCUMENTS (1/8)-(FY,TOS)
  1. ;
  1. I '$D(DUOUT),'$D(DTOUT) G A1
  1. END ;
  1. K ACHSCAN,ACHSPROV,ACHSCONP,ACHSSCC,ACHSCOPT,ACHSESDA,ACHSESDO,ACHSFDT,ACHSTDT,ACHSHON,ACHSHONN,ACHSORDN,ACHSBLKF,ACHSSVDT,ACHSWKLD,ACHSDEST,ACHSDES,ACHSDCR,DUOUT
  1. Q
  1. ;
  1. NOBLK ;EP - No blankets for ObjCode msg.
  1. W !!!?18,"Blankets may "
  1. W $G(IORVON)
  1. W "NOT"
  1. W $G(IORVOFF)
  1. W " be issued for Object Codes:",!!?25,"252G, 252R, 254B, or 254P",!!
  1. Q
  1. ;