source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPHLP01.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: 1.6 KB
RevLine 
[613]1PPPHLP01 ;ALB/JFP - PPP, HELP MESSAGES;01JAN94
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;**37**;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4HLPDOM1 ; -- Displays options for call to domain
5 W !!,?2,"The network address of the Institution entered"
6 W !,?2,"(ie: BOSTON would have BOSTON.MED.VA.GOV as its domain)",!
7 W !,?2,"(Note: The system will try to match the institution with"
8 W !,?2," the correct Domain, this Domain can be overwritten"
9 W !,?2," Also the domain is not always in the format: "
10 W !,?2," (Institution Name.MED.VA.GOV )"
11 QUIT
12 ;
13HLPD1 ; -- Displays domain
14 S DIC="^DIC(4.2,"
15 S DIC(0)="C"
16 S D="B"
17 D DQ^DICQ
18 K DIC,D
19 QUIT
20 ;
21HLPXREF ; -- Display single question mark help for add/edit FFXE
22 W !,?2,"Enter Patient Name (last,first middle) or SSN"
23 QUIT
24 ;
25HLPX1 ; -- Displays entries in FFXE for ?? processing
26 S DIC="^PPP(1020.2,"
27 S DIC(0)="C"
28 S D="B"
29 D DQ^DICQ
30 K DIC,D
31 I Y>0 D HLPX2
32 QUIT
33 ;
34HLPX2 ; -- Displays entries in PATIENT file for ?? processing
35 S DIC="^DPT("
36 S DIC(0)="C"
37 S D="B"
38 D DQ^DICQ
39 K DIC,D
40 QUIT
41 ;
42HLPINST1 ; -- Display single question mark help for institution
43 W !,?2,"Answer with Institution Name, or Station Number"
44 QUIT
45 ;
46HLPI1 ; -- Displays institutions associated with patient entered
47 D CLEAR^VALM1
48 S DIC="^DIC(4,"
49 S DIC(0)="C"
50 S D="B"
51 D DQ^DICQ
52 K DIC,D
53 QUIT
54 ;
55 N INSTIFN,PPPCNT
56 ;
57 S INSTIFN=""
58 S PPPCNT=0
59 F D Q:INSTIFN=""
60 .S PPPCNT=PPPCNT+1
61 .S INSTIFN=$O(^PPP(1020.2,"APOV",PATDFN,INSTIFN))
62 .W:INSTIFN'="" !,?5,$$GETSTANM^PPPGET1(INSTIFN)
63 I PPPCNT=0 W !,?2,"No institution(s) found for patient entered"
64 QUIT
65 ;
66 ;
67END ; -- End of code
68 QUIT
Note: See TracBrowser for help on using the repository browser.