source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSUP1.m@ 1006

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1GMTSUP1 ; SLC/JER,KER - Utilities for Paging HS ; 09/21/2001
2 ;;2.7;Health Summary;**28,29,47**;Oct 20, 1995
3 ;
4 ; External References
5 ; DBIA 10102 DISP^XQORM1
6 ; DBIA 10026 ^DIR
7 ;
8RJUMP ; XQOR for "^^"-jump is no longer supported
9 N GMDFN,GMTSAV W !,"Jumping not allowed.",! H 1 G RETURN
10RETURN ; Return to Health Summary without Jump
11 W:$G(GMTSAV)'["?" !,">>> Returning to Health Summary",! H 1
12 Q
13HELP ; Offers help to confused individuals
14 N GMQUIT
15 W @IOF
16 I X="?",GMTSTYP=TYP W "These components have been selected for Ad Hoc.",! S FLG=1 D LIST K FLG Q:$D(DTOUT) D HELP1 W ! Q
17 I X="?",GMTSTYP'=TYP W "These components are part of ",GMTSTITL," Health Summary Type",!,"or have been temporarily added. Added components are indicated by *.",! S FLG=2 D LIST K FLG Q:$D(DTOUT) D HELP1 W ! Q
18 I X="??" W "These components may be temporarily added (use ""=C"" to change limits)." D DISP^XQORM1 W !!
19 I X="???" D HELP2
20 Q
21HELP1 ; Writes part of help prompt
22 D SCRNLNTH Q:$D(GMQUIT) W !!
23 D SCRNLNTH Q:$D(GMQUIT) W "To leave display order and jump to a different component, select any component",!
24 D SCRNLNTH Q:$D(GMQUIT) W "from the above list, or select any additional component to be temporarily",!
25 D SCRNLNTH Q:$D(GMQUIT) W "added to the display. Add ""=C"" to component to change limits or selection",!
26 D SCRNLNTH Q:$D(GMQUIT) W "items. EXAMPLE: LO=C",!!
27 D SCRNLNTH Q:$D(GMQUIT) W "Enter: ?? to see additional components.",!
28 D SCRNLNTH Q:$D(GMQUIT) W ?7,"??? to see HELP for ""^^""-jump.",!
29 D SCRNLNTH Q:$D(GMQUIT) W ?7,"<RET> to continue display.",!
30 D SCRNLNTH Q:$D(GMQUIT) W ?7,"+ to proceed to next component.",!
31 D SCRNLNTH Q:$D(GMQUIT) W ?7,"- to return to preceeding component.",!
32 D SCRNLNTH Q:$D(GMQUIT) W ?7,"^ to quit present patient's summary.",!
33 D SCRNLNTH Q:$D(GMQUIT) W ?7,"^^ to quit and return to menu.",!!
34 Q
35HELP2 ; Help for "^^"-jump
36 D SCRNLNTH Q:$D(GMQUIT) W ?22,"Navigation OUTSIDE of Health Summary",!!
37 D SCRNLNTH Q:$D(GMQUIT) W "You may also enter ""^^"" followed by the name, partial name or synonym for",!
38 D SCRNLNTH Q:$D(GMQUIT) W "any of a variety of options OUTSIDE of Health Summary to which you can",!
39 D SCRNLNTH Q:$D(GMQUIT) W "jump. Partial matches will allow you to select from a subset of options.",!!
40 D SCRNLNTH Q:$D(GMQUIT) W "For example: ^^? will list ALL available options.",!
41 D SCRNLNTH Q:$D(GMQUIT) W ?14,"^^PN will show you all of the PROGRESS NOTES options, or",!
42 D SCRNLNTH Q:$D(GMQUIT) W ?14,"^^OR will show you all of the ORDER ENTRY options.",!!
43 D SCRNLNTH Q:$D(GMQUIT) W "You may also order a wide variety of LABORATORY tests using this syntax.",!
44 D SCRNLNTH Q:$D(GMQUIT) W "e.g., ^^CHEM 7 will allow you to ADD an order for that test.",!!
45 Q
46LIST ; List components
47 N GMI,DUOUT
48 S GMI=0 F S GMI=$O(GMTSEG(GMI)) Q:GMI'>0 D SCRNLNTH Q:$D(DUOUT)!($D(DTOUT)) D LIST1 Q:$D(DUOUT)!($D(DTOUT))
49 Q
50SCRNLNTH ; Checks screen length
51 N DIR
52 Q:$Y'>(IOSL-4)
53 S DIR(0)="E"
54 D ^DIR I $S($D(DUOUT):1,$D(DTOUT):1,1:0) S GMQUIT=""
55 W:'$D(GMQUIT) @IOF
56 Q
57LIST1 ; Lists component information
58 N CREC S CREC=^GMT(142.1,$P(GMTSEG(GMI),U,2),0)
59 W:GMI#2 ! W ?$S(GMI#2:0,1:40) D:FLG=2 STAR W $P(CREC,U,4),?$S(GMI#2:8,1:48),$E($S($L($P(GMTSEG(GMI),U,5)):$P(GMTSEG(GMI),U,5),$L($P(CREC,U,9)):$P(CREC,U,9),1:$P(CREC,U)),1,24)
60 Q
61STAR ; Writes * to indicate added component when called by GMTSUP
62 ; for HST other than AD HOC
63 W $S($D(^GMT(142,TYP,1,"C",$P(GMTSEG(GMI),U,2))):" ",1:"*")
64 Q
Note: See TracBrowser for help on using the repository browser.