source: WorldVistAEHR/trunk/r/INTERIM_MANAGEMENT_SUPPORT-ECT/ECTPNUR.m@ 1195

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

initial load of WorldVistAEHR

File size: 940 bytes
RevLine 
[613]1ECTPNUR ;B'ham ISC/PTD-Nursing Personnel Inquiry ;01/29/91 08:00
2V ;;1.05;INTERIM MANAGEMENT SUPPORT;**1**;
3 I '$D(^DIC(210,0,"GL")) W *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'Nurs Staff' File - #210 is not loaded on your system.",!! S XQUIT="" Q
4 S GLRT=^DIC(210,0,"GL") I '$O(@(GLRT_"0)")) W *7,!!,"'Nurs Staff' File - #210 has not been populated on your system.",!! S XQUIT="" G EXIT
5 ;S VER="",PKGDA=$O(^DIC(9.4,"C","NURS",0)) S:'PKGDA XQUIT="" G:'PKGDA EXIT S:$D(^DIC(9.4,PKGDA,"VERSION")) VER=$P(^("VERSION"),"^") G:VER<2 DIC
6 ;IF RUNNING VERSION 2, MAKE DIRECT CALL TO EXTERNAL ROUTINE
7 ;S X="NURSASP" X ^%ZOSF("TEST") G:$T=0 DIC D ^NURSASP G EXIT
8 ;
9DIC W !! S DIC=GLRT,DIC(0)="QEAM",DIC("A")="Select NURSE name: " D ^DIC G:Y<0 EXIT S DA=+Y
10 K %ZIS S IOP="HOME" D ^%ZIS K %ZIS,IOP W @IOF,!!?30,"NURSE EMPLOYEE DATA:",!!
11 D EN^DIQ K DIC,Y,DA G DIC
12EXIT K %,%W,%Y,A,B,D0,D1,D2,DIC,DA,GLRT,NPWARD,NURSX,NX,P,PKGDA,POP,S,VER,X,Y
13 Q
14 ;
Note: See TracBrowser for help on using the repository browser.