source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPCHK1.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 773 bytes
Line 
1PPPCHK1 ; ALB/DMB - PATIENT FILE CHECK ROUTINES ; 4/28/92
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ; Check the patient file "B" and "SSN" xref
6 ;
7 S ENTRIES=$P($G(^DPT(0)),"^",4)
8 W !,"Checking ""B"" Xref"
9 S BENTRIES=$$CHKXREF("B")
10 W !,"Checking ""SSN"" Xref"
11 S SENTRIES=$$CHKXREF("SSN")
12 W !,"Total Entries Per Header Node --> ",ENTRIES
13 W !,"Total Entries In ""B"" Xref ----> ",BENTRIES
14 W !,"Total Entries In ""SSN"" Xref --> ",SENTRIES
15 Q
16 ;
17CHKXREF(XREFNAME) ; Count the entries in the xref
18 ;
19 N NAME,IFN,CNT
20 ;
21 S (IFN,NAME)="",CNT=0
22 F S NAME=$O(^DPT(XREFNAME,NAME)) Q:NAME="" D
23 .F S IFN=$O(^DPT(XREFNAME,NAME,IFN)) Q:IFN="" D
24 ..S CNT=CNT+1
25 ..I '(CNT#100) W "."
26 Q CNT
Note: See TracBrowser for help on using the repository browser.