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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBDFCNOF

Package: Automated Information Collection System

Routine: IBDFCNOF


Information

IBDFCNOF ;ALB/CJM - AICS clinics with no forms ; JUL 20,1993

Source Information

Source file <IBDFCNOF.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  
VA Fileman 2 Y^DIQ  ^DIR  
Registration 1 DIVISION^VAUTOMA  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Automated Information Collection System 3 IBDF LIST CLINICS WITH NO FORM  IBDF14A  IBDF15A  
Integrated Billing 1 IBDF LIST CLINICS WITH NO FORM  

Entry Points

Name Comments DBIA/ICR reference
SET ; -- build list into temporary array
DEVICE ; -- select device
ACLN(SC) ; function
; -- is clinic currently active
; Input SC := pointer to 44
; Output := 1 if currently active
; 0 if currently inactive
ACLNQ
LIST ; -- lists the clinics using FORM
DIVIS ; -- Select division
HEADER ; -- writes the report header
PAUSE ; -- hold crt screen
EXIT ; -- end of report
ONELINE ; -- print line of report
NEWDIV ; -- print division totals and start new division
DQ ; -- entry point from taskmanager

External References

Name Field # of Occurrence
^%ZIS DEVICE+2
HOME^%ZIS DEVICE+3
^%ZISC EXIT+3
^%ZTLOAD DEVICE+3
Y^DIQ SET+6
^DIR PAUSE+3
DIVISION^VAUTOMA DIVIS+2
$$HTE^XLFDT DQ+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"AICS List of Clinics with No Encounter Form in Use",!!
  • Line Location: IBDFCNOF+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"List of Clinics Without Encounter Forms",?IOM-32,IBHDT," PAGE ",PAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"For Division: ",DIVNAM
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"CLINICS",?27,"SERVICE",?47,"COMMENT"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: ?15,"No active clinics found without an assigned encounter form"
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,"No clinics found for division '",DIVNAM,"'",!
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,$E(NAME,1,25),?27,$E(SERV,1,18)
  • Line Location: ONELINE+4
Function Call: WRITE
  • Prompt: ?47,$P(^TMP($J,"IBDCN",DIVIS,DIVNAM,SERV,NAME),"^",2)," "
  • Line Location: ONELINE+5
Function Call: WRITE
  • Prompt: ?4,"(Clinic Currently Inactive)"
  • Line Location: ONELINE+6
Function Call: WRITE
  • Prompt: !?10,"Division: ",DIVNAM,!
  • Line Location: NEWDIV+4
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: DEVICE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(44 SET+6
^DG(40.8 - [#40.8] SET+4, LIST+7
^DG(43 - [#43] SET+3, DIVIS+2
^SC - [#44] SET+2, ACLN+7
^SD(409.95 - [#409.95] SET+7, SET+8, SET+9, SET+12
^TMP($J EXIT+1!, DQ+1!, SET+11*, SET+12*, LIST+3, LIST+5, LIST+7, LIST+8, LIST+10, LIST+11
, ONELINE+5, DIVIS+3*

Label References

Name Line Occurrences
$$ACLN ONELINE+6
DEVICE %+6
DIVIS %+5
DQ %+7
EXIT %+5, %+6, DQ+4
HEADER LIST+7, ONELINE+2, NEWDIV+3
LIST DQ+4
NEWDIV ONELINE+1
ONELINE LIST+11
PAUSE HEADER+1
SET DQ+4

Naked Globals

Name Field # of Occurrence
^( LIST+11
^("I" ACLN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+2*
C %+2~, SET+6*
CLINIC %+2~, LIST+1~, LIST+11*, ONELINE+6
CLINNAM SET+1~, SET+5*, SET+11, SET+12
COUNT LIST+1~, LIST+4*, LIST+12, ONELINE+7*, NEWDIV+1, NEWDIV+4*
DIR PAUSE+1~, LIST+1~
DIR(0 PAUSE+3*
DIVIS %+2~, SET+1~, SET+3*, SET+4, SET+11, SET+12, LIST+5*, LIST+6, LIST+7, LIST+8
, LIST+10, LIST+11, ONELINE+5, NEWDIV+2
DIVNAM %+2~, SET+1~, SET+4*, SET+11, SET+12, HEADER+4, LIST+7*, LIST+8*, LIST+10, LIST+11
, ONELINE+5, NEWDIV+4
DT ACLN+8, ACLN+9
FLAG ACLN+6~*, ACLN+8*, ACLN+9*, ACLNQ
IBDCNO %+2~, SET+2*, SET+3, SET+5, SET+6
IBDFCL SET+1~, SET+8*, SET+9
IBDFCNO %+2~
IBDFIFN %+2~, SET+2*, SET+7, SET+8, SET+11, SET+12
IBDFNODE %+2~, SET+1~, SET+9*, SET+10, SET+11
IBHDT %+2~, DQ+3*, HEADER+3
IBQUIT %+2~, %+4*, %+5, %+6, DQ+2*, SET+1~, SET+10*, SET+11, HEADER+1, PAUSE+3*
, LIST+5, LIST+10, LIST+11, LIST+12, ONELINE+1, ONELINE+2, NEWDIV+1, NEWDIV+3, DEVICE+2*, DEVICE+3*
, DIVIS+2*
IO DEVICE+4
IO("Q" DEVICE+3
IOF HEADER+2, LIST+2
IOM HEADER+3, HEADER+7
IOSL PAUSE+2, ONELINE+2
IOST HEADER+1, LIST+2
MULTI %+2~, SET+3, DIVIS+1*, DIVIS+2*
NAME LIST+1~, LIST+11*, ONELINE+4, ONELINE+5
NEWDIV LIST+1~, LIST+4*, LIST+9*, ONELINE+1, NEWDIV+4*
OLDDIV LIST+1~, LIST+4*, LIST+12, NEWDIV+1, NEWDIV+2*
PAGE %+2~, DQ+2*, HEADER+1, HEADER+2, HEADER+3, HEADER+8*
>> POP DEVICE+2
SC ACLN~, ACLN+7
SDIN ACLN+6~, ACLN+7*, ACLN+8, ACLN+9
SDRE ACLN+6~, ACLN+7*, ACLN+8, ACLN+9
SERV %+2~, LIST+10*, LIST+11, ONELINE+4, ONELINE+5
SERVICE %+2~, SET+1~, SET+6*, SET+11, SET+12
U ACLN+7
VAUTD %+2~, LIST+6, LIST+7, DIVIS+1*, DIVIS+3
VAUTD( LIST+6, DIVIS+3
X %+2~, SET+10*, PAUSE+1~, DIVIS+1~, DIVIS+3*
Y %+2~, SET+6*, PAUSE+1~, PAUSE+3, DIVIS+1~, DIVIS+2, ACLN+7*
ZTDESC EXIT+4!, DEVICE+3*
>> ZTQUEUED EXIT+2, DEVICE+1
>> ZTREQ EXIT+2*
ZTRTN EXIT+4!, DEVICE+3*
ZTSAVE EXIT+4!
ZTSAVE("MULTI" DEVICE+3*
ZTSAVE("VA*" DEVICE+3*
ZTSK EXIT+4!, DEVICE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All