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

PXPTPOST.m

Go to the documentation of this file.
  1. PXPTPOST ;ISL/MKB,DLT,dee - Patient/IHS install post-init ;8/10/96
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
  1. ;;1.0;PCE Patient/IHS Subset;;Nov 01, 1994
  1. EN ; entry point (not used)
  1. D LOC,MASTER,QUE
  1. Q
  1. ;
  1. LOC ;Populate LOCATION file (#9999999.06)
  1. D LOC^PXPT
  1. Q
  1. ;
  1. MASTER ;Populate the PXPT fields $501 & #502 in PCE PARAMETERS file (#815)
  1. D MASTER^PXPT
  1. ;
  1. D BMES^XPDUTL("Now remove the old PCC MASTER CONTROL file (#9001000)")
  1. N DIU
  1. S DIU=9001000
  1. S DIU(0)="DT"
  1. D EN^DIU2
  1. Q
  1. ;
  1. QUE ; Queue job to populate IHS Patient File #9000001
  1. D QUE^PXPT
  1. Q
  1. ;
  1. ;
  1. GETLOC D GETLOC^PXPT
  1. Q
  1. ;