Mumps Class 18
From VistApedia
Using username "sam".
sam@172.16.16.142's password:
Access denied
sam@172.16.16.142's password:
Linux sam-desktop 2.6.32-30-generic #59-Ubuntu SMP Tue Mar 1 21:30:21 UTC 2011 i686 GNU/Linux
Ubuntu 10.04.2 LTS
Welcome to Ubuntu!
* Documentation: https://help.ubuntu.com/
0 packages can be updated.
0 updates are security updates.
Last login: Sun Mar 20 10:28:46 2011 from 172.16.16.56
sam@sam-desktop:~$ cd pocn-moh/
sam@sam-desktop:~/pocn-moh$ . run_utf8
sam@sam-desktop:~/pocn-moh$ mumps -dikr
%GTM-E-CLIERR, Unrecognized option : DIKR
sam@sam-desktop:~/pocn-moh$ mumps -dir
GTM>; Using Devices;
GTM>; Communicating using GT.M to the outside world
GTM>; Open & Use & Close
GTM>; Open - Opens a Device
GTM>; Use - Makes the Device the one you write and read from
GTM>; Close - self-explanator
GTM>; Close - self-explanatory
GTM>; Open - O; Use - U; Close - C
GTM>O "/tmp/sam.txt"
GTM>W $IO
/dev/pts/3
GTM>W $PRINCIPLE
%GTM-E-INVSVN, Invalid special variable name
GTM>W $PRINCIPAL
/dev/pts/3
GTM>; $IO - Device I am writing to
GTM>; $Principal - Device I started GT.M with.
GTM>U "/tmp/sam.txt"
GTM>W "$IO is ",$IO,!
GTM>W "$P is ",$P,!
GTM>C "/tmp/sam.txt"
GTM>w $io
/dev/pts/3
GTM>W $P
/dev/pts/3
GTM>ZSY "cat /tmp/sam.txt"
$IO is /tmp/sam.txt
$P is /dev/pts/3
GTM>h
sam@sam-desktop:~/pocn-moh$ cd
sam@sam-desktop:~$ ls
1281251308247.xls
astropubkey.asc
AUPNLK_investigation.txt
Desktop
Documents
Downloads
examples.desktop
fm-projection
GF3.mp3
Music
mysql-dfsg-5.1-5.1.41
mysql-dfsg-5.1-5.1.41-1
ovtemp
paps-0.6.8
paps_0.6.8-2.diff.gz
paps_0.6.8-2.dsc
paps_0.6.8.orig.tar.gz
patches
Pictures
pocn-moh
Public
rpms201011
swdev
swdev-prod-platinum_online_all_mumps.mbk_2010151220002.tgz
Templates
TMGGRC1.m
TMGGRC2.m
TMGGRC3.m
Videos
vistadev-prod-platinum_online_all_mumps.mbk_2009341121729.tgz
sam@sam-desktop:~$ cat TMGGRC1.m
TMGGRC1 ;TMG/kst-Work with Growth Chart Data ;10/5/10 ; 3/13/11 11:48am
;;"1.0;TMG-LIB;**1**;10/5/10;Build 21
;
;"Code FOR working with pediatric growth chart data.
;"NOTE: Data is stored in custom file 22713
;" TMGFIX3 loaded in this data
;"
;"Kevin Toppenberg MD
;"(C) 10/5/10
;"Released under: GNU General Public License (GPL)
;
;"=======================================================================
;" RPC -- Public Functions.
;"=======================================================================
;"LENPCTL(AGEYR,GENDER,LEN,NONULL) -- Return percentile of length FOR age
;"HCPCTL(AGEYR,GENDER,HC,NONULL) -- Return percentile of head circumference for age
;"WTPCTL(AGEYR,GENDER,WT,NONULL) -- Return percentile of weight for age
;"BMIPCTL(AGEYR,GENDER,BMI,NONULL) -- Return percentile of BMI FOR age
;"WTLENPCT(AGEYR,GENDER,WT,LEN,NONULL) - Return percentile of WT, LEN combo
;"WHOHAPCTL(AGEYR,GENDER,LEN,NONULL) -- Return percentile of WHO height FOR age
;"WHOHCPCTL(AGEYR,GENDER,HC,NONULL) -- Return percentile of WHO head circumference for age
;"WHOWAPCTL(AGEYR,GENDER,WT,NONULL) -- Return percentile of WHO weight for age
;"WHOBAPCTL(AGEYR,GENDER,BMI,NONULL) -- Return percentile of WHO BMI FOR age
;"WHOWLPCT(AGEYR,GENDER,WT,LEN,NONULL) - Return percentile of WHO WT, LEN combo
;"WHOWSPCT(AGEYR,GENDER,WT,LEN,NONULL) - Return percentile of WHO WT,Stature combo
;"---
;"LENREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"HCREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WTREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"BMIREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WTLENREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WHOBMIREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WHOHAREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WHOWAREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WHOHCREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WHOWLREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"WHOWSREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves
;"=======================================================================
;"PRIVATE API FUNCTIONS
;"=======================================================================
;"COMMON(GRAPH,YVAL,XVAL,GENDER,NONULL) -- common lookup for all graphs
;"GETLMS(CHART,MONTHS,GENDER,L,M,S) --return the LMS values for a given chart
;"LMS2Z(X,L,M,S) --convert Input value X, and L,M,S SET into a Z score
;"LMSZ2Y(L,M,S,Z) --convert a LMS pair + Z score into a value (e.g. weight for Z=-1.645)
;"LMSP2Y(L,M,S,P) --convert LMS pair + %tile --> value (e.g. weight for 5th %tile)
;"Z2PCTL(Z)-- Convert a Z score into a Percentile
;"PCTL2Z(P) -- Convert a percentile to an approximated Z-score
;"SETSUFFIX(NUM) --Return a suffix, e.g. 1-->'st %tile', 2--> '2nd %tile' etc.
;"
;"=======================================================================
;
LENPCTL(AGEYR,GENDER,LEN,NONULL) ;
;"Purpose: Return percentile of length for age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" LEN: stature or recumbent length in *Cm*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW GRAPH,RESULT
IF (+$GET(AGEYR)*12)<24 SET GRAPH="LENGTH BY AGE -- INFANT"
ELSE SET GRAPH="STATURE BY AGE"
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
SET RESULT=$$COMMON(GRAPH,.LEN,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
HCPCTL(AGEYR,GENDER,HC,NONULL) ;
;"Purpose: Return percentile of head circumference for age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" HC: Head circumference in *Cm*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
NEW RESULT
SET RESULT=$$COMMON("HEAD CIRC BY AGE -- INFANT",.HC,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
WTPCTL(AGEYR,GENDER,WT,NONULL) ;
;"Purpose: Return percentile of weight for age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" WT: weight in *Kg*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW GRAPH,RESULT
IF (+$GET(AGEYR)*12)<24 SET GRAPH="WEIGHT BY AGE -- INFANT"
ELSE SET GRAPH="WEIGHT BY AGE"
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
SET RESULT=$$COMMON(GRAPH,.WT,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
BMIPCTL(AGEYR,GENDER,BMI,NONULL) ;
;"Purpose: Return percentile of BMI FOR age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" BMI: weight in Kg/M**2
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
NEW RESULT
SET RESULT=$$COMMON("BMI BY AGE",.BMI,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
WTLENPCT(AGEYR,GENDER,WT,LEN,NONULL) ;
;"Purpose: Return percentile of WT, LEN combo
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" WT: weight in Kg
;" LEN: stature or recumbent length in *Cm*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW GRAPH,RESULT
IF ((+$GET(AGEYR)*12)<12)!(LEN<77) DO
. SET GRAPH="WEIGHT FOR LENGTH -- INFANT"
ELSE DO
. SET GRAPH="WEIGHT FOR STATURE"
SET RESULT=$$COMMON(GRAPH,.WT,.LEN,.GENDER,.NONULL) ;
QUIT RESULT
;
WHOHAPCTL(AGEYR,GENDER,LEN,NONULL) ;
;"Purpose: Return percentile of WHO length for age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" LEN: stature or recumbent length in *Cm*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW RESULT
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
SET RESULT=$$COMMON("WHO-HEIGHT BY AGE",.LEN,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
WHOHCPCTL(AGEYR,GENDER,HC,NONULL) ;
;"Purpose: Return percentile of WHO head circumference for age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" HC: Head circumference in *Cm*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
NEW RESULT
SET RESULT=$$COMMON("WHO-HEAD CIRC BY AGE",.HC,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
WHOWAPCTL(AGEYR,GENDER,WT,NONULL) ;
;"Purpose: Return percentile of WHO weight for age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" WT: weight in *Kg*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW RESULT
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
SET RESULT=$$COMMON("WHO-WEIGHT BY AGE",.WT,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
WHOBAPCTL(AGEYR,GENDER,BMI,NONULL) ;
;"Purpose: Return percentile of WHO BMI FOR age
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" BMI: weight in Kg/M**2
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
NEW MONTHS SET MONTHS=+$GET(AGEYR)*12
NEW RESULT
SET RESULT=$$COMMON("WHO-BMI BY AGE",.BMI,.MONTHS,.GENDER,.NONULL) ;
QUIT RESULT
;
WHOWLPCTL(AGEYR,GENDER,WT,LEN,NONULL) ;
;"Purpose: Return percentile of WHO WT, LEN combo
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" WT: weight in Kg
;" LEN: stature or recumbent length in *Cm*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW RESULT
SET RESULT=$$COMMON("WHO-WEIGHT FOR LENGTH",.WT,.LEN,.GENDER,.NONULL) ;
QUIT RESULT
;
WHOWSPCT(AGEYR,GENDER,WT,LEN,NONULL) ;
;"Purpose: Return percentile of WHO WT, STATURE combo
;"Input: AGEYR: age in *Years*
;" GENDER: should be M or F
;" WT: weight in Kg
;" LEN: stature or recumbent length in *Cm*
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
NEW RESULT
SET RESULT=$$COMMON("WHO-WEIGHT FOR STATURE",.WT,.LEN,.GENDER,.NONULL) ;
QUIT RESULT
;
COMMON(GRAPH,YVAL,XVAL,GENDER,NONULL) ;
;"Purpose: common lookup for all graphs
;"Input: GRAPH -- The name of the graph to lookup.
;" YVAL -- the value to lookup on the graph
;" XVAL: Will be: Months or Length
;" GENDER: should be M or F
;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of ''
;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A'
;
NEW DIC,X,Y,L,M,S
SET NONULL=$GET(NONULL)
NEW RESULT SET RESULT=$SELECT(+NONULL'=0:"N/A",1:"") ;"default
IF +$GET(XVAL)=0 GOTO COMQT
SET GENDER=$EXTRACT($$UP^XLFSTR(GENDER),1)
IF (GENDER'="M")&(GENDER'="F") GOTO COMQT
SET YVAL=+$GET(YVAL) IF YVAL=0 GOTO COMQT
SET DIC=22713,DIC(0)="M",X=$GET(GRAPH)
DO ^DIC
IF +Y'>0 GOTO COMQT
;"IF GRAPH="WHO-WEIGHT FOR LENGTH" SET XVAL=XVAL\1 ;"ELH TEST
IF +$$GETLMS(Y,XVAL,GENDER,.L,.M,.S)<0 GOTO COMQT
NEW Z SET Z=$$LMS2Z(YVAL,L,M,S)
NEW W SET W=$$Z2PCTL(Z)\1
IF W=-1 SET RESULT="Invalid value" GOTO COMQT
SET RESULT=$$SETSUFFIX(W)
;
COMQT QUIT RESULT
;
LENREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs
;" GENDER -- M OR F
;" ARRAY -- PASS BY REFERENCE. AN OUT PARAMETER. PRIOR VALUES KILLED.
;" ARRAY(%tile,Age)=x^y
;" RLINES -- OPTIONAL. Default='5,10,25,50,75,95' Listing of which lines to get
;"Result: none
NEW GRAPH
IF +$GET(MODE)=1 SET GRAPH="LENGTH BY AGE -- INFANT"
ELSE SET GRAPH="STATURE BY AGE"
DO COMMONREF(MODE,GENDER,GRAPH,.ARRAY,.RLINES) ;
QUIT
;
HCREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for LENREF (see above)
DO COMMONREF(MODE,GENDER,"HEAD CIRC BY AGE -- INFANT",.ARRAY) ;
QUIT
;
WTREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for LENREF (see above)
NEW GRAPH
IF +$GET(MODE)=1 SET GRAPH="WEIGHT BY AGE -- INFANT"
ELSE SET GRAPH="WEIGHT BY AGE"
DO COMMONREF(MODE,GENDER,GRAPH,.ARRAY,.RLINES) ;
QUIT
;
BMIREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for LENREF (see above)
DO COMMONREF(MODE,GENDER,"BMI BY AGE",.ARRAY,.RLINES) ;
QUIT
;
WTLENREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs
;" GENDER -- M OR F
;" ARRAY -- PASS BY REFERENCE. AN OUT PARAMETER. PRIOR VALUES KILLED.
;" ARRAY(%tile,x)=x^y ;x=LengthOrStature
;" RLINES -- OPTIONAL. Default='5,10,25,50,75,95' Listing of which lines to get
NEW GRAPH
IF +$GET(MODE)=1 SET GRAPH="WEIGHT FOR LENGTH -- INFANT"
ELSE SET GRAPH="WEIGHT FOR STATURE"
DO COMMONREF(MODE,GENDER,GRAPH,.ARRAY,.RLINES) ;
QUIT
;
WHOBMIREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs, 3 if age range 0-60 months
DO COMMONREF(MODE,GENDER,"WHO-BMI BY AGE",.ARRAY,.RLINES) ;
QUIT
;
WHOHAREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for WHOBMIREF (see above)
DO COMMONREF(MODE,GENDER,"WHO-HEIGHT BY AGE ",.ARRAY,.RLINES) ;
QUIT
;
WHOWAREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for WHOBMIREF (see above)
DO COMMONREF(MODE,GENDER,"WHO-WEIGHT BY AGE",.ARRAY,.RLINES) ;
QUIT
;
WHOHCREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for WHOBMIREF (see above)
DO COMMONREF(MODE,GENDER,"WHO-HEAD CIRC BY AGE",.ARRAY,.RLINES) ;
QUIT
;
WHOWLREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for WHOBMIREF (see above)
DO COMMONREF(MODE,GENDER,"WHO-WEIGHT FOR LENGTH",.ARRAY,.RLINES) ;
QUIT
;
WHOWSREF(MODE,GENDER,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: Same as for WHOBMIREF (see above)
DO COMMONREF(MODE,GENDER,"WHO-WEIGHT FOR STATURE",.ARRAY,.RLINES) ;
QUIT
;
COMMONREF(MODE,GENDER,GRAPH,ARRAY,RLINES) ;
;"Purpose: Return array filled with data for percentile curves
;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs, 3 if age range 0-60 months
;" 4 age range 0-24 months, 5 age range 24-60 months, 6 age range 0-6 months,
;" 7 age range 6-24 months, 8 age range 0-13 months
;" GENDER -- M OR F
;" GRAPH -- Name of graph
;" ARRAY -- PASS BY REFERENCE. AN OUT PARAMETER. PRIOR VALUES KILLED.
;" ARRAY(%tile,x)=x^y
;" RLINES -- OPTIONAL. Default='5,10,25,50,75,95' Listing of which %tile lines to get
;"Result: none
NEW DIC,X,Y,L,M,S
KILL ARRAY
SET GENDER=$EXTRACT($$UP^XLFSTR(GENDER),1)
IF (GENDER'="M")&(GENDER'="F") GOTO CMRFQT
SET DIC=22713,DIC(0)="M",X=$GET(GRAPH)
DO ^DIC
IF +Y'>0 GOTO CMRFQT
NEW IEN SET IEN=+Y
NEW X0,XINC,XMAX
IF (GRAPH="WEIGHT FOR LENGTH -- INFANT") DO
. SET X0=80,XINC=5,XMAX=140 ;"X axis here is LENGTH, and Y = Weight
. ;"SET X0=45,XINC=10,XMAX=105 ;"X axis here is LENGTH, and Y = Weight
ELSE IF (GRAPH="WEIGHT FOR STATURE") DO
. SET X0=75,XINC=5,XMAX=125 ;"X axis here is STATURE, and Y = Weight
ELSE IF (GRAPH="WHO-WEIGHT FOR LENGTH") DO
. SET X0=65,XINC=5,XMAX=130
ELSE DO
. IF MODE=1 SET X0=0,XINC=1,XMAX=36
. ELSE IF MODE=2 SET X0=24,XINC=12,XMAX=240
. ELSE IF MODE=3 SET X0=0,XINC=2,XMAX=60
. ELSE IF MODE=4 SET X0=0,XINC=1,XMAX=24
. ELSE IF MODE=5 SET X0=24,XINC=2,XMAX=60
. ELSE IF MODE=6 SET X0=0,XINC=1,XMAX=6
. ELSE IF MODE=7 SET X0=6,XINC=2,XMAX=24
. ELSE SET X0=0,XINC=1,XMAX=3
SET RLINES=$GET(RLINES,"5,10,25,50,75,95")
SET X=X0
NEW ZARRAY,Z
NEW ABORT SET ABORT=0
FOR DO SET X=X+XINC QUIT:(X>XMAX)!ABORT
. IF +$$GETLMS(IEN,X,GENDER,.L,.M,.S)<0 SET ABORT=1 QUIT
. NEW P,PCTLNUM
. FOR PCTLNUM=1:1:$LENGTH(RLINES,",") DO
. . SET P=+$PIECE(RLINES,",",PCTLNUM) QUIT:(P'>0)
. . IF $GET(ZARRAY(P))="" SET ZARRAY(P)=$$PCTL2Z(P)
. . SET Z=ZARRAY(P)
. . NEW VAL SET VAL=$$LMSZ2Y(L,M,S,Z)
. . SET VAL=+$JUSTIFY(VAL,0,2)
. . SET ARRAY(P,X)=X_"^"_VAL
;
CMRFQT QUIT
;
;"====================================================================
;"====================================================================
GETLMS(CHART,MONTHS,GENDER,L,M,S) ;
;"Purpose: return the LMS values for a given chart
;"Input: CHART --Name of the chart to reference, OR, IEN^Name of chart to use.
;" MONTHS -- The age to use for lookup in the chart
;" GENDER -- MUST be "M" or "F" FOR male or female
;" L, M, S -- PASS BY REFERENCE, OUT Parameters. Prior values killed
;"Results: 1 IF successful, -1^Message IF error (Message is optional)
;"Output: L,M,S are filled with data IF valid
NEW RESULT SET RESULT=0
NEW IEN SET IEN=+$GET(CHART)
IF IEN'>0 DO
. NEW DIC,X,Y
. SET DIC=22713,DIC(0)="M"
. SET X=$GET(CHART)
. DO ^DIC
. SET IEN=+Y
IF IEN'>0 DO GOTO GLMSDN
. SET RESULT="-1^Unable to find chart: '"_$GET(CHART)_"'"
SET GENDER=$GET(GENDER)
IF (GENDER'="M")&(GENDER'="F") DO GOTO GLMSDN
. SET RESULT="-1^Invalid GENDER. Should be 'M' or 'F'. Got: '"_GENDER_"'"
SET MONTHS=$GET(MONTHS)
IF +MONTHS'=MONTHS DO GOTO GLMSDN
. SET RESULT="-1^Invalid AGE. Should be numeric value. Got: '"_MONTHS_"'"
KILL L,M,S
NEW MO1,MO2
IF (CHART="13")!(CHART["13^WHO") DO ;"WHO-WEIGHT FOR LENGTH
. NEW N SET N=$JUSTIFY(MONTHS,0,1)
. NEW D SET D=$PIECE(N,".",2)
. SET N=$PIECE(N,".",1)
. IF D'<0.5 DO
. . SET MO1=N_".5"
. . SET MO2=MONTHS\1+1
. ELSE DO
. . SET MO1=MONTHS\1
. . SET MO2=MO1+0.5
ELSE DO
. SET MO1=(MONTHS\1)-.01
. IF MO1<0 DO
. . SET MO1=0
. . SET MO2=0.99
. ELSE SET MO2=MO1+1
;
IF MO1=23.99 DO
. IF (CHART="1")!(CHART="5")!(CHART="4")!(CHART["1^BMI")!(CHART["5^WEIGHT")!(CHART["4^STATURE") SET MO1=24
NEW L1,L2,M1,M2,S1,S2
;
IF $$GEXCTLMS(IEN,MO1,GENDER,.L1,.M1,.S1)=0 DO GOTO GLMSDN
. SET RESULT="-1^Unable to find LMS data for lower end of age range."
IF $$GEXCTLMS(IEN,MO2,GENDER,.L2,.M2,.S2)=0 DO GOTO GLMSDN
. SET RESULT="-1^Unable to find LMS data for upper end of age range."
;
DO INTRPLMS(MONTHS,MO1,MO2,L1,M1,S1,L2,M2,S2,.L,.M,.S)
;
;"Get correct Age interval
;"IF $DATA(^TMG(22713,IEN,"D","B",MONTHS))=0 DO GOTO:(+RESULT=-1) GLMSDN
;". NEW MONTHS2 SET MONTHS2=$ORDER(^TMG(22713,IEN,"D","B",MONTHS)) ;"convert e.g. 31.2 --> 31.99
;". IF CHART'["13^WHO" DO ;"WHO-WEIGHT FOR LENGTH
;". . IF (MONTHS\1)'=(MONTHS2\1) SET MONTHS2="" ;"Ensure e.g. 31.2 doesn't goto 40.99
;". IF MONTHS2="" DO QUIT
;". . SET RESULT="-1^Unable to find age interfal FOR AGE: Got: '"_MONTHS_"'"
;". SET MONTHS=MONTHS2
;"NEW DONE SET DONE=0
;"NEW I SET I=0
;"FOR SET I=$ORDER(^TMG(22713,IEN,"D","B",MONTHS,I)) QUIT:(+I'>0)!DONE DO
;". NEW NODE SET NODE=$GET(^TMG(22713,IEN,"D",I,0)) QUIT:NODE=""
;". IF $PIECE(NODE,"^",2)'=GENDER QUIT
;". SET DONE=1,RESULT=1
;". SET L=$PIECE(NODE,"^",3)
;". SET M=$PIECE(NODE,"^",4)
;". SET S=$PIECE(NODE,"^",5)
GLMSDN QUIT RESULT
;
GEXCTLMS(CHART,MONTHS,GENDER,L,M,S) ;
;"Purpose: return the LMS values for a given chart -- ROUNDING AGE TO EXACT INTERVAL
;"Note: input validation not done in this function. Private API
;"Input: CHART -- IEN of the chart to reference
;" MONTHS -- The age to use for lookup in the chart -- ROUNDED TO EXACT INTERVAL
;" It is expected that this month will EXACTLY match the intervals in the data
;" GENDER -- MUST be "M" or "F" FOR male or female
;" L, M, S -- PASS BY REFERENCE, OUT Parameters. Prior values killed
;"Results: 1 IF successful, 0 otherwise
;"Output: L,M,S are filled with data IF valid
KILL L,M,S
NEW DONE SET DONE=0
NEW I SET I=0
IF $EXTRACT(MONTHS,1)="." SET MONTHS="0"_MONTHS
FOR SET I=$ORDER(^TMG(22713,IEN,"D","B",MONTHS,I)) QUIT:(+I'>0)!DONE DO
. NEW NODE SET NODE=$GET(^TMG(22713,IEN,"D",I,0)) QUIT:NODE=""
. IF $PIECE(NODE,"^",2)'=GENDER QUIT
. SET DONE=1,RESULT=1
. SET L=$PIECE(NODE,"^",3)
. SET M=$PIECE(NODE,"^",4)
. SET S=$PIECE(NODE,"^",5)
QUIT ($DATA(L)'=0)
;
INTRPLMS(MONTHS,MO1,MO2,L1,M1,S1,L2,M2,S2,L,M,S) ;
;"Purpose: to return an interpolated LMS based on input values
;"Input: MONTHS -- the patient's actual age
;" MO1,M02 -- the patient's age rounded to lower and upper ends of age range
;" L1,M1,S2 -- the LMS values for the lower end of the age range
;" L2,M2,S2 -- the LMS values for the upper end of the age range
;" L,M,S -- PASS BY REFERENCE. This is the output values
SET L=$$INTERPLT(MONTHS,MO1,MO2,L1,L2)
SET M=$$INTERPLT(MONTHS,MO1,MO2,M1,M2)
SET S=$$INTERPLT(MONTHS,MO1,MO2,S1,S2)
QUIT
;
INTERPLT(X,X1,X2,Y1,Y2) ;
;"Purpose: Return an interpolated value
;"Input: X - the measured value
;" X1,X2 -- the lower and upper known x values
;" Y1,Y2 -- the lower and upper known y values
;"Results: returns the interpolated value
NEW SLOPE SET SLOPE=(Y2-Y1)/(X2-X1)
NEW B SET B=Y1-(SLOPE*X1)
NEW RESULT SET RESULT=(SLOPE*X)+B
QUIT RESULT
;
LMS2Z(X,L,M,S) ;
;"Purpose: convert Input Patient measurement value X, and L,M,S SET into a Z score
;"Input: X -- This is the value of the patient measurement, units should
;" be the same as specified in INPUT UNITS field FOR record
;" L,M,S -- These are Values as may be obtained by GETLMS()
;"Results: Outputs the Z score
;"
;"formula used is Z = [((X/M)**L) - 1] / LS where L <> 0
;" or Z = ln(X/M)/S where L=0
NEW RESULT SET RESULT=0
SET L=+$GET(L),M=+$GET(M),S=+$GET(S),X=+$GET(X)
IF L=0 DO
. NEW T
. SET T=X/M
. SET T=$$LN^XLFMTH(T)
. SET RESULT=T/S
ELSE DO
. NEW T
. SET T=X/M
. SET T=(T**L)-1
. SET RESULT=T/(L*S)
QUIT RESULT
;
LMSZ2Y(L,M,S,Z) ;
;"Purpose: To convert a LMS pair + Z score into a value (e.g. weight FOR 5th %tile, Z=-1.645)
;"Input: L,M,S -- LMS pair that describes normal distribution
;" Z -- The z-score corelating to the desired %tile
;"Results: Returns value requested
;"Formula used: X= M (1 +LSZ)**(1/L) IF L<>0 or X = M exp(SZ) IF L=0
;
NEW RESULT SET RESULT=0
SET L=+$GET(L),M=+$GET(M),S=+$GET(S),X=+$GET(X),Z=+$GET(Z)
NEW T
IF L=0 DO
. SET T=$$EXP^XLFMTH(S*Z)
ELSE DO
. SET T=((L*S*Z)+1)**(1/L)
SET RESULT=M*T
QUIT RESULT
;
LMSP2Y(L,M,S,P) ;
;"Purpose: To convert a LMS pair + Percentil into a value (e.g. weight FOR 5th %tile)
;"Input: L,M,S -- LMS pair that describes normal distribution
;" P -- Percentile of desired value. 0-100
;"Results: Returns value requested, or -1 IF error
NEW RESULT SET RESULT=-1
NEW Z SET Z=$$PCTL2Z(+$GET(P))
IF Z="E" GOTO LP2XDN
SET RESULT=$$LMSZ2Y(.L,.M,.S,Z)
LP2XDN QUIT RESULT
;
Z2PCTL(Z) ;
;"Purpose: To convert a Z score into a Percentile
;"Input: Z : zscore
;"Output: the Percentile, or -1 if invalid
;"NOTE: Code from Cameron Schlehuber
;
NEW $ETRAP SET $ETRAP="G ERRZ2PTL^TMGGRC1"
NEW TMGERR SET TMGERR=0
SET Z=+$GET(Z)
NEW ABZ SET ABZ=$$ABS^XLFMTH(Z)
; Overflow error can happen here. TMGERR set to 1 if error occurs
NEW P
SET P=1-((1/$$SQRT^XLFMTH(2*3.14159265))*$$EXP^XLFMTH(-(ABZ**2)/2)*(0.4361836*(1/(1+(0.33267*ABZ)))-(0.1201676*((1/(1+(0.33267*ABZ)))**2))+(0.937298*((1/(1+(0.33267*ABZ)))**3))))
IF TMGERR QUIT -1 ; Error happened.
IF Z>0 SET P=P*100
ELSE SET P=100-(P*100)
;" SET P=P\1 ;"truncate decimal portion
QUIT P
;
ERRZ2PTL ; Process Error from Z2Percenticle function.
S $ETRAP="D ^%ZTER H"
I $ECODE[",M92," SET $ECODE="",TMGERR=1 QUIT:$QUIT "" QUIT ; Process Numeric Overflow error
E QUIT:$QUIT "" QUIT ; Otherwise, let default error handler do its work
PCTL2Z(P) ;
;"Purpose: To Convert a percentile to an approximated Z-score
;"Input: P : Percentile (should be 0-100)
;"Code from function critz found at http://www.fourmilab.ch/rpkp/experiments/analysis/zCalc.js
;" notes state that code was in public domain
;"Results: returns percentile, or "E" IF error
;
NEW RESULT SET RESULT="E"
NEW ZEPSILON SET ZEPSILON=0.000001 ;"Accuracy of Z approximation
NEW MINZ SET MINZ=-6
NEW MAXZ SET MAXZ=6
NEW ZVAL SET ZVAL=0
NEW PVAL
SET P=+$GET(P)/100
IF (P<0)!(P>1) GOTO PC2ZDN
FOR QUIT:((MAXZ-MINZ)'>ZEPSILON) DO
. SET PVAL=$$Z2PCTL(ZVAL)/100
. IF PVAL>P SET MAXZ=ZVAL
. ELSE SET MINZ=ZVAL
. SET ZVAL=(MAXZ+MINZ)*0.5
SET RESULT=ZVAL
PC2ZDN QUIT RESULT
;
SETSUFFIX(NUM) ;
;"Purpose: Return a suffix, e.g. 1-->"st %tile", 2--> "2nd %tile" etc.
;"Input: NUM -- integer >0
SET NUM=+$GET(NUM)
NEW ENDNUM SET ENDNUM=$E(NUM,$L(NUM))+1 SET:(ENDNUM>5) ENDNUM=5
QUIT NUM_$PIECE("th^st^nd^rd^th","^",ENDNUM)_" %tile"
;
;"=======================================================================
;"=======================================================================
TEST ;
NEW DIC,X,Y,Age,Gender
SET DIC=22713,DIC(0)="MAEQ"
DO ^DIC
IF +Y'>0 QUIT
write !
write "The age range FOR this graph is: ",$$GET1^DIQ(22713,+Y,.06),!
write "Please input ",$$GET1^DIQ(22713,+Y,.02)," (in ",$$GET1^DIQ(22713,+Y,.03),"): "
read Age:60
write !
IF Age="^" QUIT
write "Please enter patient value FOR ",$$GET1^DIQ(22713,+Y,.04)," (in ",$$GET1^DIQ(22713,+Y,.05),"): "
read X:60,!
IF X="^" QUIT
read "Please Enter GENDER (must be 'M' or 'F'): ",Gender:60,!
IF (Gender'="M")&(Gender'="F") write "??",! QUIT
NEW L,M,S
NEW TEMP SET TEMP=$$GETLMS(Y,Age,Gender,.L,.M,.S)
IF +TEMP<0 write $P(TEMP,"^",2),! QUIT
write "L=",L,!
write "M=",M,!
write "S=",S,!
NEW Z SET Z=$$LMS2Z(X,L,M,S)
write "That Z score is: ",Z,!
write "%tile=",$$Z2PCTL(Z)\1,!
write "For this input, we have the following normal values:",!
NEW pctl
FOR pctl=3,5,10,25,50,75,85,90,95,97 do
. write pctl,"th: ",$$LMSP2Y(L,M,S,pctl),!
QUIT
;
sam@sam-desktop:~$
sam@sam-desktop:~$ ls
1281251308247.xls
astropubkey.asc
AUPNLK_investigation.txt
Desktop
Documents
Downloads
examples.desktop
fm-projection
GF3.mp3
Music
mysql-dfsg-5.1-5.1.41
mysql-dfsg-5.1-5.1.41-1
ovtemp
paps-0.6.8
paps_0.6.8-2.diff.gz
paps_0.6.8-2.dsc
paps_0.6.8.orig.tar.gz
patches
Pictures
pocn-moh
Public
rpms201011
swdev
swdev-prod-platinum_online_all_mumps.mbk_2010151220002.tgz
Templates
TMGGRC1.m
TMGGRC2.m
TMGGRC3.m
Videos
vistadev-prod-platinum_online_all_mumps.mbk_2009341121729.tgz
sam@sam-desktop:~$ cd /tmp/
sam@sam-desktop:/tmp$ ls
fis-gtm keyring-XLFo0U pulse-PKdhtXMmr18n ssh-qnykOl3605
gedit.sam.3636843392 orbit-gdm pulse-YmsbHF1V23X7
gtm_mutex00000F83 orbit-sam sam.txt
sam@sam-desktop:/tmp$ vim toread.txt
sam@sam-desktop:/tmp$ cd -
/home/sam
sam@sam-desktop:~$ cd pocn-moh/
sam@sam-desktop:~/pocn-moh$ mumps -dir
GTM>O "/tmp/toread.txt"
GTM>U "/tmp/toread.txt"
GTM>FOR READ X QUIT:$ZEOF S Y(X)=""
%GTM-E-QUITARGUSE, Quit cannot take an argument in this context
FOR READ X QUIT:$ZEOF S Y(X)=""
^-----
GTM>FOR READ X QUIT:$ZEOF S Y(X)=""
GTM>C "/tmp/toread.txt"
GTM>zwrite Y
Y("Line 1")=""
Y("Line 2")=""
Y("Line 3")=""
Y("Line 4")=""
GTM>; if writing to a file, you can add the following flags:
GTM>; (newversion): deletes the file and starts over
GTM>; (append); add to the end of the file.
GTM>O "/tmp/sam.txt":(append)
GTM>U "/tmp/sam.txt"
GTM>w "hello",!
GTM>w "hello again",!
GTM>C "/tmp/sam.txt"
GTM>zsy "cat /tmp/sam.txt"
$IO is /tmp/sam.txt
$P is /dev/pts/3
hello
hello again
GTM>O "/tmp/sam.txt":(newversion)
GTM>U "/tmp/sam.txt"
GTM>W "HELLO"
GTM>c "/tmp/sam.txt"
GTM>rec zsy
GTM>zsy "cat /tmp/sam.txt"
HELLO
GTM>O "/tmp/sam.txt"
GTM>U "/tmp/sam.txt"
GTM>W "HELLO AGAIN"
%GTM-E-NOTTOEOFONPUT, Not positioned to EOF on write (sequential organization only)
GTM>W !,"HELLO AGAIN"
%GTM-E-NOTTOEOFONPUT, Not positioned to EOF on write (sequential organization only)
GTM>U "/tmp/sam.txt":(truncate)
GTM>W !,"HELLO AGAIN"
GTM>c "/tmp/sam.txt"
GTM>rec zsy
GTM>zsy "cat /tmp/sam.txt"
HELLO AGAIN
GTM>open "/home/vista/.vim"
%SYSTEM-E-ENO2, No such file or directory
GTM>open "/home/vista/.vim"::5
%SYSTEM-E-ENO2, No such file or directory
GTM>; You can put the descriptors in a variable
GTM>S F="/tmp/sam.txt"
GTM>O F U F:(TRUNCATE) W "HELLO",!,"HELLO AGAIN",!,"HELLO 3" C F
GTM>rec zsy
GTM>zsy "cat /tmp/sam.txt"
HELLO
HELLO AGAIN
HELLO 3
GTM>; O F:(newversion)
GTM>; O F:(readonly)
GTM>; O F:(exception="g BADOPEN")
GTM>; U F:(width=132)
GTM>; O F:(append)
GTM>; C F:(delete)
GTM>O "/dev/pts/4"
GTM>U "/dev/pts/4"
GTM>W "Mickey mouse device",!
GTM>W "Isn't this so damn cool!!!",!
GTM>; Opening another terminal
GTM>C "/dev/pts/4"
GTM>; Null device
GTM>; /dev/null
GTM>set dev="/dev/null"
GTM>u dev
%GTM-E-IONOTOPEN, Attempt to USE an I/O device which has not been opened
GTM>o dev
GTM>u dev
GTM>w "this goes no where"
GTM>c dev
GTM>zed "XWBTCPM"
GTM>; Escape processing from the current device
GTM>; if a user presses, Ctrl-V, or F11, or Up or Down buttons, how to check
that?
GTM>U $P:(escape)
GTM>R X S ESC=$ZB
GTM>W X
GTM>W ESC
V
GTM>R X S ESC=$ZB
GTM>R *X S ESC=$ZB
GTM>W X
27
GTM>W ESC
T
GTM>R *X S ESC=$ZB
GTM>W X
27
GTM>W ESC
GTM>W ESC
GTM>R *X S ESC=$ZB
GTM>W X
27
GTM>W ESC
GTM>R *X S ESC=$ZB
GTM>W X
2
GTM>W ESC
GTM>H
sam@sam-desktop:~/pocn-moh$ mumps -dir
GTM>H
sam@sam-desktop:~/pocn-moh$ export TERM="ansi"
sam@sam-desktop:~/pocn-moh$ mumps -dir
GTM>U $P:(ESCAPE)
GTM>R *X S ESC=$ZB
GTM>W X
27
GTM>W ESC
GTM>U $P:(NOECHO)
GTM>R X
GTM>W X
SDFGJKERTYUKIDFGHJK
GTM>ZWRITE ^%ZOSF
^%ZOSF("$INC")=0
^%ZOSF("ACTJ")="S Y=$$ACTJ^%ZOSV()"
^%ZOSF("AVJ")="S Y=$$AVJ^%ZOSV()"
^%ZOSF("BRK")="U $I:(CENABLE)"
^%ZOSF("DEL")="D DEL^%ZOSV2(X) ;N %RD,%OD S %RD=$P($S($ZRO[""("":$P($P($ZRO,
""("",2),"")""),1:$ZRO),"" "")_""/"",%OD=$S($ZRO[""("":$P($ZRO,""(
"",1)_""/"",1:%RD) ZSYSTEM ""rm -f ""_%RD_X_"".m"" ZSYSTEM ""rm -f
""_%OD_X_"".o"""
^%ZOSF("EOFF")="U $I:(NOECHO)"
^%ZOSF("EON")="U $I:(ECHO)"
^%ZOSF("EOT")="S Y=$ZA\1024#2 ; <====="
^%ZOSF("ERRTN")="^%ZTER"
^%ZOSF("ETRP")="Q"
^%ZOSF("GD")="G ^%GD"
^%ZOSF("HASHLIST")="LEGACY|| MD5 SHA1 RIPEMD160 SHA256 SHA384 SHA512 SHA224
||/usr/bin/||GT.M (Unix)^19GNU/Linux||"
^%ZOSF("JOBPARAM")="G JOBPAR^%ZOSV"
^%ZOSF("LABOFF")="U IO:(NOECHO) ; <====="
^%ZOSF("LOAD")="D LOAD^%ZOSV2(X) ;S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^
@X) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
^%ZOSF("LPC")="S Y="""" ; <====="
^%ZOSF("MAGTAPE")="S %MT(""BS"")=""*1"",%MT(""FS"")=""*2"",%MT(""WTM"")=""*3
"",%MT(""WB"")=""*4"",%MT(""REW"")=""*5"",%MT(""RB"")=""*6"",%MT("
"REL"")=""*7"",%MT(""WHL"")=""*8"",%MT(""WEL"")=""*9"" ; <====="
^%ZOSF("MAXSIZ")="Q"
^%ZOSF("MGR")="EHR,EHR"
^%ZOSF("MTBOT")="S Y=$ZA\32#2 ; <====="
^%ZOSF("MTERR")="S Y=$ZA\32768#2 ; <====="
^%ZOSF("MTONLINE")="S Y=$ZA\64#2 ; <====="
^%ZOSF("MTWPROT")="S Y=$ZA\4#2 ; <====="
^%ZOSF("NBRK")="U $I:(NOCENABLE)"
^%ZOSF("NO-PASSALL")="U $I:(ESCAPE:TERMINATOR="""":NOPASTHRU)"
^%ZOSF("NO-TYPE-AHEAD")="U $I:(NOTYPEAHEAD)"
^%ZOSF("OS")="GT.M (Unix)^19"
^%ZOSF("PASSALL")="U $I:(NOESCAPE:NOTERMINATOR:PASTHRU)"
^%ZOSF("PRIINQ")="S Y=$$PRIINQ^%ZOSV()"
^%ZOSF("PRIORITY")="Q ;G PRIORITY^%ZOSV"
^%ZOSF("PROD")="EHR,EHR"
^%ZOSF("PROGMODE")="S Y=$$PROGMODE^%ZOSV()"
^%ZOSF("RD")="G ^%RD"
^%ZOSF("RESJOB")="Q:'$D(DUZ) Q:'$D(^XUSEC(""XUMGR"",+DUZ)) N XQZ S XQZ=""^
FORCEX[MGR]"" D DO^%XUCI ; <====="
^%ZOSF("RM")="U $I:WIDTH=$S(X<256:X,1:0)"
^%ZOSF("RSEL")="K ^UTILITY($J) D ^%RSEL S X="""" X ""F S X=$O(%ZR(X)) Q:X="
""""""" S ^UTILITY($J,X)="""""""""" K %ZR"
^%ZOSF("RSUM")="S Y=0 F %=1,3:1 S %1=$T(+%^@X),%3=$F(%1,"" "") Q:'%3 S %3=$
S($E(%1,%3)'="";"":$L(%1),$E(%1,%3+1)="";"":$L(%1),1:%3-2) F %2=1:
1:%3 S Y=$A(%1,%2)*%2+Y"
^%ZOSF("RSUM1")="N %,%1,%2,%3 S Y=0 F %=1,3:1 S %1=$T(+%^@X),%3=$F(%1,"" "")
Q:'%3 S %3=$S($E(%1,%3)'="";"":$L(%1),$E(%1,%3+1)="";"":$L(%1),1
:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*(%2+%)+Y"
^%ZOSF("SAVE")="D SAVE^%ZOSV2(X) ;N %I,%F S %I=$I,%F=$P($S($ZRO[""("":$P($P(
$ZRO,""("",2),"")""),1:$ZRO),"" "")_""/""_X_"".m"" O %F:(NEWVERSIO
N) U %F X ""F S XCN=$O(@(DIE_XCN_"""")"""")) Q:+XCN'=XCN S %=@(D
IE_XCN_"""",0)"""") Q:$E(%,1)=""""$"""" I $E(%)'="""";"""" W %,!"
" C %F U %I"
^%ZOSF("SIZE")="S Y=0 F I=1:1 S %=$T(+I) Q:%="""" S Y=Y+$L(%)+2 ; <====="
^%ZOSF("SS")="D ^ZSY"
^%ZOSF("TEST")="I X]"""",$T(^@X)]"""""
^%ZOSF("TMK")="S Y=$ZA\16384#2"
^%ZOSF("TMP")="/tmp/"
^%ZOSF("TRAP")="$ZT=""G ""_X"
^%ZOSF("TRMOFF")="U $I:(TERMINATOR="""")"
^%ZOSF("TRMON")="U $I:(TERMINATOR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1
6,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127))"
^%ZOSF("TRMRD")="S Y=$A($ZB)"
^%ZOSF("TYPE-AHEAD")="U $I:(TYPEAHEAD)"
^%ZOSF("UCI")="S Y=^%ZOSF(""PROD"")"
^%ZOSF("UCICHECK")="S Y=1"
^%ZOSF("UPPERCASE")="S Y=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKL
MNOPQRSTUVWXYZ"")"
^%ZOSF("VOL")="EHR"
^%ZOSF("XY")="S $X=DX,$Y=DY ; <====="
^%ZOSF("ZD")="S Y=$$HTE^XLFDT(X,2) I $L($P(Y,""/""))=1 S Y=0_Y"
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>U $P:(NOCENABLE)
GTM>U $P:(CENABLE)
%GTM-E-SPOREOL, Either a space or an end-of-line was expected but not found
U $P:(CENABLE).
^-----
GTM>U $P:(CENABLE)
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>H
%GTM-E-SPOREOL, Either a space or an end-of-line was expected but not found
H.
^-----
GTM>H
sam@sam-desktop:~/pocn-moh$ export TERM="linux"
sam@sam-desktop:~/pocn-moh$ gtm
%GTM-E-NONUTF8LOCALE, Locale has character encoding (ANSI_X3.4-1968) which is not compatible with UTF-8 character set
%GTM-E-NONUTF8LOCALE, Locale has character encoding (ANSI_X3.4-1968) which is not compatible with UTF-8 character set
%GTM-E-NONUTF8LOCALE, Locale has character encoding (ANSI_X3.4-1968) which is not compatible with UTF-8 character set
sam@sam-desktop:~/pocn-moh$ mumps -dir
GTM>O dev="/dev/null
%GTM-E-SPOREOL, Either a space or an end-of-line was expected but not found
O dev="/dev/null
^-----
GTM>h
sam@sam-desktop:~/pocn-moh$ export TERM="xterm"
sam@sam-desktop:~/pocn-moh$ mumps -dir
GTM>s
%GTM-E-SPOREOL, Either a space or an end-of-line was expected but not found
s
^-----
GTM>
GTM>r x
GTM>r y
GTM>w y
GTM>u $p:(escape)
GTM>r *x
GTM>w x
27
GTM>w $zb
P
GTM>r x
GTM>w x
GTM>set dev="/dev/null"
GTM>o dev u dev
GTM>w "this isn't going anywhere at all!!!"
GTM>c dev
GTM>set dev="/dev/pts/4"
GTM>o dev u dev
GTM>w "Hello",!
GTM>w "how are you?",!
GTM>c dev
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>%GTM-I-CTRLC, CTRL_C encountered
GTM>u $p:(nocenable)
GTM>
[1]+ Stopped mumps -dir
sam@sam-desktop:~/pocn-moh$ fg %1
mumps -dir
%GTM-E-CMD, Command expected but not found
..
^-----
GTM>u $p:(cenable)
GTM>zwrite ^DD(:)
^DD("$O")="S Y=""%"" F %=0:0 S Y=$O(@Y) Q:Y="""" S %=$D(@Y) S:%#2 @(X_""Y)=
""_Y) I %>9 S %X=Y_""("",%Y=X_""Y,"" D %XY^%RCR"
^DD("DD")="S Y=$$FMTE^DILIBF(Y,""5U"")"
^DD("DILOCKTM")=3
^DD("KWIC")="^AND^THE^THEN^FOR^FROM^OTHER^THAN^WITH^THEIR^SOME^THIS^and^the^
then^for^from^other^than^with^their^some^this"
^DD("OS")=19
^DD("ROU")=15000
^DD("SITE")="MOH - Amman, Jordan"
^DD("VERSION")="22.0"
GTM>zwrite ^%ZOSF
^%ZOSF("$INC")=0
^%ZOSF("ACTJ")="S Y=$$ACTJ^%ZOSV()"
^%ZOSF("AVJ")="S Y=$$AVJ^%ZOSV()"
^%ZOSF("BRK")="U $I:(CENABLE)"
^%ZOSF("DEL")="D DEL^%ZOSV2(X) ;N %RD,%OD S %RD=$P($S($ZRO[""("":$P($P($ZRO,
""("",2),"")""),1:$ZRO),"" "")_""/"",%OD=$S($ZRO[""("":$P($ZRO,""(
"",1)_""/"",1:%RD) ZSYSTEM ""rm -f ""_%RD_X_"".m"" ZSYSTEM ""rm -f
""_%OD_X_"".o"""
^%ZOSF("EOFF")="U $I:(NOECHO)"
^%ZOSF("EON")="U $I:(ECHO)"
^%ZOSF("EOT")="S Y=$ZA\1024#2 ; <====="
^%ZOSF("ERRTN")="^%ZTER"
^%ZOSF("ETRP")="Q"
^%ZOSF("GD")="G ^%GD"
^%ZOSF("HASHLIST")="LEGACY|| MD5 SHA1 RIPEMD160 SHA256 SHA384 SHA512 SHA224
||/usr/bin/||GT.M (Unix)^19GNU/Linux||"
^%ZOSF("JOBPARAM")="G JOBPAR^%ZOSV"
^%ZOSF("LABOFF")="U IO:(NOECHO) ; <====="
^%ZOSF("LOAD")="D LOAD^%ZOSV2(X) ;S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^
@X) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
^%ZOSF("LPC")="S Y="""" ; <====="
^%ZOSF("MAGTAPE")="S %MT(""BS"")=""*1"",%MT(""FS"")=""*2"",%MT(""WTM"")=""*3
"",%MT(""WB"")=""*4"",%MT(""REW"")=""*5"",%MT(""RB"")=""*6"",%MT("
"REL"")=""*7"",%MT(""WHL"")=""*8"",%MT(""WEL"")=""*9"" ; <====="
^%ZOSF("MAXSIZ")="Q"
^%ZOSF("MGR")="EHR,EHR"
^%ZOSF("MTBOT")="S Y=$ZA\32#2 ; <====="
^%ZOSF("MTERR")="S Y=$ZA\32768#2 ; <====="
^%ZOSF("MTONLINE")="S Y=$ZA\64#2 ; <====="
^%ZOSF("MTWPROT")="S Y=$ZA\4#2 ; <====="
^%ZOSF("NBRK")="U $I:(NOCENABLE)"
^%ZOSF("NO-PASSALL")="U $I:(ESCAPE:TERMINATOR="""":NOPASTHRU)"
^%ZOSF("NO-TYPE-AHEAD")="U $I:(NOTYPEAHEAD)"
^%ZOSF("OS")="GT.M (Unix)^19"
^%ZOSF("PASSALL")="U $I:(NOESCAPE:NOTERMINATOR:PASTHRU)"
^%ZOSF("PRIINQ")="S Y=$$PRIINQ^%ZOSV()"
^%ZOSF("PRIORITY")="Q ;G PRIORITY^%ZOSV"
^%ZOSF("PROD")="EHR,EHR"
^%ZOSF("PROGMODE")="S Y=$$PROGMODE^%ZOSV()"
^%ZOSF("RD")="G ^%RD"
^%ZOSF("RESJOB")="Q:'$D(DUZ) Q:'$D(^XUSEC(""XUMGR"",+DUZ)) N XQZ S XQZ=""^
FORCEX[MGR]"" D DO^%XUCI ; <====="
^%ZOSF("RM")="U $I:WIDTH=$S(X<256:X,1:0)"
^%ZOSF("RSEL")="K ^UTILITY($J) D ^%RSEL S X="""" X ""F S X=$O(%ZR(X)) Q:X="
""""""" S ^UTILITY($J,X)="""""""""" K %ZR"
^%ZOSF("RSUM")="S Y=0 F %=1,3:1 S %1=$T(+%^@X),%3=$F(%1,"" "") Q:'%3 S %3=$
S($E(%1,%3)'="";"":$L(%1),$E(%1,%3+1)="";"":$L(%1),1:%3-2) F %2=1:
1:%3 S Y=$A(%1,%2)*%2+Y"
^%ZOSF("RSUM1")="N %,%1,%2,%3 S Y=0 F %=1,3:1 S %1=$T(+%^@X),%3=$F(%1,"" "")
Q:'%3 S %3=$S($E(%1,%3)'="";"":$L(%1),$E(%1,%3+1)="";"":$L(%1),1
:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*(%2+%)+Y"
^%ZOSF("SAVE")="D SAVE^%ZOSV2(X) ;N %I,%F S %I=$I,%F=$P($S($ZRO[""("":$P($P(
$ZRO,""("",2),"")""),1:$ZRO),"" "")_""/""_X_"".m"" O %F:(NEWVERSIO
N) U %F X ""F S XCN=$O(@(DIE_XCN_"""")"""")) Q:+XCN'=XCN S %=@(D
IE_XCN_"""",0)"""") Q:$E(%,1)=""""$"""" I $E(%)'="""";"""" W %,!"
" C %F U %I"
^%ZOSF("SIZE")="S Y=0 F I=1:1 S %=$T(+I) Q:%="""" S Y=Y+$L(%)+2 ; <====="
^%ZOSF("SS")="D ^ZSY"
^%ZOSF("TEST")="I X]"""",$T(^@X)]"""""
^%ZOSF("TMK")="S Y=$ZA\16384#2"
^%ZOSF("TMP")="/tmp/"
^%ZOSF("TRAP")="$ZT=""G ""_X"
^%ZOSF("TRMOFF")="U $I:(TERMINATOR="""")"
^%ZOSF("TRMON")="U $I:(TERMINATOR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1
6,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127))"
^%ZOSF("TRMRD")="S Y=$A($ZB)"
^%ZOSF("TYPE-AHEAD")="U $I:(TYPEAHEAD)"
^%ZOSF("UCI")="S Y=^%ZOSF(""PROD"")"
^%ZOSF("UCICHECK")="S Y=1"
^%ZOSF("UPPERCASE")="S Y=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKL
MNOPQRSTUVWXYZ"")"
^%ZOSF("VOL")="EHR"
^%ZOSF("XY")="S $X=DX,$Y=DY ; <====="
^%ZOSF("ZD")="S Y=$$HTE^XLFDT(X,2) I $L($P(Y,""/""))=1 S Y=0_Y"
GTM>u $p:(width=132:wrap)
GTM>u $p:(length=50:width=132:wrap)
GTM>u $p:(length=30:width=132:wrap)
GTM>; TCP connections from Mumps - (connecting to the internet)
GTM>; Simplest example - open ssh port
GTM>O "tcpclient":(connect="127.0.0.1:22:TCP":attach="client"):5:"SOCKET"
GTM>u "tcpclient"
GTM>R X
GTM>c "tcpclient"
GTM>W X
SSH-2.0-OpenSSH_5.3p1 Debian-3ubuntu5
GTM> "tcpclient":(connect="towel.blinkenlights.nl:23:TCP":attach="client")ST
%GTM-E-CMD, Command expected but not found
"tcpclient":(connect="towel.blinkenlights.nl:23:TCP":attach="client"):5:SOCKET
^-----
GTM> "tcpclient":(connect="towel.blinkenlights.nl:23:TCP":attach="client"):5:"SOCKET"
%GTM-E-CMD, Command expected but not found
"tcpclient":(connect="towel.blinkenlights.nl:23:TCP":attach="client"):5:"SOCKET"
^-----
GTM> "tcpclient":(connect="towel.blinkenlights.nl:23:TCP":attach="client"):5:"SOCKET"
%GTM-E-CMD, Command expected but not found
"tcpclient":(connect="towel.blinkenlights.nl:23:TCP":attach="client"):5:"SOCKET"
^-----
GTM>O "tcpclient":(connect="towel.blinkenlights.nl:23:TCP":attach="client"):5:"SOCKET"
GTM>U "tcpclient"
GTM>F R X U $P W X,! U "tcpclient" Q:X=""
/~\
|oo )
. . . .
_\=/_
___ /
_ \
/() \ //|/.\|\\
_|____ _____
_|_ \\ \_/ || __|
| | === | | \|\ /| ||
|====__ _________ |(O)|===|__
|_| O |_| # _ _/ #
|| O || | | |
. <>
||__*__|| | | |
|~ \___/ ~| []|[]
. .
/=\ /=\ /=\ | | |
________________[_]_[_]_[_]________/_]_[
_\_________________________
%GTM-I-CTRLC, CTRL_C encountered
%GTM-W-NOTPRINCIO, Output currently directed to device tcpclient
GTM>U $P
GTM>zshow "D"
/dev/null CLOSED
/dev/pts/3 OPEN TERMINAL NOPAST NOREADS TYPE WIDTH=132 LENG=30
/dev/pts/4 CLOSED
tcpclient OPEN SOCKET TOTAL=1 CURRENT=0
SOCKET[0]=client DESC=6 CONNECTED ACTIVE NOTRAP REMOTE=94.142.241.111@23
ZDELAY ZBFSIZE=1024 ZIBFSIZE=87380 NODELIMITER
GTM>c "tcpclient"
GTM>zshow "D"
/dev/null CLOSED
/dev/pts/3 OPEN TERMINAL NOPAST NOREADS TYPE WIDTH=132 LENG=30
/dev/pts/4 CLOSED
tcpclient CLOSED
GTM>zp ^KBANSTAR
KBANSTAR ; 3/22/11 3:12pm
;;
STARWARS
O "sam":(connect="towel.blinkenlights.nl:23:TCP":attach="client"):5:"SOCKET"
U "sam"
FOR D Q:X=""
. R X
. U $P
. W X,!
. U "sam"
C "sam"
QUIT
PYTHON
S D="d"
O D:(connect="diveintopython3.org:80:TCP":attach="client"):20:"SOCKET"
U D
; Send Headers
W "GET / HTTP/1.1",$C(13,10)
W "Host: diveintopython3.org",$C(13,10)
W "Accept: */*",$C(13,10)
W $C(13,10),!
; Receive Headers
N HEADER
FOR DO QUIT:X=""
. U D:(DELIMITER=$C(13,10))
. READ X
. QUIT:X=""
. S HEADER($P(X,":"))=$$TRIM^XLFSTR($P(X,":",2))
U D:(NODELIMITER)
R X#HEADER("Content-Length")
C D
QUIT
MUMPS
S D="d"
O D:(connect="127.0.0.1:9250:TCP":attach="client"):5:"SOCKET"
U D
W "[XWB]10304",$C(10),"TCPConnect50012172.16.16.88f00010f0012servicedesk1f",$C(4),!
U D:(DELIMITER=$C(4))
R X
W "[XWB]10304",$C(5),"#BYE#",$C(4),!
C D
QUIT
GTM>D PYTHON^KBANSTAR
GTM>ZWRITE HEADER
%GTM-E-UNDEF, Undefined local variable: HEADER
GTM>ZED
%GTM-E-ZEDFILSPEC, Illegal ZEDIT file specification:
GTM>ZED "KBANSTAR"
GTM>zl
GTM>D PYTHON^KBANSTAR
GTM>zwrite HEADER
HEADER("Accept-Ranges")="bytes"
HEADER("Connection")="close"
HEADER("Content-Length")=6685
HEADER("Content-Type")="text/html"
HEADER("Date")="Wed, 23 Mar 2011 08"
HEADER("ETag")="""1a1d-51ecd640"""
HEADER("HTTP/1.1 200 OK")=""
HEADER("Last-Modified")="Thu, 17 Feb 2011 22"
HEADER("Server")="Apache"
HEADER("Vary")="Accept-Encoding"
GTM>W X
<!DOCTYPE html>
<!-- readable source @ http://hg.diveintopython3.org/hgweb.cgi/file/tip/index.html -->
<meta charset=utf-8><title>Dive
Into Python 3</title><link rel=alternate type=application/atom+xml href=http://hg.diveintopython3.org/atom-log><style>body{font:med
ium/1.75 'Gill Sans','Gill Sans MT',Corbel,Helvetica,'Nimbus Sans L',sans-serif;word-spacing:.1em}pre,kbd,samp,code{font:small/2.154
Consolas,'Andale Mono',Monaco,'Liberation Mono','Bitstream Vera Sans Mono','DejaVu Sans Mono',monospace;word-spacing:0}.baa{font:ob
lique 105% Constantia,Baskerville,Palatino,'Palatino Linotype','URW Palladio L',serif}abbr{font-variant:small-caps;text-transform:lo
wercase;letter-spacing:.1em}.c{line-height:2.154}p,ol{margin:1.75em 0;font-size:medium}html{background:#fff;color:#222}body{margin:1
.75em 28px}.c{clear:both;text-align:center}.c{margin:2.154em 0}form div{float:right}a{text-decoration:none;border-bottom:1px dotted}
a:hover{border-bottom:1px solid}a:link{color:steelblue}a:visited{color:#b44582}.c a{color:inherit}pre{padding-left:2.154em;border-le
ft:1px solid #ddd}.c{font-size:small}ol,p,h1,h2{clear:left}pre a{padding:.4375em 0}.p{color:#667}code,samp{line-height:inherit!impor
tant}pre a,pre a:hover{border:0}h1,h2{font-family:"Book Antiqua",Palatino,Georgia,serif}h1,h2{font-variant:small-caps}h1,h2{letter-s
pacing:-1px}h1{font-size:xx-large;line-height:1.3125}h2{font-size:x-large;line-height:1.167;margin:1.167em 0}h1{border-bottom:4px do
uble;width:100%;margin:1.49em 0;counter-reset:h2}h1:before{content:"Chapter " counter(h1) ". "}h2:before{counter-increment:h2;conten
t:counter(h1) "." counter(h2) ". "}h2{counter-reset:h3}h1:before,h2:before{content:''}#a,#b,#c,#d{list-style:none;margin:0 0 0 -1.7e
m}#a:before{content:'A. \00a0 \00a0'}#b:before{content:'B. \00a0 \00a0'}#c:before{content:'C. \00a0 \00a0'}#d:before{content:'D. \00
a0 \00a0'}@media screen and (max-device-width:480px){body,.c,span,.c,p,ol{font:normal 12px/18px sans-serif}pre,kbd,samp,code{font:no
rmal 12px/18px monospace}.baa{font:normal 14px/18px serif}abbr{font-variant:normal;text-transform:none;letter-spacing:0}.c,p,ol,h2{m
argin:1.75em 0}html{color:#000}body{margin:4px 2px 0 2px}a{text-decoration:underline;border-bottom:0}pre a{text-decoration:none}h1,h
2,pre{padding:0;border:0;letter-spacing:0}h1{margin:0}h1{font:normal 18px/18px serif}h2{font:normal 16px/18px serif}h1:before{conten
t:""}form,form+p{display:none}}@media print{body{font-size:12pt}pre,kbd,samp,code{font-size:10pt;line-height:2.1}span{font-size:12pt
}.baa{font-size:13pt}p,ol{font-size:12pt}html,body{background:#fff;margin:0;padding:0}a{text-decoration:none;border-bottom:1px dotte
d}html,a:link,a:visited{color:#000}pre{border:0}.c{font-size:10pt;line-height:2.1}h1{font-size:24pt}h2{font-size:18pt}form,form+p{di
splay:none!important}}</style><script>_gaq=[['_setAccount','UA-7434570-3'],['_trackPageview']];(function(){var g=document.createElem
ent('script');g.src='//www.google-analytics.com/ga.js';g.setAttribute('async','true');document.documentElement.firstChild.appendChil
d(g);})();</script><meta name=viewport content='initial-scale=1.0'><form action=http://www.google.com/cse><div><input type=hidden na
me=cx value=014021643941856155761:l5eihuescdw><input type=hidden name=ie value=UTF-8><input type=search name=q size=25 placeholder="
powered by Google™"> <input type=submit name=sa value=Search></div></form><p>You are here: <span title="Ce n'est pas
un point" style='cursor:default'>•</span><h1>Dive Into Python 3</h1><p><cite>Dive Into Python 3</cite> covers Python 3 and its diff
erences from Python 2. Compared to <cite><a href=http://diveintopython.org/>Dive Into Python</a></cite>, it’s about 20% revised and
80% new material. The book is now complete, but <a href=about.html>feedback is always welcome</a>.<h2>Table of Contents (<a href=tab
le-of-contents.html>expand</a>)</h2><p style="float:right;width:245px;text-align:center;margin:0 0 0 1.75em"><a style="border:0" hre
f="http://www.amazon.com/gp/product/1430224150?ie=UTF8&tag=diveintomark-20&creativeASIN=1430224150" title="Affiliate link =
I earn an extra buck"><em>Also available on dead trees!</em><br><img src="i/cover.jpg" alt="Dive Into Python 3" width=245 height=300
></a><ol start=-1><li><a href=whats-new.html>What’s New in “Dive Into Python 3”</a><li><a href=installing-python.html>Installing Pyt
hon</a><li><a href=your-first-python-program.html>Your First Python Program</a><li><a href=native-datatypes.html>Native Datatypes</a
><li><a href=comprehensions.html>Comprehensions</a><li><a href=strings.html>Strings</a><li><a href=regular-expressions.html>Regular
Expressions</a><li><a href=generators.html>Closures <i class=baa>&</i> Generators</a><li><a href=iterators.html>Classes <i class
=baa>&</i> Iterators</a><li><a href=advanced-iterators.html>Advanced Iterators</a><li><a href=unit-testing.html>Unit Testing</a>
<li><a href=refactoring.html>Refactoring</a><li><a href=files.html>Files</a><li><a href=xml.html>XML</a><li><a href=serializing.html
>Serializing Python Objects</a><li><a href=http-web-services.html>HTTP Web Services</a><li><a href=case-study-porting-chardet-to-pyt
hon-3.html>Case Study: Porting <code>chardet</code> to Python 3</a><li><a href=packaging.html>Packaging Python Libraries</a><li id=a
><a href=porting-code-to-python-3-with-2to3.html>Porting Code to Python 3 with <code>2to3</code></a><li id=b><a href=special-method-
names.html>Special Method Names</a><li id=c><a href=where-to-go-from-here.html>Where to Go From Here</a><li id=d><a href=troubleshoo
ting.html>Troubleshooting</a></ol><p>The book is freely licensed under the <a rel=license href=http://creativecommons.org/licenses/b
y-sa/3.0/>Creative Commons Attribution Share-Alike</a> license. You can download it as <a href=d/diveintopython3-html-latest.zip><ab
br>HTML</abbr></a> or <a href=d/diveintopython3-pdf-latest.zip><abbr>PDF</abbr></a>. Über-geeks can also clone the Mercurial reposit
ory:<pre><samp class=p>you@localhost:~$ </samp><kbd>hg clone <a href=http://hg.diveintopython3.org/>http://hg.diveintopython3.org/</
a> diveintopython3</kbd>© 2001–10 <a href=about.html>Mark Pilgrim</a><p class=c>Translations: <a href=http://code.g
oogle.com/p/inmersionenpython3/ lang=es hreflang=es>en español</a>, <a href=http://gpiancastelli.altervista.org/dip3-it/ lang=it hre flang=it>in italiano</a>, <a href="http://ru.wikisource.org/wiki/%D0%9F%D0%BE%D0%B3%D1%80%D1%83%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5_%D0%B2 _Python_3_(%D0%9F%D0%B8%D0%BB%D0%B3%D1%80%D0%B8%D0%BC)" lang=ru hreflang=ru>на русском языке</a>, <a href=http://www.diveintopython3 .ir/ lang=fa hreflang=fa dir=rtl>به پارسی</a> GTM>
GTM>zed
GTM>O "ftp":(connect="ftp.microsoft.com:21:TCP":attach="client"):20:"SOCKET"
GTM>R X %GTM-I-CTRLC, CTRL_C encountered
GTM>U "ftp"
GTM>R X
GTM>U $P W X 220 Microsoft FTP Service
GTM>U "ftp"
GTM>R X %GTM-I-CTRLC, CTRL_C encountered %GTM-W-NOTPRINCIO, Output currently directed to device ftp
GTM>W "USER anonymous",!
GTM>R X:0
GTM>U $P W X
GTM>U "ftp"
GTM>R X %GTM-I-CTRLC, CTRL_C encountered %GTM-W-NOTPRINCIO, Output currently directed to device ftp
GTM>R X:0
GTM>U $P
GTM>W X
GTM>U $P
GTM>W $DEVICE
GTM>C "ftp"
GTM>O "ftp":(connect="ftp.microsoft.com:21:TCP":attach="client"):20:"SOCKET"
GTM>u "ftp"
GTM>r x1:1
GTM>W "USER anonymous",!
GTM>r x2:1
GTM>w "PASS lksdjfkds",!
GTM>r x3:1
GTM>c "ftp"
GTM>zwrite D="d" HEADER("Accept-Ranges")="bytes" HEADER("Connection")="close" HEADER("Content-Length")=6685 HEADER("Content-Type")="text/html" HEADER("Date")="Wed, 23 Mar 2011 08" HEADER("ETag")="""1a1d-51ecd640""" HEADER("HTTP/1.1 200 OK")="" HEADER("Last-Modified")="Thu, 17 Feb 2011 22" HEADER("Server")="Apache" HEADER("Vary")="Accept-Encoding" X="" dev="/dev/pts/4" x="" x1="220 Microsoft FTP Service"_$C(13,10) x2="" x3="" y=""
GTM>u "ftp" %GTM-E-IONOTOPEN, Attempt to USE an I/O device which has not been opened
GTM>O "ftp":(connect="ftp.microsoft.com:21:TCP":attach="client"):20:"SOCKET"
GTM>u "ftp"
GTM>r x:1
GTM>w "anonymous"
GTM>r x:1
GTM>u $p
GTM>w x
GTM>u "ftp"
GTM>w x
GTM>h sam@sam-desktop:~/pocn-moh$ mumps -dir
GTM>zed "KBANSTAR"
GTM>D MUMPS^KBANSTAR
O D:(connect="ftp.microsoft.com:21:TCP":attach="client":20:"SOCKET"
^-----
At column 58, line 34, source module /home/sam/pocn-moh/routines/KBANSTAR.m
%GTM-E-DEVPARUNK, Deviceparameter unknown
GTM>W X accept GTM>ZED
GTM>
</pre>
