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

A1VSP1PS.m

Go to the documentation of this file.
  1. A1VSP1PS ;Albany FO/GTS - VistA Package Sizing Manager (Initial release P1 Post-Install; 24-JUN-2016
  1. ;;1.0;VistA Package Sizing;;Oct 25, 2016;Build 25
  1. ;
  1. ENPOST ; -- main entry point for A1VS*1*1 post-init
  1. NEW A1VSSTAT
  1. SET A1VSSTAT=$$ADDPTPLT()
  1. IF +A1VSSTAT'=2 DO BMES^XPDUTL(" o 'A1VS PKG MGT PARAMETERS' addition to PARAMETER TEMPLATE file (#8989.52) "_$SELECT(+A1VSSTAT:"succeeded.",1:"failed."))
  1. IF +A1VSSTAT<1 DO MES^XPDUTL(" Error: "_$P(A1VSSTAT,"^",2))
  1. IF +A1VSSTAT=2 DO
  1. . DO BMES^XPDUTL(" o "_$P(A1VSSTAT,"^",2))
  1. . DO BMES^XPDUTL(" ...no need to add '"_$$TEMPNAME_"' to file #8989.52.")
  1. QUIT
  1. ;
  1. ; -- Add A1VS PKG MGT PARAMETERS to file 8989.52
  1. ADDPTPLT() ;* Create Parameter Template entry - ;;GTS - TO DO: If released nationally under non-Kernel namespace, Check for ICRs
  1. NEW RESULT,DA,DIE,DIC,DR,Y,X,ERR,A1VSDA0,A1VSDA1
  1. SET RESULT="1^SUCCESS"
  1. SET DA=$$FIND1^DIC(8989.52,"","BX",$$TEMPNAME,"","","ERR")
  1. IF +DA>0 SET RESULT="2^'"_$$TEMPNAME_"' Parameter Template entry exists."
  1. ;
  1. ; Add A1VS PKG MGT PARAMETERS Parameter Template
  1. IF +DA'>0 DO
  1. . KILL DO
  1. . SET DIC="^XTV(8989.52,",DIC(0)="LU" ;Do not execute Input Transforms on .01 field
  1. . SET X=$$TEMPNAME()
  1. . DO FILE^DICN
  1. . SET A1VSDA1=+Y
  1. . IF +A1VSDA1'>0 SET RESULT="0^PARAMETER TEMPLATE file entry failure!"
  1. . IF +A1VSDA1>0 DO
  1. . . NEW DA,Y,X
  1. . . SET DA(1)=A1VSDA1
  1. . . SET DIC=DIC_DA(1)_",10,",DIC(0)="L" ;Add entry to Parameters multiple
  1. . . SET X=1
  1. . . DO ^DIC
  1. . . SET A1VSDA0=+Y
  1. . . IF +A1VSDA0'>0 SET RESULT="0^PARAMETER TEMPLATE Parameters Sub-file entry failure!"
  1. . . IF A1VSDA0>0 DO
  1. . . . NEW DA,DR,Y,X,DIE
  1. . . . ; Add values to PARAMETERS Multiple (#10)
  1. . . . SET DA=A1VSDA0
  1. . . . SET DA(1)=A1VSDA1
  1. . . . SET DIE="^XTV(8989.52,"_DA(1)_",10,"
  1. . . . KILL DIC
  1. . . . SET DR=".02///"_$$PARAMVAL()
  1. . . . D ^DIE
  1. . . SET DA=A1VSDA1
  1. . . SET DIE="^XTV(8989.52,"
  1. . . SET DR=".02///"_$$DISPTEXT()_";.03///"_$$USEENTYF()
  1. . . DO ^DIE
  1. ;
  1. QUIT RESULT
  1. ;
  1. ; -- Parameter Template definition APIs
  1. TEMPNAME() ; -- return Parameter Template name (fld #.01)
  1. QUIT "A1VS PKG MGT PARAMETERS"
  1. ;
  1. DISPTEXT() ; -- return display text (fld #.02)
  1. QUIT "Package Size Parameter Edit"
  1. ;
  1. USEENTYF() ; -- return entity for which parameters are entered (fld #.03)
  1. QUIT "DOMAIN"
  1. ;
  1. PARAMVAL() ; -- return Parameter (Parameters multiple fld #.02)
  1. QUIT "A1VS PACKAGE MGR DEFAULT DIR"