Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(741.99

Package: Occurrence Screen

Global: ^QA(741.99


Information

FileMan FileNo FileMan Filename Package
741.99 QA OCCURRENCE AUTO RUN DATES Occurrence Screen

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Occurrence Screen 3 QAOSPURG    ^QA(741.99    QAOSPAU0    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Occurrence Screen 2 QAOSPURG    QAOSSFR0    

Fields, Total: 16

Field # Name Loc Type Details
.01 AUTO ENROLL RUN DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 08, 1993
  • HELP-PROMPT:  This field contains the date auto enroll ran.
  • DESCRIPTION:  
    This field contains the date that auto enroll ran.
  • CROSS-REFERENCE:  741.99^B
    1)= S ^QA(741.99,"B",$E(X,1,30),DA)=""
    2)= K ^QA(741.99,"B",$E(X,1,30),DA)
1 *TOTAL 101 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 01, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 101 records auto enrolled.
1.1 TOTAL 101.1 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 01, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 101.1 records auto enrolled.
2 TOTAL 102 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 102 records auto enrolled.
3 *TOTAL 103 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 103 records auto enrolled.
4.1 *TOTAL 104.1 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 104.1 records auto enrolled.
4.2 *TOTAL 104.2 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 104.2 records auto enrolled.
5.1 *TOTAL 105.1 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 105.1 records auto enrolled.
5.2 *TOTAL 105.2 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 105.2 records auto enrolled.
6.1 TOTAL 106.1 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 106.1 records auto enrolled.
6.2 *TOTAL 106.2 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 106.2 records auto enrolled.
7 TOTAL 107 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 107 records auto enrolled.
8 TOTAL 108 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 108 records auto enrolled.
9 TOTAL 109 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 109 records auto enrolled.
10 TOTAL PATIENTS AUTO ENROLLED COMPUTED

  • MUMPS CODE:  X ^DD(741.99,10,9.3) S X=X+$P(Y(741.99,10,1),U,12)+$P(Y(741.99,10,1),U,13)+$P(Y(741.99,10,1),U,15) S X=$J(X,0,0)
    9.2 = S Y(741.99,10,1)=$S($D(^QA(741.99,D0,0)):^(0),1:"") S X=$P(Y(741.99,10,1),U,2)+$P(Y(741.99,10,1),U,14)+$P(Y(741.99,10,1),U,3)+$P(Y(741.99,10,1),U,4)+$P(Y(741.99,10,1),U,5)
    9.3 = X ^DD(741.99,10,9.2) S X=X+$P(Y(741.99,10,1),U,6)+$P(Y(741.99,10,1),U,7)+$P(Y(741.99,10,1),U,8)+$P(Y(741.99,10,1),U,9)+$P(Y(741.99,10,1),U,10)+$P(Y(741.99,10,1),U,11)
  • ALGORITHM:  #1+#1.1+#2+#3+#4.1+#4.2+#5.1+#5.2+#6.1+#6.2+#7+#8+#9+#99 (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field computes the sum of all the 'TOTAL #' fields in the file.
99 TOTAL 199 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 12, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of screen 199 records auto enrolled.

External References

Name Field # of Occurrence
^%DT .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( |dd741
^DD(200 |dd741.01
^DD(49 |dd741.01
^DD(741 |dd741
^DD(741.1 |dd741, |dd741.4, |dd741.5
^DD(741.99 10+1, 10OF9.3+1, |dd741.99
^DIC(49 - [#49] |dd741.01
^DPT - [#2] |sort
^QA(741 - [#741] |dd741*!, |dd741*!, |dd741.01*!, |dd741.017*!, |dd741.024*!, |dd741.025*!, |dd741.026*!, |dd741.12*!, |dd741.15*!, |sort
^QA(741.1 - [#741.1] |dd741, |dd741.1*!, |dd741.4, |dd741.5, |sort
^QA(741.2 - [#741.2] |dd741.01, |dd741.2*!
^QA(741.3 - [#741.3] |dd741.3*!
^QA(741.4 - [#741.4] |dd741.01, |dd741.4*!
^QA(741.5 - [#741.5] |dd741.5*!
^QA(741.6 - [#741.6] |dd741, |dd741.01, |dd741.017, |dd741.6*!
^QA(741.7 - [#741.7] |dd741.15, |dd741.7*!
^QA(741.8 - [#741.8] |dd741, |dd741.01, |dd741.017, |dd741.8*!
^QA(741.9 - [#741.9] |dd741.9*!
^QA(741.93 - [#741.93] |dd741.93*!
^QA(741.95 - [#741.95] |dd741.95*!
^QA(741.97 - [#741.97] |dd741.97*!
^QA(741.99 - [#741.99] .01(XREF 1S), .01(XREF 1K), 10OF9.2+1, |dd741.99*!
^VA(200 - [#200] |dd741.01

Naked Globals

Name Field # of Occurrence
^("SCRN" |dd741, |sort
^(0 10OF9.2+1, |dd741*, |dd741, |dd741.01, |dd741.017, |dd741.1, |dd741.15, |dd741.2, |dd741.4, |dd741.5
, |dd741.6, |dd741.7, |dd741.8, |dd741.95, |dd741.97, |dd741.99, |sort
^(1 |dd741.4
^(2 |dd741.01, |dd741.4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, |dd741*, |dd741.01*, |dd741.95*, |dd741.99*
>> %DT(0 |dd741*!, |dd741.01*!, |dd741.95*!
%H |opt!
%I |dd741*!, |dd741.01*!, |dd741.4*!, |dd741.5*!
%W |opt!
%X |opt!
%Y |opt!
C |dd741*, |dd741.01*, |dd741.4*, |dd741.5*, |opt!
>> D0 10OF9.2+1, |dd741*, |dd741.99, |sort
>> DA .01(XREF 1S), .01(XREF 1K), |dd741, |dd741, |dd741.01*, |dd741.017, |dd741.024, |dd741.025, |dd741.026, |dd741.1
, |dd741.12, |dd741.15, |dd741.2, |dd741.3, |dd741.4, |dd741.5, |dd741.6, |dd741.7, |dd741.8, |dd741.9
, |dd741.93, |dd741.95, |dd741.97, |dd741.99
>> DA(1 |dd741.01, |dd741.017, |dd741.024, |dd741.025, |dd741.026, |dd741.12, |dd741.15
>> DA(2 |dd741.12, |dd741.15
DI |opt!
DIC |dd741*!, |dd741.01*!, |dd741.017*!, |dd741.12*!, |dd741.15*!, |dd741.4, |dd741.5, |dd741.9
DIC("S" |dd741*, |dd741.01*, |dd741.017*, |dd741.1*, |dd741.12*, |dd741.15*
DIDEL |opt*!
>> DIE |dd741, |dd741.01, |dd741.017, |dd741.12, |dd741.15
>> DIG |dd741*
>> DIH |dd741*
>> DINUM |dd741.1*
>> DIU |dd741*
DIV |dd741*!
DIV(0 |dd741*
DLAYGO |opt*!
DQ |opt!
DT |dd741, |dd741.01
QA |dd741*!, |dd741.01*!, |dd741.4*!, |dd741.95!
QA("DA" |dd741.01*
QA("SCRN" |dd741*
QA(1 |dd741*, |dd741.95*
QA(2 |dd741.95*
QA(3 |dd741*
QADL |dd741*!
>> QAOSD0 |dd741.01
QAQADICT |dd741*~, |dd741.01*~
QAQAFLD |dd741*~, |dd741.01*~
QAQAX |dd741*!, |dd741.01*!
QAQAXREF |dd741~, |dd741.01~
>> QAQINST |dd741.1
QAUDIT |dd741~
QAUDIT("DA" |dd741*
QAUDIT("FILE" |dd741*
U 10+1, 10OF9.2+1, 10OF9.3+1, |dd741, |dd741.01, |dd741.1, |dd741.2, |dd741.4, |dd741.5, |dd741.6
, |dd741.7, |dd741.8, |dd741.95, |dd741.97, |dd741.99, |sort
V |opt!
W |opt!
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1.1+1!, 2+1!, 3+1!, 4.1+1!, 4.2+1!, 5.1+1!
, 5.2+1!, 6.1+1!, 6.2+1!, 7+1!, 8+1!, 9+1!, 10+1*, 10OF9.2+1*, 10OF9.3+1*, 99+1!
, |dd741*!, |dd741*!, |dd741, |dd741.01*!, |dd741.017*!, |dd741.024, |dd741.025, |dd741.026, |dd741.1!, |dd741.12*!
, |dd741.15*!, |dd741.2!, |dd741.3, |dd741.4!, |dd741.5!, |dd741.6!, |dd741.7!, |dd741.8!, |dd741.9, |dd741.93!
, |dd741.95*!, |dd741.97!, |dd741.99*!, |opt!, |sort*
X(1 |sort*
X(3 |sort*
>> X1 |dd741*
>> X2 |dd741*
>> Y .01+1, |dd741*!, |dd741.01*, |dd741.017*, |dd741.12, |dd741.15*, |dd741.4*, |dd741.5*, |dd741.95, |dd741.99
, |opt!
>> Y( 10+1, 10OF9.2+1*, 10OF9.3+1, |dd741.99*
Y(0 |dd741*, |dd741.01*, |dd741.017*, |dd741.15*
Y(1 |dd741*, |sort*
Y(2 |dd741*
Z |opt!
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All