A1VSP1PS.m

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 ---A1VSP1PS   2441     printed  Apr 09, 2024@20:43:49                                                                                                                                                                                                    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"