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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(741.4

Package: Occurrence Screen

Global: ^QA(741.4


Information

FileMan FileNo FileMan Filename Package
741.4 QA OCCURRENCE CLINICAL REFERRAL Occurrence Screen

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Occurrence Screen 9 QAOSCNV8    QAOSCREE    QAOSDDUT    QAOSERCR    QAOSPCL0    QAOSPCL1    REVIEWER    ^QA(741.4
^QA(741.99    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Occurrence Screen 3 QAOSCNV8    QAOSCREE    QAOSERCR    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Occurrence Screen 1 QA OCCURRENCE SCREEN(#741)[#741.01(3)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Occurrence Screen 1 QA OCCURRENCE SCREEN CRITERIA(#741.1)[2]    

Fields, Total: 4

Field # Name Loc Type Details
.01 REASON (SCREEN CODE) 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1)!(X'?1.2N.1U) X
  • LAST EDITED:  FEB 02, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This is a short code used to identify the reason for clinical referral. It must be one to two digits and it may be followed by one upper case letter, e.g., 4, 12, 1B, 23X, etc.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  741.4^B
    1)= S ^QA(741.4,"B",$E(X,1,30),DA)=""
    2)= K ^QA(741.4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  741.4^AC1^MUMPS
    1)= S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),"^",2),1:"") S:QA]"" ^QA(741.4,"AC",QA,+X+($A(X,$L(X))/100),DA)="" K QA
    2)= S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),"^",2),1:"") K:QA]"" ^QA(741.4,"AC",QA,+X+($A(X,$L(X))/100),DA) K QA
1 REASON - EXPANDED 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>225!($L(X)<1) X
  • LAST EDITED:  FEB 02, 1990
  • HELP-PROMPT:  Answer must be 1-225 characters in length.
  • DESCRIPTION:  
    This is the long version of the reason for clinical referral.
2 SCREEN 1;2 POINTER TO QA OCCURRENCE SCREEN CRITERIA FILE (#741.1) QA OCCURRENCE SCREEN CRITERIA(#741.1)

  • LAST EDITED:  FEB 02, 1990
  • DESCRIPTION:  
    This is the screen that this reason for clinical referral is associated with.
  • CROSS-REFERENCE:  741.4^AC^MUMPS
    1)= S QA=$P(^QA(741.4,DA,0),"^"),^QA(741.4,"AC",X,+QA+($A(QA,$L(QA))/100),DA)="" K QA
    2)= S QA=$P(^QA(741.4,DA,0),"^") K ^QA(741.4,"AC",X,+QA+($A(QA,$L(QA))/100),DA),QA
3 REASON - SHORT 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>111!($L(X)<1) X
  • LAST EDITED:  FEB 02, 1990
  • HELP-PROMPT:  Answer must be 1-111 characters in length.
  • DESCRIPTION:  
    This is the shortened version of the reason for clinical referral.
  • CROSS-REFERENCE:  741.4^C
    1)= S ^QA(741.4,"C",$E(X,1,30),DA)=""
    2)= K ^QA(741.4,"C",$E(X,1,30),DA)

Found Entries, Total: 155

Entry: 1    Entry: 2    Entry: 3    Entry: 4    Entry: 5    Entry: 6    Entry: 7    Entry: 8    
Entry: 9    REASON (SCREEN CODE): 1A    REASON (SCREEN CODE): 1B    REASON (SCREEN CODE): 1C    REASON (SCREEN CODE): 1D    REASON (SCREEN CODE): 1E    REASON (SCREEN CODE): 1I    REASON (SCREEN CODE): 1G    
REASON (SCREEN CODE): 1H    REASON (SCREEN CODE): 1J    Entry: 19    Entry: 20    Entry: 21    Entry: 22    Entry: 23    Entry: 24    
Entry: 25    Entry: 26    Entry: 27    Entry: 28    Entry: 29    Entry: 30    REASON (SCREEN CODE): 10A    REASON (SCREEN CODE): 10B    
REASON (SCREEN CODE): 10C    REASON (SCREEN CODE): 10D    REASON (SCREEN CODE): 10E    REASON (SCREEN CODE): 10F    Entry: 37    Entry: 38    Entry: 39    Entry: 40    
Entry: 41    Entry: 42    Entry: 43    REASON (SCREEN CODE): 7A    REASON (SCREEN CODE): 7B    REASON (SCREEN CODE): 7C    REASON (SCREEN CODE): 7D    REASON (SCREEN CODE): 7E    
Entry: 49    Entry: 50    Entry: 51    Entry: 52    Entry: 53    Entry: 54    Entry: 55    REASON (SCREEN CODE): 7A    
REASON (SCREEN CODE): 7B    REASON (SCREEN CODE): 7C    REASON (SCREEN CODE): 7D    REASON (SCREEN CODE): 7E    Entry: 61    Entry: 62    Entry: 63    Entry: 64    
Entry: 65    Entry: 66    Entry: 67    Entry: 68    Entry: 69    Entry: 70    Entry: 71    Entry: 72    
Entry: 73    Entry: 74    Entry: 75    Entry: 76    Entry: 77    Entry: 78    Entry: 79    Entry: 80    
Entry: 81    Entry: 82    Entry: 83    Entry: 84    Entry: 86    Entry: 87    Entry: 88    Entry: 89    
Entry: 90    Entry: 91    Entry: 92    Entry: 93    Entry: 94    Entry: 95    Entry: 96    Entry: 97    
Entry: 98    Entry: 99    Entry: 100    Entry: 101    Entry: 102    Entry: 103    Entry: 104    Entry: 105    
Entry: 106    Entry: 107    Entry: 108    Entry: 109    Entry: 110    Entry: 111    Entry: 112    Entry: 113    
Entry: 114    Entry: 115    Entry: 116    Entry: 117    Entry: 118    Entry: 119    Entry: 120    Entry: 121    
REASON (SCREEN CODE): 7A    REASON (SCREEN CODE): 7B    REASON (SCREEN CODE): 7C    REASON (SCREEN CODE): 7D    REASON (SCREEN CODE): 7E    Entry: 127    Entry: 128    Entry: 129    
Entry: 130    Entry: 131    Entry: 132    Entry: 133    Entry: 134    REASON (SCREEN CODE): 7A    REASON (SCREEN CODE): 7B    REASON (SCREEN CODE): 7C    
REASON (SCREEN CODE): 7D    REASON (SCREEN CODE): 7E    Entry: 140    Entry: 141    Entry: 142    Entry: 143    Entry: 144    Entry: 145    
Entry: 146    Entry: 147    Entry: 148    Entry: 149    Entry: 150    Entry: 151    Entry: 152    REASON (SCREEN CODE): 1K    
REASON (SCREEN CODE): 1F    Entry: 155    Entry: 156    

External References

Name Field # of Occurrence
Y^DIQ ID2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(741.1 ID2+1
^QA(741.1 - [#741.1] ID2+1
^QA(741.4 - [#741.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID2+1
^(1 ID2+1, .01(XREF 2S), .01(XREF 2K)
^(2 ID3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID2+1*!
>> C ID2+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K)
>> DIC ID2+1
QA .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K)
U ID2+1, ID3+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1!, 2(XREF 1S), 2(XREF 1K), 3+1!, 3(XREF 1S)
3(XREF 1K)
>> Y ID2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All