- A1VSP1PS ;Albany FO/GTS - VistA Package Sizing Manager (Initial release P1 Post-Install; 24-JUN-2016
- ;;1.0;VistA Package Sizing;;Oct 25, 2016;Build 25
- ;
- ENPOST ; -- main entry point for A1VS*1*1 post-init
- NEW A1VSSTAT
- SET A1VSSTAT=$$ADDPTPLT()
- IF +A1VSSTAT'=2 DO BMES^XPDUTL(" o 'A1VS PKG MGT PARAMETERS' addition to PARAMETER TEMPLATE file (#8989.52) "_$SELECT(+A1VSSTAT:"succeeded.",1:"failed."))
- IF +A1VSSTAT<1 DO MES^XPDUTL(" Error: "_$P(A1VSSTAT,"^",2))
- IF +A1VSSTAT=2 DO
- . DO BMES^XPDUTL(" o "_$P(A1VSSTAT,"^",2))
- . DO BMES^XPDUTL(" ...no need to add '"_$$TEMPNAME_"' to file #8989.52.")
- QUIT
- ;
- ; -- Add A1VS PKG MGT PARAMETERS to file 8989.52
- ADDPTPLT() ;* Create Parameter Template entry - ;;GTS - TO DO: If released nationally under non-Kernel namespace, Check for ICRs
- NEW RESULT,DA,DIE,DIC,DR,Y,X,ERR,A1VSDA0,A1VSDA1
- SET RESULT="1^SUCCESS"
- SET DA=$$FIND1^DIC(8989.52,"","BX",$$TEMPNAME,"","","ERR")
- IF +DA>0 SET RESULT="2^'"_$$TEMPNAME_"' Parameter Template entry exists."
- ;
- ; Add A1VS PKG MGT PARAMETERS Parameter Template
- IF +DA'>0 DO
- . KILL DO
- . SET DIC="^XTV(8989.52,",DIC(0)="LU" ;Do not execute Input Transforms on .01 field
- . SET X=$$TEMPNAME()
- . DO FILE^DICN
- . SET A1VSDA1=+Y
- . IF +A1VSDA1'>0 SET RESULT="0^PARAMETER TEMPLATE file entry failure!"
- . IF +A1VSDA1>0 DO
- . . NEW DA,Y,X
- . . SET DA(1)=A1VSDA1
- . . SET DIC=DIC_DA(1)_",10,",DIC(0)="L" ;Add entry to Parameters multiple
- . . SET X=1
- . . DO ^DIC
- . . SET A1VSDA0=+Y
- . . IF +A1VSDA0'>0 SET RESULT="0^PARAMETER TEMPLATE Parameters Sub-file entry failure!"
- . . IF A1VSDA0>0 DO
- . . . NEW DA,DR,Y,X,DIE
- . . . ; Add values to PARAMETERS Multiple (#10)
- . . . SET DA=A1VSDA0
- . . . SET DA(1)=A1VSDA1
- . . . SET DIE="^XTV(8989.52,"_DA(1)_",10,"
- . . . KILL DIC
- . . . SET DR=".02///"_$$PARAMVAL()
- . . . D ^DIE
- . . SET DA=A1VSDA1
- . . SET DIE="^XTV(8989.52,"
- . . SET DR=".02///"_$$DISPTEXT()_";.03///"_$$USEENTYF()
- . . DO ^DIE
- ;
- QUIT RESULT
- ;
- ; -- Parameter Template definition APIs
- TEMPNAME() ; -- return Parameter Template name (fld #.01)
- QUIT "A1VS PKG MGT PARAMETERS"
- ;
- DISPTEXT() ; -- return display text (fld #.02)
- QUIT "Package Size Parameter Edit"
- ;
- USEENTYF() ; -- return entity for which parameters are entered (fld #.03)
- QUIT "DOMAIN"
- ;
- PARAMVAL() ; -- return Parameter (Parameters multiple fld #.02)
- QUIT "A1VS PACKAGE MGR DEFAULT DIR"
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HA1VSP1PS 2441 printed Feb 18, 2025@23:05:12 Page 2
- 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
- +2 ;
- ENPOST ; -- main entry point for A1VS*1*1 post-init
- +1 NEW A1VSSTAT
- +2 SET A1VSSTAT=$$ADDPTPLT()
- +3 IF +A1VSSTAT'=2
- DO BMES^XPDUTL(" o 'A1VS PKG MGT PARAMETERS' addition to PARAMETER TEMPLATE file (#8989.52) "_$SELECT(+A1VSSTAT:"succeeded.",1:"failed."))
- +4 IF +A1VSSTAT<1
- DO MES^XPDUTL(" Error: "_$PIECE(A1VSSTAT,"^",2))
- +5 IF +A1VSSTAT=2
- Begin DoDot:1
- +6 DO BMES^XPDUTL(" o "_$PIECE(A1VSSTAT,"^",2))
- +7 DO BMES^XPDUTL(" ...no need to add '"_$$TEMPNAME_"' to file #8989.52.")
- End DoDot:1
- +8 QUIT
- +9 ;
- +10 ; -- Add A1VS PKG MGT PARAMETERS to file 8989.52
- 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
- +2 SET RESULT="1^SUCCESS"
- +3 SET DA=$$FIND1^DIC(8989.52,"","BX",$$TEMPNAME,"","","ERR")
- +4 IF +DA>0
- SET RESULT="2^'"_$$TEMPNAME_"' Parameter Template entry exists."
- +5 ;
- +6 ; Add A1VS PKG MGT PARAMETERS Parameter Template
- +7 IF +DA'>0
- Begin DoDot:1
- +8 KILL DO
- +9 ;Do not execute Input Transforms on .01 field
- SET DIC="^XTV(8989.52,"
- SET DIC(0)="LU"
- +10 SET X=$$TEMPNAME()
- +11 DO FILE^DICN
- +12 SET A1VSDA1=+Y
- +13 IF +A1VSDA1'>0
- SET RESULT="0^PARAMETER TEMPLATE file entry failure!"
- +14 IF +A1VSDA1>0
- Begin DoDot:2
- +15 NEW DA,Y,X
- +16 SET DA(1)=A1VSDA1
- +17 ;Add entry to Parameters multiple
- SET DIC=DIC_DA(1)_",10,"
- SET DIC(0)="L"
- +18 SET X=1
- +19 DO ^DIC
- +20 SET A1VSDA0=+Y
- +21 IF +A1VSDA0'>0
- SET RESULT="0^PARAMETER TEMPLATE Parameters Sub-file entry failure!"
- +22 IF A1VSDA0>0
- Begin DoDot:3
- +23 NEW DA,DR,Y,X,DIE
- +24 ; Add values to PARAMETERS Multiple (#10)
- +25 SET DA=A1VSDA0
- +26 SET DA(1)=A1VSDA1
- +27 SET DIE="^XTV(8989.52,"_DA(1)_",10,"
- +28 KILL DIC
- +29 SET DR=".02///"_$$PARAMVAL()
- +30 DO ^DIE
- End DoDot:3
- +31 SET DA=A1VSDA1
- +32 SET DIE="^XTV(8989.52,"
- +33 SET DR=".02///"_$$DISPTEXT()_";.03///"_$$USEENTYF()
- +34 DO ^DIE
- End DoDot:2
- End DoDot:1
- +35 ;
- +36 QUIT RESULT
- +37 ;
- +38 ; -- Parameter Template definition APIs
- TEMPNAME() ; -- return Parameter Template name (fld #.01)
- +1 QUIT "A1VS PKG MGT PARAMETERS"
- +2 ;
- DISPTEXT() ; -- return display text (fld #.02)
- +1 QUIT "Package Size Parameter Edit"
- +2 ;
- USEENTYF() ; -- return entity for which parameters are entered (fld #.03)
- +1 QUIT "DOMAIN"
- +2 ;
- PARAMVAL() ; -- return Parameter (Parameters multiple fld #.02)
- +1 QUIT "A1VS PACKAGE MGR DEFAULT DIR"