Select the objects that you wish to see in the downloaded PDF
S DIC("S")="I '$P(^(0),U,6)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
JUL 28, 2005
S DIC("S")="I '$P(^(0),U,6)"
MUST NOT BE AN INACTIVE CODE
90002.98^B
1)= S ^BCHRGAS("B",$E(X,1,30),DA)=""
2)= K ^BCHRGAS("B",$E(X,1,30),DA)
90002.98^AY9^MUMPS
1)= S:$D(BCHLOOK) DIC("DR")=""
2)= Q
Sets DIC("DR") to prevent the asking of identifiers when file shifting.
NOV 04, 2011
90002.98^AC
1)= S ^BCHRGAS("AC",$E(X,1,30),DA)=""
2)= K ^BCHRGAS("AC",$E(X,1,30),DA)
90002.98^AD
1)= S ^BCHRGAS("AD",$E(X,1,30),DA)=""
2)= K ^BCHRGAS("AD",$E(X,1,30),DA)
S DIC("S")="I $$SC^BCHUTIL(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
OCT 27, 2011
S DIC("S")="I $$SC^BCHUTIL(Y)"
If this is a patient encounter, must be a patient related service code.
K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
NOV 16, 2011
Type a Number between 0 and 9999, 0 Decimal Digits
MAR 22, 2011
S DIC("S")="I $$SETDICS^BCHUTIL($G(BCHPROB),$G(BCHSERV))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
MAR 15, 2011
S DIC("S")="I $$SETDICS^BCHUTIL($G(BCHPROB),$G(BCHSERV))"
MUST BE APPROPRIATE.
K:+X'=X!(X>$S($G(BCHCOUNT):BCHCOUNT,1:99))!(X<1)!(X?.E1"."1N.N) X
Type a Number between 1 and 99, 0 Decimal Digits
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
K:$L(X)>80!($L(X)<1) X
OCT 25, 2011
Answer must be 1-80 characters in length.