| [613] | 1 | PPPHLP01 ;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.
|
|---|
| 4 | HLPDOM1 ; -- 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 | ;
|
|---|
| 13 | HLPD1 ; -- 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 | ;
|
|---|
| 21 | HLPXREF ; -- Display single question mark help for add/edit FFXE
|
|---|
| 22 | W !,?2,"Enter Patient Name (last,first middle) or SSN"
|
|---|
| 23 | QUIT
|
|---|
| 24 | ;
|
|---|
| 25 | HLPX1 ; -- 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 | ;
|
|---|
| 34 | HLPX2 ; -- 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 | ;
|
|---|
| 42 | HLPINST1 ; -- Display single question mark help for institution
|
|---|
| 43 | W !,?2,"Answer with Institution Name, or Station Number"
|
|---|
| 44 | QUIT
|
|---|
| 45 | ;
|
|---|
| 46 | HLPI1 ; -- 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 | ;
|
|---|
| 67 | END ; -- End of code
|
|---|
| 68 | QUIT
|
|---|
