Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: QAOC0

Package: Occurrence Screen

Routine: QAOC0


Information

QAOC0 ;HISC/DAD-OCCURRENCE SCREEN AUTO ENROLLMENT ; 6/11/14 10:16am

Source Information

Source file <QAOC0.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Registration 1 (IN5,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Occurrence Screen 6 QAOC1011  QAOC102  QAOC1061  QAOC107  QAOC109  QAOC199  

Entry Points

Name Comments DBIA/ICR reference
TXSP(CARETYPE,TXSP) ; Is TXSP of type CARETYPE ?
; Returns: -1 = No, >0 = Yes
; TXSP = A facility treating specialty file (#45.7) IEN
; CARETYPE = $S(A:Acute, S:Special, I:Intermediate, N:NHCU, P:Psych)
SCHED(DFN,DATE) ; Is DATE a scheduled admission for DFN ?
; Returns: 1 = Yes, 0 = No
; DFN = Patient file (#2) IEN
; DATE = A date in internal FM form
SCHED2(DFN,DATE) ; Is DATE a scheduled admission for DFN ? DATE includes TIME (QAO*3*9)
; Returns: 1 = Yes, 0 = No
; DFN = Patient file (#2) IEN
; DATE = A date in internal FM form
INACTIVE(SCRN) ; Is SCRN national, local, or inactive ?
; Returns: $S(N:National, L:Local, 1:Inactive)
; SCRN = Screen file (#741.1) IEN
VADPT(DFN,IEN405) ; For DFN get movement number IEN405 data
; DFN = Patient file (#2) IEN
; IEN405 = Patient movement file (#405) IEN

External References

Name Field # of Occurrence
IN5^VADPT VADPT+3
KVAR^VADPT VADPT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGS(41.1 - [#41.1] SCHED+5, SCHED2+5
^DIC(45.7 - [#45.7] TXSP+6
^DPT - [#2] SCHED+7, SCHED2+7
^QA(740 - [#740] SCHED+7, SCHED2+7
^QA(741.1 - [#741.1] INACTIVE+3, INACTIVE+4
^QA(741.9 - [#741.9] TXSP+7, TXSP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CARETYPE TXSP~, TXSP+5, TXSP+10
CARETYPE(0 TXSP+8*, TXSP+9, TXSP+10
DATE SCHED~, SCHED+4*, SCHED+5, SCHED+7, SCHED2~, SCHED2+5, SCHED2+7
DFN SCHED~, SCHED+5, SCHED+7, SCHED2~, SCHED2+5, SCHED2+7, VADPT~
IEN405 VADPT~, VADPT+3
QAOS0 SCHED2+4~, SCHED2+5*, SCHED2+7*
QAOSCHED SCHED2+4~*, SCHED2+5*, SCHED2+6, SCHED2+7*, SCHED2+8
QAOX SCHED2+4~, SCHED2+5*, SCHED2+7*
S0 SCHED+4~, SCHED+5*, SCHED+7*
SCHED SCHED+4~*, SCHED+5*, SCHED+6, SCHED+7*, SCHED+8
SCRN INACTIVE~, INACTIVE+3*, INACTIVE+4
TXSP TXSP~, TXSP+5, TXSP+6, TXSP+7*, TXSP+8
>> VAIP("E" VADPT+3*
X SCHED+4~, SCHED+5*, SCHED+7*
Y TXSP+4~*, TXSP+5*, TXSP+6*, TXSP+7*, TXSP+9*, TXSP+10*, TXSP+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All