source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMPI.m@ 1783

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

initial load of FOIAVistA 6/30/08 version

File size: 510 bytes
Line 
1PSOLMPI ;BHAM ISC/LC - PATIENT INFORMATION ; 08-MAR-1995
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3EN ; -- main entry point for PSO LM Patient Information
4 I '$D(^TMP("PSOPI",$J)) D ^PSOORUT2
5 D EN^VALM("PSO LM Patient Information")
6 Q
7 ;
8HDR ; -- header code
9 D HDR^PSOLMUTL
10 S VALMHDR(4)=" SEX: "_^TMP("PSOHDR",$J,5,0)
11 Q
12 ;
13INIT ; -- init variables and list array
14 S VALMCNT=PSOPI
15 Q
16 ;
17HELP ; -- help code
18 S X="?" D DISP^XQORM1 W !!
19 Q
20 ;
21EXIT ; -- exit code
22 D CLEAN^VALM10 Q
23 ;
24EXPND ; -- expand code
25 Q
26 ;
Note: See TracBrowser for help on using the repository browser.