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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLOR1

Package: Patient Care Component Reports

Routine: APCLOR1


Information

APCLOR1 ; IHS/CMI/LAB - ;

Source Information

Source file <APCLOR1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  EN^XBVK  
Kernel 2 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 $$HRN^AUPNPAT  
Patient Care Component Reports 1 ($$DEMO,DEMOCHK)^APCLUTL  

Entry Points

Name Comments DBIA/ICR reference
DATES
DEMO ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
D(D) ;
PRINT ;EP - called from xbdbque
LOC() ;EP - Return location name from file 4 based on DUZ(2).
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
INFORM ;inform user what this report is all about
FAC ;
ZIS ;
O ;one location
START ;
S ;all communities within APCLSU su
XIT ;
NRAD(V) ;
NLAB(V) ;
PROC1 ;
HEADER ;EP
TYPE ;type of report
HEADER1 ;
PROC ;EP - called from xbdbque
NRX(V) ;

External References

Name Field # of Occurrence
HOME^%ZIS START+2
$$DEMO^APCLUTL PROC1+3
DEMOCHK^APCLUTL DEMO+1
$$HRN^AUPNPAT PRINT+7
^DIC O+1, S+1
^DIR TYPE+2, DATES+2, DATES+4, FAC+3, DEMO+3, EOP+5, DONE+1, HEADER+2
^XBDBQUE DEMO+7, BROWSE+2
$$VAL^XBDIQ1 S+1
$$VALI^XBDIQ1 PROC1+11
^XBFMK XIT+1
EN^XBVK XIT+1
$$FMADD^XLFDT DATES+8, PROC+1
$$FMTE^XLFDT PRINT+7, PRINT+8, HEADER1+2, HEADER1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC)
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !!,"This report will list all visits that are 'orphan visits'. You will be asked",!,"to select whether you want orpaned lab, pharmacy or radiology visits."
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"If you select lab, you will get all visits with no primary provider or",!,"pov entered that have a lab entry attached to them. The same is true for",!,"pharmacy or radiology.",!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"If a visit has both a V LAB and a V RADIOLOGY the visit would be included",!,"in each report.",!!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"TOTAL NUMBER OF VISITS FOUND: ",APCLCNT,!!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("INCOMPLETE "_APCLRTYE_" VISITS",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !?68,"#",?72,"#",?76,"#"
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,"HRN",?12,"PATIENT NAME",?37,"DATE",?48,"TIME",?54,"SC",?57,"TYPE",?62,"LOC",?67,"LAB",?71,"RX",?75,"RAD"
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+7
Routine Call
  • %ZIS
  • Line Location:
    • START+2
Routine Call
  • DIC
  • Line Location:
    • O+1
    • S+1
Routine Call
  • DIR
  • Line Location:
    • TYPE+2
    • DATES+2
    • DATES+4
    • FAC+3
    • DEMO+3
    • EOP+5
    • DONE+1
    • HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls
^AUTTSU - [#9999999.22] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVLAB("AD" PROC1+7, NLAB+2
^AUPNVMED("AD" PROC1+9, NRX+2
^AUPNVPOV("AD" PROC1+5
^AUPNVPRV("AD" PROC1+5
^AUPNVRAD("AD" PROC1+8, NRAD+2
^AUPNVSIT - [#9000010] PROC+6, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+6, PROC1+10, PROC1+11, PRINT+6
^AUPNVSIT("B" PROC+5, PROC+6
^AUTTLOC - [#9999999.06] PRINT+8
^DIC(4 - [#4] LOC+1
^DPT - [#2] PRINT+7
^VA(200 - [#200] USR+1, HEADER1+2
^XTMP("APCLOR1" PROC+1*, PROC+3!, PROC1+12*, PRINT+2, PRINT+4, DONE+4!

Label References

Name Line Occurrences
$$CTR INFORM+1, HEADER1+3, HEADER1+4
$$LOC INFORM+1
$$NLAB PRINT+8
$$NRAD PRINT+8
$$NRX PRINT+8
@( FAC+7
BROWSE DEMO+5
DATES DATES+6, FAC+4
DONE PRINT+2
FAC FAC+8, DEMO+2
HEADER PRINT+1, PRINT+2, PRINT+5
HEADER1 HEADER+1
INFORM START+4
PROC1 PROC+6
TYPE DATES+2, DATES+4
XIT START+1, TYPE+3, DEMO+4, DEMO+5
ZIS FAC+6

Naked Globals

Name Field # of Occurrence
^(0 PROC+6, USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCLBD DATES!, DATES+2*, DATES+6, DATES+8, HEADER1+4
>> APCLCNT PROC+2*, PROC1+12*, PRINT+3
>> APCLDEMO DEMO+1, DEMO+2, PROC1+3
APCLED DATES!, DATES+4*, DATES+6, PROC+5, HEADER1+4
APCLET DONE+3!
APCLH PROC+2*, PROC+3, PROC1+12, PRINT+2, PRINT+4, DONE+4!
APCLJ PROC+2*, PROC+3, PROC1+12, PRINT+2, PRINT+4, DONE+4!
>> APCLLOCT FAC+1*, FAC+5*, FAC+6, FAC+7, PROC1+10, PROC1+11
>> APCLLOCT("ONE" PROC1+10, O+3*
>> APCLLOCT("SU" PROC1+11, S+3*
APCLM DONE+3!
>> APCLPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
APCLQ FAC+8, O+2*, S+2*, PRINT+1!, PRINT+4, PRINT+5, HEADER+2*
>> APCLRTYE TYPE+4*, HEADER1+3
>> APCLRTYP TYPE+1*, TYPE+4*, PROC1+7, PROC1+8, PROC1+9
APCLS DONE+3!
>> APCLSD DATES+8*, PROC+5*, PROC+6
APCLTS DONE+3!
>> APCLV PROC+6*, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+9
, PROC1+10, PROC1+11, PROC1+12, PRINT+4*, PRINT+6, PRINT+8
>> APCLVREC PRINT+6*, PRINT+7, PRINT+8
C NLAB+1~, NLAB+2*, NLAB+3, NRX+1~, NRX+2*, NRX+3, NRAD+1~, NRAD+2*, NRAD+3
D D~, D+1, D+2
DA TYPE+2!, FAC+3!, DEMO+3!
DFOUT EOP+4!
DIC O+1*!, S+1*!
DIC("A" O+1*, S+1*
DIC("B" S+1*
DIC(0 O+1*, S+1*
DIR TYPE+2!, DATES+1!, DATES+3!, FAC+3!, DEMO+3!, EOP+3~, DONE+1!, HEADER+2!
DIR("A" TYPE+2*, DATES+1*, DATES+3*, FAC+2*, FAC+3*, DEMO+3*, EOP+5*, DONE+1*
DIR("B" FAC+2*, FAC+3*, DEMO+3*
DIR(0 TYPE+2*, DATES+1*, DATES+3*, FAC+2*, DEMO+3*, EOP+5*, DONE+1*, HEADER+2*
DIRUT TYPE+3, FAC+4, DEMO+4, EOP+4!, DONE+1*
DLOUT EOP+4!
DT PROC+1, HEADER1+2
DTOUT EOP+4!, HEADER+2
DUOUT EOP+4!, DONE+1
DUZ USR+1, HEADER1+2
DUZ(2 LOC+1, S+1, PRINT+7
IO DONE+1, HEADER+2
IO("S" EOP+2
IO(0 DONE+1, HEADER+2
IOF START+2, START+3, DONE+2, HEADER1+1
IOM CTR+1
IOSL PRINT+5
IOST EOP+1, DONE+1, HEADER+2
>> IOT EOP+2
U PROC+6, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+6, PROC1+10, PROC1+11, USR+1, LOC+1
, PRINT+7, PRINT+8, HEADER1+2
V NLAB~, NLAB+2, NRX~, NRX+2, NRAD~, NRAD+2
X CTR~, CTR+1, NLAB+1~, NLAB+2*, NRX+1~, NRX+2*, NRAD+1~, NRAD+2*, HEADER1+4*
>> XBIOP BROWSE+2*
>> XBNS DEMO+6*, BROWSE+2*
>> XBRC DEMO+6*, BROWSE+2*
>> XBRP DEMO+6*, BROWSE+1*
>> XBRX DEMO+6*, BROWSE+2*
Y TYPE+4, DATES+2, DATES+4, FAC+5, DEMO+5, CTR~, CTR+1, O+2, O+3, S+2
, S+3, HEADER+2
Y(0 TYPE+4
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All