Routine: NURSAUTL

Information

NURSAUTL ;HIRMFO/MD/JH-SECURITY ROUTINE FOR THE NURSING ADMIN REPORTS ;9/7/90 12:59

Name	Comments	DBIA/ICR reference
EN1	; SET SECURITY ACCESS LEVEL FOR ADMIN REPORTS
BADSER
INCOMPL
EN2	; SET SECURITY LEVEL BASED ON SERVICE POSITION
Q2
EN3	; SELECT LOCATIONS TO ACCESSED BASED ON SECURITY LEVEL
EN4	; SCREEN OUT ACCESS FOR UNAUTHORIZED LOCATIONS
EN5	;ENTRY FROM NURS-P-STAFF TO CHECK MILITARY STATUS
EN6	; ENTRY FROM NURSING ROUTINES TO CONVERT PTR TO 211.4 FILE TO ; DATA STORED IN 44 FILE. NPWARD COMES IN AS PTR AND LEAVES ; AS FREE TEXT OR NULL.
EN7	; ENTRY FROM NURSING ROUTINES TO CONVERT PTR TO 211.8 FILE TO DATA ; STORED IN 44 FILE. NPWARD COMES IN AS PTR AND LEAVES AS FREE ; TEXT OR NULL.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"** INCOMPLETE NEW PERSON DATA -- NOTIFY NURSING ADP COORDINATOR ** " Line Location: EN1+1
Function Call: WRITE	Prompt: !,$C(7),"** INCOMPLETE SERVICE POSITION DATA -- NOTIFY ADP COORDINATOR **" Line Location: BADSER+0
Function Call: WRITE	Prompt: !,$C(7),"** INCOMPLETE NURSING DATA -- NOTIFY NURSING ADP COORDINATOR **" Line Location: INCOMPL+0
Function Call: WRITE	Prompt: !,?6,"MILITARY EXPERIENCE: ",$S($P(NDATA,U)="R":"(RETIRED/DISC)",$P(NDATA,U)="A":"(ACT RESV)",$P(NDATA,U)="IRR":"(IND RDY RESV)",$P(NDATA,U)="IMA":"(IND MOBIL AUGM)",1:"") Line Location: EN5+3
Function Call: WRITE	Prompt: ?44,"BRANCH OF SERVICE: ",$E($P(^DIC(23,+$P(NDATA,U,2),0),U),1,20) Line Location: EN5+4