PRYKPST.m

PRYKPST ;ALB/CMR - POST INIT TO POPULATE PKG FILE  ;7/10/97

 ;;4.5;Accounts Receivable;**84**;Mar 20, 1995

UPDAT ; -- update package file for install of AR patch PRCA*4.5*84

 N PKG,VER,PATCH

 ; -- find ien of AR in PACKAGE file

 S PKG=$O(^DIC(9.4,"B","ACCOUNTS RECEIVABLE",0)) Q:'PKG

 S VER="4.5" ;version

 S PATCH="84^"_DT_"^"_DUZ ;patch #^today^installed by

 ;

 D BMES^XPDUTL(" >>Updating Patch Application History for AR with PRCA*4.5*84")

 S PATCH=$$PKGPAT^XPDIP(PKG,VER,.PATCH)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRYKPST   498     printed  Dec 13, 2024@01:42:13                                                                                                                                                                                                      Page 2

PRYKPST   ;ALB/CMR - POST INIT TO POPULATE PKG FILE  ;7/10/97

 +1       ;;4.5;Accounts Receivable;**84**;Mar 20, 1995

UPDAT     ; -- update package file for install of AR patch PRCA*4.5*84

 +1        NEW PKG,VER,PATCH

 +2       ; -- find ien of AR in PACKAGE file

 +3        SET PKG=$ORDER(^DIC(9.4,"B","ACCOUNTS RECEIVABLE",0))

           if 'PKG

               QUIT 

 +4       ;version

           SET VER="4.5"

 +5       ;patch #^today^installed by

           SET PATCH="84^"_DT_"^"_DUZ

 +6       ;

 +7        DO BMES^XPDUTL(" >>Updating Patch Application History for AR with PRCA*4.5*84")

 +8        SET PATCH=$$PKGPAT^XPDIP(PKG,VER,.PATCH)

 +9        QUIT