MEDITECH.CUST.RPTS^Memorial Hospital^MEM5.4^TEST.5.4.MIS^ISTJT^20050304^AVA^Canned Text program
@@VERSION:1
NUR.PAT.zcus.pgm
@@PROC
NUR.PAT.zcus.pgm
NUR.PATzcus.pgm
U
Y
Y·@Inquiry·
Y···
@@MACRO
NUR.PAT.zcus.pgm.M.ct.gen
0
A%0^ANS,
1
B^ROW,
2
C^COL,
3
D^MAX,
4
IF{ANS 1,
5
/S.LAST.QUERY^MIS.QUERY.mnemonic,
6
/patient^patient,@NUR.PAT.sex^/NUR.PAT.sex,
7
IF{@MIS.QUERY.multiple'="Y" @W.err("Query "_MIS.QUERY.mnemonic_" is not a multiple");
8
@CLEANUP,
9
@LOAD.TEXT,
10
@SETUP.FOR.EDITOR,
11
@CALL.MIS.TEXT.EDITOR,
12
@SAVE.TEXT}},
13
END;
14

15
SETUP.FOR.EDITOR
16
;   Canned text will be put in [ ] format
17
;
18
"Y"^/MIS.GET.EVAL,
19
^@MIS.DATA.DICT.main["NUR"]^/MIS.GET.FLD,
20
^@Root(@NUR.TEXT.main)^/MIS.GET.TXT
21

22
CALL.MIS.TEXT.EDITOR
23
; A - file structure
24
; B - top row offset
25
; C - bottom row
26
; D - width
27
; E - left margin
28
IF{@.gui 2;0}^OFF,
29
ROW+@MIS.QUERY.multiple.line-1+OFF^ROWS,
30
@MIS.QUERY.length^LEN,
31
%MIS.EDIT.sh(^/CANT,ROW+OFF,ROWS,LEN-2,COL,"Q","NUR.DOC","note.edit",{"MIS.EDIT.text.ed.get",@KEY.OVERRIDES},J,K,"")X^END
32

33
KEY.OVERRIDES
34
; 132 = Get Key (F4)
35
; 164 = Help Key (Shift F8)
36
D(132,164)
37

38
CLEANUP
39
""^XX,
40
DO{+/CANT[XX]^XX ""^/CANT[XX]}
41

42
LOAD.TEXT
43
""^XX,
44
DO{+/[ANS,MIS.QUERY.mnemonic,"M",XX]^XX /[ANS,MIS.QUERY.mnemonic,"M",XX]|0^/CANT[XX]}
45

46
SAVE.TEXT
47
""^XX,
48
DO{+/[ANS,MIS.QUERY.mnemonic,"M",XX]^XX ""^/[ANS,MIS.QUERY.mnemonic,"M",XX]},
49
0^XX,
50
DO{+/CANT[XX]^XX /CANT[XX]^/[ANS,MIS.QUERY.mnemonic,"M",XX]|0,
51
IF{XX'>@MIS.QUERY.multiple.line P(ROW+XX-1,COL,/CANT[XX]:(LEN_"L"))^#},
52
""^/CANT[XX]}
@@RPT

Yzcus.pgmNUR.PAT··NUR PAT macrosREG1292
660·66·
N
N
N
Y
N··
0
1··
Y··
AT	748647335
ISTJT
E
AT	789232908
ISTJT
E
CI
··
L
1

D
P
1
 
@@SCRN

Yzcus.pgmNUR.PATNUR.PAT.zcus.pgm
2
N·····
N·····
CS
4648·
P
1
NUR PAT macros%Z.on.device