MEDITECH

MEDITECH.CUST.RPTS

Hospital North Country Regional Hospital

MIS NCH

Directory LIVE.MIS

User HAB

Date 20030207

Segment B

Comment PP.PER. zcus.hab.email.pers.chg

===================================================================================

Procedure PP.PER.zcus.hab.email.pers.chg

Responsibility U

Active Y

Access Y

Menu Logic

Description @Inquiry

--------------------------------------------------------------------------------

Macro PP.PER.zcus.hab.email.pers.chg.M.build.temp

;called at detail line AL D

;this creates the actual emailed document. What is on page 3 of report has nothing t

;to do with what is actually emailed.

1+/CNTR^/CNTR,

"On "_%Z.date.out(@.today)_" at "_@.now_" ("_@.user_")"_%Z.name.inversion(@MIS.USER.name[@.user])_" entered the following changes"^/TEMP[/CNTR],

1+/CNTR^/CNTR,

"----------------------------------------------------------------------"^/TEMP[/CNTR],

1+/CNTR^/CNTR,

"New Name Previous Name"^/TEMP[/CNTR],

1+/CNTR^/CNTR,

""_c.xx.name.chg:30L_@name^/TEMP[/CNTR],

1+/CNTR^/CNTR,

" "^/TEMP[/CNTR],

1+/CNTR^/CNTR,

"New Address Previous Address"^/TEMP[/CNTR],

1+/CNTR^/CNTR,

""_c.xx.add1:30L_@addr1^/TEMP[/CNTR],

1+/CNTR^/CNTR,

""_c.xx.add2:30L_@addr2^/TEMP[/CNTR],

1+/CNTR^/CNTR,

" "^/TEMP[/CNTR],

1+/CNTR^/CNTR,

"New Telephone Previous Telephone"^/TEMP[/CNTR],

1+/CNTR^/CNTR,

""_c.xx.tele:30L_@home.phone^/TEMP[/CNTR],

;

;********************* 2ND MESSAGE IS BEING CREATED**********************

;

; Message is in /TEMP2. Line count - /CNTR2

1+/CNTR2^/CNTR2,

"On "_%Z.date.out(@.today)_" at "_@.now_" you requested Human Resources to change the following information"^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

"----------------------------------------------------------------------"^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

"New Name Previous Name"^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

""_c.xx.name.chg:30L_@name^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

" "^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

"New Address Previous Address"^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

""_c.xx.add1:30L_@addr1^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

""_c.xx.add2:30L_@addr2^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

" "^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

"New Telephone Previous Telephone"^/TEMP2[/CNTR2],

1+/CNTR2^/CNTR2,

""_c.xx.tele:30L_@home.phone^/TEMP2[/CNTR2]

--------------------------------------------------------------------------------

Macro PP.PER.zcus.hab.email.pers.chg.M.init

;This initializes - starts process to email message:

;1 goes to employee, 1 goes to HR

" Employee Demographic Change Form - Human Resouces Copy: "^/TEMP[1],

1^/CNTR,

" Employee Demographic Change Form - Employee Copy:"^/TEMP2[1],

1^/CNTR2

--------------------------------------------------------------------------------

Macro PP.PER.zcus.hab.email.pers.chg.M.mail

%MIS.OA.MSG.auto("",Q(^/TEMP,"HAB","HAB")),

%MIS.OA.MSG.auto("",Q(^/TEMP2,@.user,@.user)),

END

--------------------------------------------------------------------------------

Macro PP.PER.zcus.hab.email.pers.chg.M.print

;sets page 3 to print to screen/scope

IF{'/ONE 1^/ONE,

1^/Z.SCHED.LOG,

%Z.printer.open.px("S")},

"PP.PER.zcus.hab.email.pers.chg";

--------------------------------------------------------------------------------

Report

Active Y

Name zcus.hab.email.pers.chg

DPM PP.PER

Segment main

Report Title "_%PP.PER.zcus.hab.email.pers.chg.M.print(0)_"

Page Banner NONE

Chars/Inch 12

Chars/Line 92

Lines/Inch 6

Lines/Page 60

Segment DPM PP.PER

Page Size 66

Logical Filename pp.employee.file

Page Trailer N

Report Header N

Report Trailer N

Detail Y

Page Header N

Access Path pp.employee.name.index

Sort Modify

Left Margin 0

--------------------------------------------------------------------------------

Fields

1 FLD=xx.name.chg

DSP=xx.name.chg

DAT=FREE

JFY=L

LEN=30

VAL=c.xx.name.chg

2 FLD=name

DSP=name

3 FLD=xx.add1

DSP=xx.add1

DAT=FREE

JFY=L

LEN=30

VAL=c.xx.add1

4 FLD=addr1

DSP=addr1

5 FLD=xx.add2

DSP=xx.add2

DAT=FREE

JFY=L

LEN=30

VAL=c.xx.add2

6 FLD=addr2

DSP=addr2

7 FLD=xx.tele

DSP=xx.tele

DAT=FREE

JFY=L

LEN=16

VAL=c.xx.tele

8 FLD=home.phone

DSP=home.phone

9 FLD=xx.emp.query

DSP=xx.emp.que

DAT=FREE

JFY=L

LEN=10

VAL=@cd.response["MIS.USER"]

--------------------------------------------------------------------------------

Selection Fields

Num Field Op Prompt Default (Stored As)

1 xx.emp.query EQ @.user (@.user)

2 xx.name.chg IG New Name (c.xx.name.chg)

3 xx.add1 IG New Address Line 1 (c.xx.add1)

4 xx.add2 IG New Address Line 2 (c.xx.add2)

5 xx.tele IG New Telephone # (c.xx.tele)

--------------------------------------------------------------------------------

Report Lines

1 D

2 D

3 D

4 D

5 D

6 D

7 D

8 D

9 D

10 D

11 D

12 D

13 D

14 D

15 D

16 D

17 D

18 D

19 D

20 D

21 D

22 D

23 D

24 D

25 D

26 D

27 D

28 D

29 D

30 D

31 D

--------------------------------------------------------------------------------

Footnotes

AL START PP.PER.zcus.hab.email.pers.chg.M.init

AL D PP.PER.zcus.hab.email.pers.chg.M.build.temp

AL CLOSE.UP PP.PER.zcus.hab.email.pers.chg.M.mail

--------------------------------------------------------------------------------

Picture

3 @@@@ @@@@

4 @@@@@@ @@@@@@

5 @@@@@@ @@@@@@

6 @@@@ @@@@

11 @ @

12 @@ @@

13 @@@ @@@

14 @@@@@ @@@@@

15 @@@@@@@@@@@@@

19 Thank you for filling out the Employee Demographic Change From.

20 A copy of the changes will be mailed to you and Human Resources.

22 New Name: Previous Name

23 xx.name.chg___________________ name______________________

25 New Address Previous Address

26 xx.add1_______________________ addr1_____________________

27 xx.add2_______________________ addr2_____________________

29 New Telephone # Previous Telephone #

30 xx.tele_________ home.phone________

--------------------------------------------------------------------------------

Sort Fields

Num Field Order Header Trailer Renumber

1 sort.name NONE N

2 employee NONE N

--------------------------------------------------------------------------------

Screen

Screen Title "_%PP.PER.zcus.hab.email.pers.chg.M.print(0)_"

Print Prompt %Z.on.device

2 c.xx.name.chg

DAT=FREE

ID.ARG=BR

IFE=1

LEN=30

REQ=""

3 c.xx.add1

DAT=FREE

ID.ARG=BR

IFE=1

LEN=30

REQ=""

4 c.xx.add2

DAT=FREE

ID.ARG=BR

IFE=1

LEN=30

REQ=""

5 c.xx.tele

DAT=FREE

ID.ARG=BR

IFE=1

LEN=14

REQ=""

--------------------------------------------------------------------------------

Custom Select Picture

1 New Name @2

3 New Address Line 1 @3

4 New Address Line 2 @4

6 New Telephone # @5