- 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 ---[H[J[2J[HPRYKPST 498 printed Feb 18, 2025@23:08:37 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