source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURASPT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 650 bytes
Line 
1NURASPT ;HIRMFO/BL,RM,FT-VIEW/PRINT FOR THE INDIVIDUAL STAFF RECORD ;5/7/96 11:08
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3A ;SELECTS STAFF NAME AND CALLS THE TEMPLATE
4 Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
5 S NUROUT=0 D EN1^NURSAUTL G QUIT:NUROUT
6 S DIC("S")="I +$$EN6^NURSUT3($G(Y))"
7 D EN3^NURSAGP1 G:NUROUT QUIT
8 S NURSSSN=$P(^VA(200,$P(^NURSF(210,+Y,0),U),1),U,9)
9 S STAFFNO=+Y,L=0,DIC="^NURSF(210,",BY="@NUMBER",FLDS="[NURS-P-STF]",FR=STAFFNO,TO=STAFFNO K PG
10 D EN1^DIP
11 G A
12QUIT ;
13 K N1,N2,NOD1,NOD2,NURNODE4,NURAS,X,Y,ZTSK,NX,NUROUT,NURSSSN,STAFFNO,FR,TO,PG,BY,DIC,FLDS,L,NURSZDA,NURSZAP,NURSZLO,NURSZSP,NURSZORT,NURSX Q
Note: See TracBrowser for help on using the repository browser.