

GTM>[?1h=S[C [CD[CU[CZ[C=[C1[C [CD[C [C^[CX[CU[CP[C[?1l>

Setting up programmer environment
This is a TEST account.

Terminal Type set to: C-VT220

You have 1701 new messages.
Select OPTION NAME: 

GTM>[?1h=D[C [C^[CX[CT[CF[CC[CR[C[?1l>


FLOW CHART GENERATOR FOR MUMPS ROUTINES

< COND >  = CONDITIONAL, if 'COND' is true code to the left is performed

[ LINE^ROU ]   = DO or SUBROUTINE call to location LINE of routine ROU,
                 control returns to commands following this in sequence

{ LINE^ROU } = GO TO, control is transferred to the location LINE in
               routine ROU.

Routine: Routine:?

<RET>          to leave
*              for all
rout           for 1 routine
rout1:rout2    for a range
*              as wildcard permitting any number of characters
?              as a single character wildcard in positions other than the first
'              as the 1st character to remove routines from the list
?D             for the currently selected routines
Routine: DGPMV
DGPMV     
Current total of 1 routine.

Routine: DGSWITCH
DGSWITCH  
Current total of 2 routines.

Routine: 

DEVICE: HOME//   TELNET

DGPMV
...............................................................................[3;1H[1;1H[J[2J[H
                                                            |
                          DGPMV^DGPMV ====================> 
                                                            |
                            PAT^DGPMV ====================> 
                                                            |
                                                      KILL ORACTION
                                                       KILL ORMENU
                                                            |
                                                      [ LO^DGUTL ]
                                                            |
                                                      < '$D(IOF) >
                                                  |                   |
                                  SET IOP=$S($D(ION):ION,1:"HOME")    |
                                                  |                   |
                                              [ ^%ZIS ]               |
                                                  |                   |
                                              KILL IOP                |
                                                  |___________________|
                                                            |
                           PAT1^DGPMV ====================> 
                                                            |
                                                       WRITE--- !
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                                       < DGPMT=5 >
                                                  |                   |
                                             SET DGPMN=0              |
                                                  |                   |
                                          [ SPCLU^DGPMV0 ]            |
                                                  |                   |
                                              < 'DGER >               |
                                        |                   |         |
                                 { OREN^DGPMV }             |         |
                                                  __________|         |
                                                  |                   |
                                             { Q^DGPMV }              |
                                                            __________|
                                                            |
                                                         NEW PAT
                                                          NEW Y
                                          SET Y=$$SELPAT^DGPMUI(DGPMT,.DGPMPC)
                                                            |
                                                        < Y'>0 >
                                                  |                   |
                                             { Q^DGPMV }              |
                                                            __________|
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                                       SET DFN=+Y
                                                  SET DGPMN=$P(Y,"^",3)
                                                            |
                           OREN^DGPMV ====================> 
                                                            |
                                                 SET DGUSEOR=$$USINGOR()
                                                            |
                                                       < DGUSEOR >
                                                  |                   |
                                            < '$D(ORVP) >             |
                                        |                   |         |
                                   *** QUIT ***             |         |
                                                  __________|         |
                                                  |                   |
                                            SET DFN=+ORVP             |
                                            SET DGPMN=""              |
                                                  |___________________|
                                            SET %=$$GETPAT^DGPMAPI8(.PAT,DFN)
                                                            |
                                               < $$LODGER(DFN)&(DGPMT=1) >
                                                  |                   |
                                     -- START OF ARGLESS DO .--       |
                                                  |                   |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                               NEW ERR                |
                               SET ERR(1)=$$EZBLD^DIALOG(4070000.165)
                                        SET ERR(1,"F")="!,*7"         |
                               SET ERR(2)=$$EZBLD^DIALOG(4070000.166)
                                        SET ERR(2,"F")="!?4"          |
                                                  |                   |
                                         [ EN^DDIOL(.ERR) ]           |
                                                  |                   |
                                          READ--- XTEMP:30            |
                                                  |                   |
                                          [ DISPOQ^DGPMV ]            |
                                                  |                   |
                                            KILL DGPMDER              |
                                                  |___________________|
                                                            |
                           MOVE^DGPMV ====================> 
                                                  |                   |
                                    -- END OF ARGUMENTLESS DO .--     |
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                     SET XQORQUIT=1
                                                       SET DGPME=0
                                                            |
                                                      [ UC^DGPMV ]
                                                            |
                                               < "^1^4^"[("^"_DGPMT_"^") >
                                                  |                   |
                                            { CHK^DGPMV }             |
                                                            __________|
                                                            |
                                     < '$$HASMVT^DGPMAPI8(DFN,$S(DGPMT'=5:1,1:4)
) >                                                         |
                                                  |                   |
                                     -- START OF ARGLESS DO .--       |
                                                  |                   |
                                              NEW EPAR                |
                                   SET EPAR(1)=$P(PAT("NAME"),U,2)    |
         SET EPAR(2)=$S(DGPMT'=5:$$EZBLD^DIALOG(4070000.021),1:$$EZBLD^DIALOG(40
70000.004))                                       |                   |
                                  SET EPAR(2)=$$UP^XLFSTR(EPAR(2))    |
                                                  |                   |
                            WRITE--- !!,$$EZBLD^DIALOG(4070000.164,.EPAR)
                                                  |                   |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                            < 'DGUSEOR >              |
                                        |                   |         |
                                 { PAT1^DGPMV }             |         |
                                                  __________|         |
                                                  |                   |
                                             { Q^DGPMV }              |
                                                            __________|
                                                            |
                            CHK^DGPMV ====================> 
                                                  |                   |
                                    -- END OF ARGUMENTLESS DO .--     |
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                                                        < DGPMN >
                                                  |                   |
                                            [ REG^DGPMV ]             |
                                                  |___________________|
                                                            |
                                                 < 'DGPME,PAT("DTHDT") >
                                                  |                   |
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                           [ DIED^DGPMV ]             |
                                                  |___________________|
                                                            |
                                                    [ NEW^DGPMVODS ]
                                                            |
                      < $S('DGODSON:0,'PAT("POFSRV"):1,'$$GETPSRV^DGPMAPI8(+PAT(
"POFSRV")):1,1:0) >                                         |
                                                  |                   |
                                             SET DGPME=1              |
                                                  |___________________|
                                                            |
                                                       < 'DGPME >
                                                  |                   |
                                             [ ^DGPMV1 ]              |
                                                  |___________________|
                                                            |
                                                      < 'DGUSEOR >
                                                  |                   |
                                           { PAT1^DGPMV }             |
                                                            __________|
                                                            |
                                                       { Q^DGPMV }

                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                            REG^DGPMV ====================> 
                                                            |
                                                      [ NEW^DGRP ]
                                                            |
                                 WRITE--- !!,"NEW PATIENT!  WANT TO LOAD 10-10 D
ATA NOW"                                                    |
                                                            |
                                                         SET %=1
                                                            |
                                                       [ YN^DICN ]
                                                            |
                                                         < %=1 >
                                                  |                   |
                                            [ ENED^DGRP ]             |
                                                  |                   |
                                        < '$D(^DPT(DFN,0)) >          |
                                        |                   |         |
                                   SET DGPME=1              |         |
                                        |___________________|         |
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                                         < %>0 >
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                                                          < % >
                                                  |                   |
                                             SET DGPME=1              |
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
              WRITE--- !?4,"Answer YES if you want to load 10/10 data at this ti
me otherwise answer NO.",*7                                 |
                                                            |
                                                      { REG^DGPMV }

                           DIED^DGPMV ====================> 
                                                            |
                                             SET TXT(1)=$P(PAT("DTHDT"),U,2)
                                   SET %=$$ASK^DGPMVN(4070000.117,4070000.118,2,
.TXT)                                                       |
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                                         < %=1 >
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                                                          < % >
                                                  |                   |
                                             SET DGPME=1              |
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                              Q^DGPMV ====================> 
                                                            |
                                                         KILL %
                                                        KILL DFN
                                                        KILL DGER
                                                       KILL DGPM5X
                                                       KILL DGODS
                                                      KILL DGODSON
                                                       KILL DGPMUC
                                                       KILL DGPME
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                       KILL DGPMN
                                                       KILL DGPMT
                                                       KILL DGPMPC
                                                        KILL DIC
                                                         KILL X
                                                         KILL Y
                                                KILL ^UTILITY("VAIP",$J)
                                                        KILL LMVT
                                                            |
                                                     [ KVAR^VADPT ]
                                                            |
                                                    < '$G(DGUSEOR) >
                                                  |                   |
                                            KILL XQORQUIT             |
                                                  |___________________|
                                                      KILL DGUSEOR
                                                            |
                                                       *** QUIT ***

                             UC^DGPMV ====================> 
                                                            |
               SET DGPMUC=$$UP^XLFSTR($$EZBLD^DIALOG("4070000.01"_$S(DGPMT=6&$D(
DGPMPC):DGPMT+1,1:DGPMT)))                                  |
                                                            |
                                                       *** QUIT ***

                             CA^DGPMV ====================> 
                                                            |
                                                      [ UC^DGPMV ]
                                                            |
                                                        KILL VAIP
                                                  SET VAIP("E")=DGPMCA
                                                       NEW DGPMCA
                                          SET %=$$GETLASTM^DGPMAPI8(.LMVT,DFN)
                                                     SET DGPMBYP=""
                                                            |
                                                      [ C^DGPMV1 ]
                                                            |
                                                      SET Y=DGPMBYP
                                                       KILL DGPMUC
                                                      KILL DGPMBYP
                                                            |
                                                       *** QUIT ***

                          DISPO^DGPMV ====================> 
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                       SET DGPMT=1
                                                  SET (DGPML,DGPMMD)=""
                                                      KILL DGPMDER
                                                        KILL VAIP
                                                    SET VAIP("D")="L"
                                                            |
                                                      [ UC^DGPMV ]
                                                            |
                                                     [ INP^DGPMV10 ]
                                                            |
                                                      [ NOW^%DTC ]
                                                            |
                                          < DGPMVI(1)&('DGPMDCD!(DGPMDCD>%)) >
                                                  |                   |
        WRITE--- !,"Patient is already an inpatient...editing the admission is n
ot allowed."                                      |                   |
                                                  |                   |
                                          [ DISPOQ^DGPMV ]            |
                                                  |                   |
                                            KILL DGPMDER              |
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                                                    < $$LODGER(DFN) >
                                                  |                   |
                 WRITE--- !,*7,"Patient is a lodger...you can not add an admissi
on!"                                              |                   |
                                                  |                   |
                                          [ DISPOQ^DGPMV ]            |
                                                  |                   |
                                            KILL DGPMDER              |
                                                  |                   |
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                                                    [ NEW^DGPMVODS ]
                                                            |
                     < $S('DGODSON:0,'$D(^DPT(DFN,.32)):1,'$D(^DIC(21,+$P(^(.32)
,"^",3),0)):1,1:0) >                                        |
                                                  |                   |
                                             SET DGPME=1              |
                                                  |___________________|
                                                      SET DEF="NOW"
                                                      SET DGPM1X=0
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                     [ SEL^DGPMV2 ]
                                                            |
                                                    < '$D(DGPMDER) >
                                                  |                   |
                                            SET DGPMDER=1             |
                                                  |___________________|
                                                            |
                         DISPOQ^DGPMV ====================> 
                                                            |
                                                      [ Q^DGPMV1 ]
                                                            |
                                                       KILL DGODS
                                                      KILL DGODSON
                                                       KILL DGPMT
                                                       KILL DGPMSV
                                                      KILL DGPMSVC
                                                       KILL DGPMUC
                                                       KILL DGPMN
                                                KILL ^UTILITY("VAIP",$J)
                                                            |
                                                       *** QUIT ***

                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                      USINGOR^DGPMV() ====================> 
                                                            |
                                                       NEW RETURN
                                                          NEW X
                                                      SET RETURN=0
                                              SET X=+$$VERSION^XPDUTL("OR")
                                                            |
                                                  < X<3,$D(ORACTION) >
                                                  |                   |
                                            SET RETURN=1              |
                                                  |___________________|
                                                            |
                                                   < X'<3,$D(ORMENU) >
                                                  |                   |
                                            SET RETURN=1              |
                                                  |___________________|
                                                            |
                                                   *** QUIT RETURN ***

                    LODGER^DGPMV(DFN) ====================> 
                                                            |
                                                       NEW DGPMDCD
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                       NEW DGPMVI
                                                          NEW I
                                                          NEW X
                                          SET %=$$GETLASTM^DGPMAPI8(.LMVT,DFN)
                                                            |
                                             *** QUIT +$G(LMVT("TYPE"))=4 ***




                          Press RETURN to continue, '^' to halt...to halt...[12;1H[1;1H[J[2J[H
DGSWITCH
...................................[3;1H[1;1H[J[2J[H
                                                            |
                    DGSWITCH^DGSWITCH ====================> 
                                                            |
                          EN^DGSWITCH ====================> 
                                                            |
                                                KILL ^UTILITY("DGPM",$J)
                                                 SET (DGSWITCH,DGOERR)=0
                                                     SET XQORQUIT=1
                                                      KILL ORACTION
                                                            |
                                      READ--- !!,"SWITCH BED FOR PATIENT: ",X:DT
IME                                                         |
                                                            |
                                                  < X["^"!'$T!(X="") >
                                                  |                   |
                                           { Q^DGSWITCH }             |
                                                            __________|
                                                            |
                                                    SET DIC(0)="QZEM"
                                               SET DIC("S")="I $D(^(.1))"
                                                     SET DIC="^DPT("
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                        [ ^DIC ]
                                                            |
                                                        < Y'>0 >
                                                  |                   |
                                           { EN^DGSWITCH }            |
                                                            __________|
                                                            |
                                                       SET DFN=+Y
                                                            |
                        OERR^DGSWITCH ====================> 
                                                            |
                                          SET %=$$GETLASTM^DGPMAPI8(.LMVT,DFN)
                                                       SET DGPMT=2
                                                            |
                                                     [ CS^DGPMV10 ]
                                                            |
                                                    < 'LMVT("MFN") >
                                                  |                   |
                              WRITE--- *7,!?5,"NO ADMISSIONS ON FILE!"
                                                  |                   |
                                         { REASK^DGSWITCH }           |
                                                            __________|
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                                       WRITE--- !
                                                            |
                                                   < LMVT("DISIFN") >
                                                  |                   |
                              WRITE--- !,"Patient is not in-house!",*7
                                                  |                   |
                                         { REASK^DGSWITCH }           |
                                                            __________|
                                                            |
                                              SET PAR("DATE")=$$NOW^XLFDT()
                                                 SET PAR("PATIENT")=DFN
                                              SET PAR("WARD")=LMVT("WARD")
                                                            |
                                                   < LMVT("TYPE")=1 >
                                                  |                   |
                                          SET DIE="^DGPM("            |
                                             SET DR=.07               |
                                        SET DA=LMVT("ADMIFN")         |
                                    SET I=LMVT("ADMDT")+.0000005      |
                                             SET DGPMT=1              |
                                                  |                   |
                                          [ DIE^DGSWITCH ]            |
                                                  |                   |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                         { REASK^DGSWITCH }           |
                                                            __________|
                                                            |
                                                   < LMVT("TYPE")>1 >
                                                  |                   |
                                      SET X=U_LMVT("MASTYPE")_U       |
                                                  |                   |
                                   < "^2^3^13^25^26^43^44^45^"[X >    |
                                        |                   |         |
        WRITE--- !,"Not while ",$S("^2^3^25^26^"[X:"on absence",1:"ASIH")
                                        |                   |         |
                               { REASK^DGSWITCH }           |         |
                                                  __________|         |
                                                  |___________________|
                                                            |
                                                        SET DA=I
                                                       SET DGPMT=2
                                                            |
                                                    [ DIE^DGSWITCH ]
                                                            |
                       REASK^DGSWITCH ====================> 
                                                            |
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                    < '$D(ORACTION) >
                                                  |                   |
                                           { EN^DGSWITCH }            |
                                                            __________|
                                                            |
                           Q^DGSWITCH ====================> 
                                                            |
                                                     [ KVAR^VADPT ]
                                                            |
                                                    < '$D(ORACTION) >
                                                  |                   |
                                            KILL XQORQUIT             |
                                                  |___________________|
                                                        KILL DFN
                                                       KILL DGPMDA
                                                      KILL DGPMDCD
                                                       KILL DGPMA
                                                       KILL DGPMOC
                                                       KILL DGPMOS
                                                       KILL DGPMP
                                                       KILL DGPMT
                                                       KILL DGPMVI
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                                       KILL DGOERR
                                                      KILL DGSWITCH
                                                        KILL DIC
                                                         KILL A
                                                         KILL D
                                                         KILL DA
                                                         KILL DR
                                                         KILL I
                                                         KILL X
                                                         KILL Y
                                                        KILL DIE
                                                KILL ^UTILITY("DGPM",$J)
                                                            |
                                                       *** QUIT ***

                        OREN^DGSWITCH ====================> 
                                                            |
                                                      SET DGPMDA=""
                                                     SET DGSWITCH=0
                                                            |
                                                      < '$D(ORVP) >
                                                  |                   |
                          Press RETURN to continue, '^' to halt...to halt...[24;1H[1;1H[J[2J[H
                                             *** QUIT ***             |
                                                            __________|
                                                            |
                                                    SET (Y,DFN)=+ORVP
                                                            |
                                                    { OERR^DGSWITCH }

                         DIE^DGSWITCH ====================> 
                                                            |
                                                  < $D(^DGPM(+DA,0)) >
                                                  |                   |
                                            SET DGPMDA=DA             |
                          SET (DGPMP,^UTILITY("DGPM",$J,DGPMT,DA,"P"))=^(0)
                                                  |                   |
                                              [ ^DIE ]                |
                                                  |                   |
                      SET (DGPMA,^UTILITY("DGPM",$J,DGPMT,DA,"A"))=^DGPM(DA,0)
                                                  |                   |
                                         [ RESET^DGPMDDCN ]           |
                                                  |___________________|
                                                            |
                                              < $D(DGPMP),(DGPMP'=DGPMA) >
                                                  |                   |
                          Press RETURN to continue, '^' to halt...to halt...[1;1H[1;1H[J[2J[H
                                           [ EN^DGPMVBM ]             |
                                                  |                   |
                                            [ ^DGPMEVT ]              |
                                                  |___________________|
                                                            |
                                                       *** QUIT ***




                          Press RETURN to continue, '^' to halt...to halt...[12;1H[1;1H[J[2J[H

GTM>[?1h=GTM>