GMTSUP1 ; SLC/JER,KER - Utilities for Paging HS ; 09/21/2001
;;2.7;Health Summary;**28,29,47**;Oct 20, 1995
;
; External References
; DBIA 10102 DISP^XQORM1
; DBIA 10026 ^DIR
;
RJUMP ; XQOR for "^^"-jump is no longer supported
N GMDFN,GMTSAV W !,"Jumping not allowed.",! H 1 G RETURN
RETURN ; Return to Health Summary without Jump
W:$G(GMTSAV)'["?" !,">>> Returning to Health Summary",! H 1
Q
HELP ; Offers help to confused individuals
N GMQUIT
W @IOF
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
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
I X="??" W "These components may be temporarily added (use ""=C"" to change limits)." D DISP^XQORM1 W !!
I X="???" D HELP2
Q
HELP1 ; Writes part of help prompt
D SCRNLNTH Q:$D(GMQUIT) W !!
D SCRNLNTH Q:$D(GMQUIT) W "To leave display order and jump to a different component, select any component",!
D SCRNLNTH Q:$D(GMQUIT) W "from the above list, or select any additional component to be temporarily",!
D SCRNLNTH Q:$D(GMQUIT) W "added to the display. Add ""=C"" to component to change limits or selection",!
D SCRNLNTH Q:$D(GMQUIT) W "items. EXAMPLE: LO=C",!!
D SCRNLNTH Q:$D(GMQUIT) W "Enter: ?? to see additional components.",!
D SCRNLNTH Q:$D(GMQUIT) W ?7,"??? to see HELP for ""^^""-jump.",!
D SCRNLNTH Q:$D(GMQUIT) W ?7,"<RET> to continue display.",!
D SCRNLNTH Q:$D(GMQUIT) W ?7,"+ to proceed to next component.",!
D SCRNLNTH Q:$D(GMQUIT) W ?7,"- to return to preceeding component.",!
D SCRNLNTH Q:$D(GMQUIT) W ?7,"^ to quit present patient's summary.",!
D SCRNLNTH Q:$D(GMQUIT) W ?7,"^^ to quit and return to menu.",!!
Q
HELP2 ; Help for "^^"-jump
D SCRNLNTH Q:$D(GMQUIT) W ?22,"Navigation OUTSIDE of Health Summary",!!
D SCRNLNTH Q:$D(GMQUIT) W "You may also enter ""^^"" followed by the name, partial name or synonym for",!
D SCRNLNTH Q:$D(GMQUIT) W "any of a variety of options OUTSIDE of Health Summary to which you can",!
D SCRNLNTH Q:$D(GMQUIT) W "jump. Partial matches will allow you to select from a subset of options.",!!
D SCRNLNTH Q:$D(GMQUIT) W "For example: ^^? will list ALL available options.",!
D SCRNLNTH Q:$D(GMQUIT) W ?14,"^^PN will show you all of the PROGRESS NOTES options, or",!
D SCRNLNTH Q:$D(GMQUIT) W ?14,"^^OR will show you all of the ORDER ENTRY options.",!!
D SCRNLNTH Q:$D(GMQUIT) W "You may also order a wide variety of LABORATORY tests using this syntax.",!
D SCRNLNTH Q:$D(GMQUIT) W "e.g., ^^CHEM 7 will allow you to ADD an order for that test.",!!
Q
LIST ; List components
N GMI,DUOUT
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))
Q
SCRNLNTH ; Checks screen length
N DIR
Q:$Y'>(IOSL-4)
S DIR(0)="E"
D ^DIR I $S($D(DUOUT):1,$D(DTOUT):1,1:0) S GMQUIT=""
W:'$D(GMQUIT) @IOF
Q
LIST1 ; Lists component information
N CREC S CREC=^GMT(142.1,$P(GMTSEG(GMI),U,2),0)
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)
Q
STAR ; Writes * to indicate added component when called by GMTSUP
; for HST other than AD HOC
W $S($D(^GMT(142,TYP,1,"C",$P(GMTSEG(GMI),U,2))):" ",1:"*")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSUP1 3590 printed Dec 13, 2024@02:00:39 Page 2
GMTSUP1 ; SLC/JER,KER - Utilities for Paging HS ; 09/21/2001
+1 ;;2.7;Health Summary;**28,29,47**;Oct 20, 1995
+2 ;
+3 ; External References
+4 ; DBIA 10102 DISP^XQORM1
+5 ; DBIA 10026 ^DIR
+6 ;
RJUMP ; XQOR for "^^"-jump is no longer supported
+1 NEW GMDFN,GMTSAV
WRITE !,"Jumping not allowed.",!
HANG 1
GOTO RETURN
RETURN ; Return to Health Summary without Jump
+1 if $GET(GMTSAV)'["?"
WRITE !,">>> Returning to Health Summary",!
HANG 1
+2 QUIT
HELP ; Offers help to confused individuals
+1 NEW GMQUIT
+2 WRITE @IOF
+3 IF X="?"
IF GMTSTYP=TYP
WRITE "These components have been selected for Ad Hoc.",!
SET FLG=1
DO LIST
KILL FLG
if $DATA(DTOUT)
QUIT
DO HELP1
WRITE !
QUIT
+4 IF X="?"
IF GMTSTYP'=TYP
WRITE "These components are part of ",GMTSTITL," Health Summary Type",!,"or have been temporarily added. Added components are indicated by *.",!
SET FLG=2
DO LIST
KILL FLG
if $DATA(DTOUT)
QUIT
DO HELP1
WRITE !
QUIT
+5 IF X="??"
WRITE "These components may be temporarily added (use ""=C"" to change limits)."
DO DISP^XQORM1
WRITE !!
+6 IF X="???"
DO HELP2
+7 QUIT
HELP1 ; Writes part of help prompt
+1 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE !!
+2 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "To leave display order and jump to a different component, select any component",!
+3 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "from the above list, or select any additional component to be temporarily",!
+4 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "added to the display. Add ""=C"" to component to change limits or selection",!
+5 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "items. EXAMPLE: LO=C",!!
+6 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "Enter: ?? to see additional components.",!
+7 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?7,"??? to see HELP for ""^^""-jump.",!
+8 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?7,"<RET> to continue display.",!
+9 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?7,"+ to proceed to next component.",!
+10 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?7,"- to return to preceeding component.",!
+11 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?7,"^ to quit present patient's summary.",!
+12 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?7,"^^ to quit and return to menu.",!!
+13 QUIT
HELP2 ; Help for "^^"-jump
+1 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?22,"Navigation OUTSIDE of Health Summary",!!
+2 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "You may also enter ""^^"" followed by the name, partial name or synonym for",!
+3 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "any of a variety of options OUTSIDE of Health Summary to which you can",!
+4 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "jump. Partial matches will allow you to select from a subset of options.",!!
+5 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "For example: ^^? will list ALL available options.",!
+6 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?14,"^^PN will show you all of the PROGRESS NOTES options, or",!
+7 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE ?14,"^^OR will show you all of the ORDER ENTRY options.",!!
+8 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "You may also order a wide variety of LABORATORY tests using this syntax.",!
+9 DO SCRNLNTH
if $DATA(GMQUIT)
QUIT
WRITE "e.g., ^^CHEM 7 will allow you to ADD an order for that test.",!!
+10 QUIT
LIST ; List components
+1 NEW GMI,DUOUT
+2 SET GMI=0
FOR
SET GMI=$ORDER(GMTSEG(GMI))
if GMI'>0
QUIT
DO SCRNLNTH
if $DATA(DUOUT)!($DATA(DTOUT))
QUIT
DO LIST1
if $DATA(DUOUT)!($DATA(DTOUT))
QUIT
+3 QUIT
SCRNLNTH ; Checks screen length
+1 NEW DIR
+2 if $Y'>(IOSL-4)
QUIT
+3 SET DIR(0)="E"
+4 DO ^DIR
IF $SELECT($DATA(DUOUT):1,$DATA(DTOUT):1,1:0)
SET GMQUIT=""
+5 if '$DATA(GMQUIT)
WRITE @IOF
+6 QUIT
LIST1 ; Lists component information
+1 NEW CREC
SET CREC=^GMT(142.1,$PIECE(GMTSEG(GMI),U,2),0)
+2 if GMI#2
WRITE !
WRITE ?$SELECT(GMI#2:0,1:40)
if FLG=2
DO STAR
WRITE $PIECE(CREC,U,4),?$SELECT(GMI#2:8,1:48),$EXTRACT($SELECT($LENGTH($PIECE(GMTSEG(GMI),U,5)):$PIECE(GMTSEG(GMI),U,5),$LENGTH($PIECE(CREC,U,9)):$PIECE(CREC,U,9),1:$PIECE(CREC,U)),1,24)
+3 QUIT
STAR ; Writes * to indicate added component when called by GMTSUP
+1 ; for HST other than AD HOC
+2 WRITE $SELECT($DATA(^GMT(142,TYP,1,"C",$PIECE(GMTSEG(GMI),U,2))):" ",1:"*")
+3 QUIT
