source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURSAGP0.m@ 1384

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

initial load of WorldVistAEHR
File size: 3.4 KB
RevLine 
[613]1NURSAGP0 ;HIRMFO/MD,RM-GENERIC PROMPTS FOR ADMIN/EDUCATION REPORTS ;10/05/95
2 ;;4.0;NURSING SERVICE;**13**;Apr 25, 1997
3EN1 ;GENERIC PROMPTS FOR GENDER REPORTS
4 S NSP=0 W !!,"Select GENDER (Press return for both male and female): " R X:DTIME
5 I '$T!(X="^") S NUROUT=1 Q
6 I X="" S NSP=1 Q
7 S X=$$UP^XLFSTR(X)
8 I X="M"!(X="F") S NSPC=X Q
9 W !,?5," Enter One Of The Following : ",!?10," M for Male ",!?10," F for Female " G EN1
10EN2 ;GENERIC PROMPTS FOR ACADEMIC DEGREE REPORTS
11 W ! S NSP=0,DIC("A")="Select ACADEMIC DEGREE (Press return for all degrees): "
12 S DIC="^NURSF(212.1,",DIC(0)="AEMZQ",DIC("W")="W ?45,$P(^(0),U,3)" D ^DIC W ! I '$D(DTOUT),X="" S NSP=1 Q
13 I $D(DTOUT)!(X="^")!(+Y'>0) S NUROUT=1 Q
14 S NSPC=$P(Y(0),"^",3)
15 Q
16EN3 ;GENERIC PROMPTS FOR AGE REPORTS
17 W ! S X="^",NSP=0,%DT("A")="Start with DATE OF BIRTH (Press return for all dates of birth): ",%DT="AEQ" D ^%DT K %DT I X="" S NSP=1 Q
18 I X="^"!(+Y'>0) S NUROUT=1 Q
19 S NSPC=Y
20 W ! S X="^",NSPC(1)=0,%DT("A")="Go To DATE OF BIRTH (Press return for all dates until the present date): ",%DT="AEQ",X="^" D ^%DT K %DT
21 I X="" S X="T" D ^%DT S NSPC(1)=Y Q
22 I Y'>0!(X="^") S NUROUT=1 Q
23 S NSPC(1)=Y
24 Q
25EN4 ;GENERIC PROMPTS FOR CERTIFICATION REPORTS
26 W ! S NSP=0 S DIC("A")="Select CERTIFICATION NAME (Press return for all certification names): ",DIC(0)="ZAEMQ",DIC="^NURSF(212.2," D ^DIC I '$D(DTOUT),X="" S NSP=1 G NXCK
27 I +Y'>0!$D(DTOUT) S NUROUT=1 Q
28 S NSPC=$P(Y(0),"^",2)
29NXCK W ! S X="^",NSP(1)=0,%DT("A")="Start With DATE CERTIFICATION EXPIRES (Press return for all dates): ",%DT="AEQ",X="^" D ^%DT K %DT
30 I '$D(DTOUT),X="" S NSP(1)=1 Q
31 I Y'>0!(X="^") S NUROUT=1 Q
32 S NSPC(1)=Y
33 W ! S X="^",NSPC(2)=0,%DT("A")="Go To DATE CERTIFICATION EXPIRES (Press return for all dates until present date): ",%DT="AE",X="^" D ^%DT K %DT
34 I X="" S X="T" D ^%DT S NSPC(2)=Y Q
35 I Y'>0!(X="^") S NUROUT=1 Q
36 S NSPC(2)=Y
37 Q
38EN5 ;GENERIC PROMPTS FOR FTEE PROFILE REPORTS
39 S NSP=0 W !!,"Select FTEE (Press return for all FTEE): " R X:DTIME
40 I X="^"!'$T S NUROUT=1 Q
41 I X="" S NSP=1 Q
42 I X["?" G HELP
43 I X=+X,X'>1,X'<0,X'?.E1"."4N.N S NSPC=X Q
44HELP W !,?5," Type a number between 0 And 1 (e.g. 0,.200,.005,1) " G EN5
45EN6 ;GENERIC PROMPTS FOR GRADE PROFILE REPORTS
46 W ! S NSP=0,DIC("A")="Select GRADE/STEP CODE (Press return for all grade/step codes): "
47 S DIC="^NURSF(211.1,",DIC(0)="AEMQ" D ^DIC I '$D(DTOUT),X="" S NSP=1 Q
48 I $D(DTOUT)!(+Y'>0) S NUROUT=1 Q
49 S NSPC=$P(Y,"^",2)
50 Q
51EN7 ;GENERIC PROMPTS FOR LICENSE PROFILE REPORTS
52 W ! S X="",NSP=0,%DT("A")="Start With DATE LICENSE EXPIRES (Press return for all dates): ",%DT="AE",X="^" D ^%DT K %DT
53 I X="" S NSP=1 Q
54 I Y'>0!(X="^") S NUROUT=1 Q
55 S NSPC=Y D:+Y D^DIQ S %DT("B")=Y
56ENDT W ! S X="",NSPC(2)=0,%DT("A")="Go To DATE LICENSE EXPIRES: ",%DT="AE",X="^" D ^%DT K %DT
57 I X="" W !!,"PLEASE ENTER A DATE OR '^' TO EXIT" G ENDT
58 I Y'>0!(X="^") S NUROUT=1 Q
59 S NSPC(2)=Y
60 Q
61EN8 ;GENERIC PROMPTS FOR MILITARY REPORTS
62 S NSP=0 W !!,"Select MILITARY STATUS (Press return for retired and active reservists): " R X:DTIME
63 I '$T!(X="^") S NUROUT=1 Q
64 I X="" S NSP=1 G NXCK1
65 S X=$$UP^XLFSTR(X)
66 I X="A"!(X="R") S NSPC=X G NXCK1
67 W !,?5," Type A for Active Reservists and Type R for Retired or Discharged) : " G EN8
68NXCK1 W ! S NSP(1)=0,DIC("A")="Select MILITARY SERVICE BRANCH (Press return for all service branches) : ",DIC(0)="AEMQ",DIC="^DIC(23," D ^DIC I '$D(DTOUT),X="" S NSP(1)=1 Q
69 I $D(DTOUT)!(+Y'>0) S NUROUT=1 Q
70 S NSPC(1)=$P(Y,"^",2)
71 Q
Note: See TracBrowser for help on using the repository browser.