RCMSPOST.m

RCMSPOST ;WISC/RFJ-post init tracking and history ;1 Apr 01

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

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

 ;

START(PATCH) ;  add a new entry for a post init running

 ;  stores the starting date and time for a post init

 ;  returns entry number added

 I '$D(^RC(342,1,0)) Q 0

 ;

 N DA,DIC,DIE,DLAYGO,X,Y

 ;

 ;  first entry is the site entry

 S DA(1)=1

 S (DIC,DIE)="^RC(342,"_DA(1)_",9.4,",DIC(0)="L",DLAYGO=342.01

 S DIC("DR")=".02///NOW;"

 S X=PATCH

 D FILE^DICN

 Q +Y

 ;

 ;

END(DA) ;  stores the ending date and time for a post init

 N %DT,D,D0,DI,DIC,DIE,DQ,DR,X,Y

 ;

 ;  first entry is the site entry

 S DA(1)=1

 S (DIC,DIE)="^RC(342,"_DA(1)_",9.4,",DIC(0)="L",DLAYGO=342.01

 S DR=".03///NOW;"

 D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCMSPOST   817     printed  Apr 09, 2024@20:52:27                                                                                                                                                                                                     Page 2

RCMSPOST  ;WISC/RFJ-post init tracking and history ;1 Apr 01

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

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

 +4       ;

 +5       ;

START(PATCH) ;  add a new entry for a post init running

 +1       ;  stores the starting date and time for a post init

 +2       ;  returns entry number added

 +3        IF '$DATA(^RC(342,1,0))

               QUIT 0

 +4       ;

 +5        NEW DA,DIC,DIE,DLAYGO,X,Y

 +6       ;

 +7       ;  first entry is the site entry

 +8        SET DA(1)=1

 +9        SET (DIC,DIE)="^RC(342,"_DA(1)_",9.4,"

           SET DIC(0)="L"

           SET DLAYGO=342.01

 +10       SET DIC("DR")=".02///NOW;"

 +11       SET X=PATCH

 +12       DO FILE^DICN

 +13       QUIT +Y

 +14      ;

 +15      ;

END(DA)   ;  stores the ending date and time for a post init

 +1        NEW %DT,D,D0,DI,DIC,DIE,DQ,DR,X,Y

 +2       ;

 +3       ;  first entry is the site entry

 +4        SET DA(1)=1

 +5        SET (DIC,DIE)="^RC(342,"_DA(1)_",9.4,"

           SET DIC(0)="L"

           SET DLAYGO=342.01

 +6        SET DR=".03///NOW;"

 +7        DO ^DIE

 +8        QUIT