- PRCN11PO ;WISC/CW-post init patch 11 ;08-Nov-02
- ;;1.0;Equipment/Turn-In Request;**11**;Sep 13, 1996
- Q
- POST ;start post init
- ;add line item count to file 410 if record contains line items
- ;
- N U,PRCNUM,PRCNIMP,PRCNLIC,PRCNFND,PRCNDA1,PRCNDA2
- D BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
- D MES^XPDUTL(" -> Adding LINE ITEM COUNT to file 410 ...")
- ;
- S U="^",(PRCNDA1,PRCNFND,PRCNUM)=0
- F S PRCNDA1=$O(^PRCN(413,PRCNDA1)) Q:'PRCNDA1 D
- . S PRCNIMP=$P($G(^PRCN(413,PRCNDA1,0)),U,7)
- . ;request status in file 413.5 ;19-Approved-Funded
- . ;39-Ready for 2237 Processing ;18-Approved-Pending Funding
- . I (PRCNIMP'=39),(PRCNIMP'=18),(PRCNIMP'=19) Q
- . S PRCNIMP=$P(^PRCN(413,PRCNDA1,0),U)
- . S PRCNDA2=$O(^PRCS(410,"H",PRCNIMP,""))
- . Q:PRCNDA2=""
- . Q:'$D(^PRCS(410,PRCNDA2,"IT",1))
- . Q:'$D(^PRCS(410,PRCNDA2,10))
- . Q:$P(^PRCS(410,PRCNDA2,10),U)
- . S PRCNFND=1
- . S PRCNLIC=$O(^PRCS(410,PRCNDA2,"IT",99),-1),PRCNUM=PRCNUM+1
- . S ^PRCS(410,PRCNDA2,10)=PRCNLIC_U_$P(^PRCS(410,PRCNDA2,10),U,2,99)
- . W !!,PRCNUM_". "_"LINE ITEM COUNT "_PRCNLIC_" has been added to the entry record "_PRCNDA2_".",!
- ;
- I 'PRCNFND D MES^XPDUTL(" No records need to be updated!")
- D MES^XPDUTL(" >> End of the Post-Initialization routine ...")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCN11PO 1299 printed Feb 18, 2025@23:20:32 Page 2
- PRCN11PO ;WISC/CW-post init patch 11 ;08-Nov-02
- +1 ;;1.0;Equipment/Turn-In Request;**11**;Sep 13, 1996
- +2 QUIT
- POST ;start post init
- +1 ;add line item count to file 410 if record contains line items
- +2 ;
- +3 NEW U,PRCNUM,PRCNIMP,PRCNLIC,PRCNFND,PRCNDA1,PRCNDA2
- +4 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
- +5 DO MES^XPDUTL(" -> Adding LINE ITEM COUNT to file 410 ...")
- +6 ;
- +7 SET U="^"
- SET (PRCNDA1,PRCNFND,PRCNUM)=0
- +8 FOR
- SET PRCNDA1=$ORDER(^PRCN(413,PRCNDA1))
- if 'PRCNDA1
- QUIT
- Begin DoDot:1
- +9 SET PRCNIMP=$PIECE($GET(^PRCN(413,PRCNDA1,0)),U,7)
- +10 ;request status in file 413.5 ;19-Approved-Funded
- +11 ;39-Ready for 2237 Processing ;18-Approved-Pending Funding
- +12 IF (PRCNIMP'=39)
- IF (PRCNIMP'=18)
- IF (PRCNIMP'=19)
- QUIT
- +13 SET PRCNIMP=$PIECE(^PRCN(413,PRCNDA1,0),U)
- +14 SET PRCNDA2=$ORDER(^PRCS(410,"H",PRCNIMP,""))
- +15 if PRCNDA2=""
- QUIT
- +16 if '$DATA(^PRCS(410,PRCNDA2,"IT",1))
- QUIT
- +17 if '$DATA(^PRCS(410,PRCNDA2,10))
- QUIT
- +18 if $PIECE(^PRCS(410,PRCNDA2,10),U)
- QUIT
- +19 SET PRCNFND=1
- +20 SET PRCNLIC=$ORDER(^PRCS(410,PRCNDA2,"IT",99),-1)
- SET PRCNUM=PRCNUM+1
- +21 SET ^PRCS(410,PRCNDA2,10)=PRCNLIC_U_$PIECE(^PRCS(410,PRCNDA2,10),U,2,99)
- +22 WRITE !!,PRCNUM_". "_"LINE ITEM COUNT "_PRCNLIC_" has been added to the entry record "_PRCNDA2_".",!
- End DoDot:1
- +23 ;
- +24 IF 'PRCNFND
- DO MES^XPDUTL(" No records need to be updated!")
- +25 DO MES^XPDUTL(" >> End of the Post-Initialization routine ...")
- +26 QUIT