source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCMSPOST.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 786 bytes
RevLine 
[613]1RCMSPOST ;WISC/RFJ-post init tracking and history ;1 Apr 01
2 ;;4.5;Accounts Receivable;**169**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7START(PATCH) ; add a new entry for a post init running
8 ; stores the starting date and time for a post init
9 ; returns entry number added
10 I '$D(^RC(342,1,0)) Q 0
11 ;
12 N DA,DIC,DIE,DLAYGO,X,Y
13 ;
14 ; first entry is the site entry
15 S DA(1)=1
16 S (DIC,DIE)="^RC(342,"_DA(1)_",9.4,",DIC(0)="L",DLAYGO=342.01
17 S DIC("DR")=".02///NOW;"
18 S X=PATCH
19 D FILE^DICN
20 Q +Y
21 ;
22 ;
23END(DA) ; stores the ending date and time for a post init
24 N %DT,D,D0,DI,DIC,DIE,DQ,DR,X,Y
25 ;
26 ; first entry is the site entry
27 S DA(1)=1
28 S (DIC,DIE)="^RC(342,"_DA(1)_",9.4,",DIC(0)="L",DLAYGO=342.01
29 S DR=".03///NOW;"
30 D ^DIE
31 Q
Note: See TracBrowser for help on using the repository browser.