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: APCLOP1

Package: Patient Care Component Reports

Routine: APCLOP1


Information

APCLOP1 ; IHS/CMI/LAB - list procedures and tally operation provider ;

Source Information

Source file <APCLOP1.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 3 (C,COMMA)^%DTC  ^DIC  ^DIR  
Kernel 2 $$FMTE^XLFDT  ($$REPEAT,$$STRIP)^XLFSTR  
Patient Care Component Reports 2 XTMP^APCLOSUT  ($$DEMO,DEMOCHK)^APCLUTL  
DRG Grouper 1 $$ICDOP^ICDEX  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
DATES
SC1 ;enter sc
PAD(D,L) ; -- SUBRTN to pad length of data
; -- D=data L=length
DEMO ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
LOC() ;EP - Return location name from file 4 based on DUZ(2).
INFORM ;
CTR(X,Y) ;EP - Center X in a field Y wide.
V1 ;
OPCODE ;
EOJ ;
FAC ;
P1 ;
ZIS ;
O ;one location
HEADER ;EP
C(X,X2,X3) ;
PROC1 ;
H1
LIST ;
HEADER1 ;
SC ;type of refusal all or one?
PROC ;

External References

Name Field # of Occurrence
C^%DTC PROC+3
COMMA^%DTC C+1
PEP^AMQQGTX0 SC1+2, OPCODE+11
XTMP^APCLOSUT INFORM+11
$$DEMO^APCLUTL PROC1+6
DEMOCHK^APCLUTL DEMO+1
$$DOB^AUPNPAT P1+4
$$HRN^AUPNPAT P1+4
^DIC SC1+1, OPCODE+10, O+2
^DIR DATES+2, DATES+4, SC+3, FAC+3, OPCODE+4, LIST+2, HEADER+2, EOP+7
$$ICDOP^ICDEX PROC1+17, PRINT+16, PRINT+27, HEADER1+11
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 P1+7
^XBFMK OPCODE+8, EOJ+2
EN^XBVK EOJ+1
$$FMTE^XLFDT P1+4, HEADER1+2, HEADER1+4
$$REPEAT^XLFSTR PAD+3
$$STRIP^XLFSTR C+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !,$$LOC()
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,$$CTR("LISTING/TALLY OF OF VISITS WITH SELECTED PROCEDURE CODES",80)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will tally the operating provider for selected procedures"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"done. You can optionally get a list of all the visits with these"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"procedures."
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+7
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: !
  • Line Location: SC+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: SC1+1
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: OPCODE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,"No data to report.",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"Total # of Procedures: ",?50,$$PAD($$C(APCLCNTP,0,7),7)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"Tally BY Operating Providers:"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?3,"Operating Provider",?50,"# of Procedures"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!,"Tally BY ICD Procedure Code:"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !?3,"Procedure",?50,"# of Procedures"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C>1
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: ?58,$$VAL^XBDIQ1(9000010.08,APCLPIEN,.01),?68,$E($$VAL^XBDIQ1(9000010.08,APCLPIEN,.11),1,11)
  • Line Location: P1+7
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("*** PROCEDURE TALLY/LISTING ***",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: "Service Categories: "
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: X," ;"
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,"Procedures included in this report:"
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: " ALL ICD PROCEDURES"
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: " ",$P(^ICD0(X,0),U)
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: " ",$P($$ICDOP^ICDEX(X,,,"I"),U,2)
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: " ....ETC"
  • Line Location: HEADER1+12
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?40,"VST DATE",?51,"SC",?54,"LOC",?58,"ICD",?68,"Operating Prov"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • DIC
  • Line Location:
    • SC1+1
    • OPCODE+10
    • O+2
Routine Call
  • DIR
  • Line Location:
    • DATES+2
    • DATES+4
    • SC+3
    • FAC+3
    • OPCODE+4
    • LIST+2
    • HEADER+2
    • EOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(5 - [#9009075] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPRC - [#9000010.08] PROC1+10, PROC1+13
^AUPNVPRC("AD" PROC1+1, PROC1+9
^AUPNVSIT - [#9000010] V1+1, PROC1+2, PROC1+5, PROC1+6, PROC1+12, P1+2, P1+4, P1+5
^AUPNVSIT("B" PROC+4, V1+1
^AUTTLOC - [#9999999.06] P1+5
^DIC(4 - [#4] LOC+1
^DPT - [#2] P1+4
^ICD0 - [#80.1] PROC1+10
^VA(200 - [#200] PROC1+15, HEADER1+2, USR+1
^XTMP("APCLOP1" INFORM+10!, OPCODE+2!, OPCODE+12, OPCODE+13, PROC1+11, PROC1+12*, PRINT+2, PRINT+36, P1+1, P1+6
, HEADER1+11, DONE+1!

Label References

Name Line Occurrences
$$C PRINT+5, PRINT+16, PRINT+17, PRINT+27, PRINT+31
$$CTR INFORM+1, INFORM+3, HEADER1+3, HEADER1+4
$$LOC INFORM+2
$$PAD PRINT+5, PRINT+16, PRINT+17, PRINT+27, PRINT+31
$$USR INFORM+1
DATES DATES+6, SC+4, SC1+1, FAC+4
DONE PRINT+2, PRINT+34, PRINT+37
EOJ INFORM+8, OPCODE+10, DEMO+5
EOP DONE+2
FAC SC+5, FAC+8, OPCODE+5, OPCODE+12
H1 PRINT+35, P1+3
HEADER PRINT+2, PRINT+3, PRINT+9, PRINT+19, PRINT+24, PRINT+35, P1+3
HEADER1 HEADER+1
LIST OPCODE+7, DEMO+2
O FAC+7
OPCODE FAC+6, LIST+3
P1 PRINT+36
PROC1 V1+1
SC SC1+3
V1 PROC+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCLBD DATES!, DATES+2*, DATES+6, PROC+3, HEADER1+4
>> APCLCNTD PROC+1*
>> APCLCNTP PROC+1*, PROC1+19*, PRINT+5
>> APCLCNTV PROC+1*
>> APCLDATE PRINT+36*, P1+1, P1+6
>> APCLDEMO DEMO+1, DEMO+2, PROC1+6
APCLED DATES!, DATES+4*, DATES+6, PROC+4, HEADER1+4
>> APCLH INFORM+9*, INFORM+10, OPCODE+2, OPCODE+12, OPCODE+13, PROC1+11, PROC1+12, PRINT+2, PRINT+36, P1+1
, P1+6, HEADER1+11, DONE+1
>> APCLI PRINT+14*, PRINT+16, PRINT+25*, PRINT+27, PRINT+28, PRINT+30, PRINT+31
>> APCLICD OPCODE+1*, OPCODE+6*, OPCODE+7, OPCODE+13*, PROC1+11, HEADER1+9
>> APCLIPTR PROC1+10*, PROC1+11, PROC1+17, PROC1+18, PROC1+20
>> APCLJ INFORM+9*, INFORM+10, OPCODE+2, OPCODE+12, OPCODE+13, PROC1+11, PROC1+12, PRINT+2, PRINT+36, P1+1
, P1+6, HEADER1+11, DONE+1
>> APCLLIST LIST+1*, LIST+4*, PRINT+34
>> APCLLOC FAC+8, PROC1+7, O+1*, O+4*
>> APCLLOCT FAC+1*, FAC+5*, FAC+6, PROC1+7
>> APCLODAT PROC+4*, V1+1
APCLOPRC PROC+1!
APCLOPRC( PROC1+20*, PRINT+23, PRINT+25, PRINT+27, PRINT+28, PRINT+30, PRINT+31
APCLOPRV PROC+1!
APCLOPRV( PROC1+18*, PRINT+8, PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+17
>> APCLP PRINT+8*, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+17, PRINT+23*, PRINT+25, PRINT+27
, PRINT+28, PRINT+30, PRINT+31
>> APCLPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> APCLPIEN PROC1+9*, PROC1+10, PROC1+12, PROC1+13, P1+6*, P1+7
>> APCLQ O+3*
APCLQUIT PRINT+1!, PRINT+8, PRINT+11, PRINT+12, PRINT+23, PRINT+28, PRINT+30, PRINT+36, P1+1, P1+6
, HEADER+2*
APCLSC SC+2!
APCLSCT SC+1!, SC+2!, SC1+3, SC1+4!, PROC1+4, HEADER1+6, HEADER1+7
APCLSCT( PROC1+4, HEADER1+7
APCLSCT("*" SC1+4
>> APCLSD PROC+3*, PROC+4
>> APCLV P1+1*, P1+2, P1+4, P1+5, P1+6
>> APCLVIEN V1+1*, PROC1+1, PROC1+2, PROC1+5, PROC1+6, PROC1+9, PROC1+12
>> APCLX PRINT+12*, PRINT+13, PRINT+14, PRINT+16, PRINT+30*, PRINT+31
>> APCLY PRINT+11*, PRINT+12, PRINT+14, PRINT+16, PRINT+17, PRINT+28*, PRINT+29, PRINT+30, PRINT+31
>> C P1+6*, P1+7*, HEADER1+11*, HEADER1+12
D PAD~, PAD+2, PAD+3
DA SC1+1!, FAC+3!, OPCODE+4!, OPCODE+10!
>> DFN P1+2*, P1+4
DFOUT EOP+5!
DIC SC1+1*!, OPCODE+9*, OPCODE+10!, O+2*!
DIC("A" O+2*
DIC("S" SC1+1*, OPCODE+9*
DIC(0 SC1+1*, OPCODE+9*, O+2*
DIR DATES+1!, DATES+3!, SC+3!, FAC+3!, OPCODE+4!, LIST+2!, HEADER+2!, EOP+4~
DIR("?" SC+3*, LIST+2*
DIR("A" DATES+1*, DATES+3*, SC+2*, FAC+2*, FAC+3*, OPCODE+3*, OPCODE+4*, LIST+1*, EOP+7*
DIR("B" SC+2*, FAC+2*, FAC+3*, OPCODE+4*, LIST+1*
DIR(0 DATES+1*, DATES+3*, SC+2*, FAC+2*, OPCODE+3*, LIST+1*, HEADER+2*, EOP+7*
DIRUT SC+4, FAC+4, OPCODE+5, LIST+3, EOP+5!
DLOUT EOP+5!
DT HEADER1+2
DTOUT HEADER+2, EOP+5!
DUOUT EOP+5!
DUZ HEADER1+2, USR+1
DUZ(2 P1+4, LOC+1
IO HEADER+2, EOP+2
IO("S" EOP+3
IO(0 HEADER+2, EOP+2
IOF HEADER1+1
IOM CTR+1
IOSL PRINT+9, PRINT+24, P1+3
IOST HEADER+2, EOP+1
>> IOT EOP+3
L PAD~, PAD+2*, PAD+3
>> P PROC1+17*, PROC1+18, PROC1+20
U V1+1, PROC1+2, PROC1+5, PROC1+6, PROC1+10, PROC1+12, PROC1+13, PROC1+15, PROC1+17, PRINT+16
, PRINT+27, P1+2, P1+4, P1+5, HEADER1+2, HEADER1+11, USR+1, LOC+1
X SC1+1*, OPCODE+9*, PROC+3, PROC1+2*, PROC1+3, PROC1+4, PROC1+5*, PROC1+6*, PROC1+7, PROC1+13*
, PROC1+14*, PROC1+15*, PROC1+18, PROC1+20, HEADER1+4*, HEADER1+7*, HEADER1+11*, CTR~, CTR+1, C~
, C+2
>> X1 PROC+3*
X2 PROC+3*, C~
X3 C~
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y DATES+2, DATES+4, SC+5, SC1+1, SC1+2, FAC+5, OPCODE+6, OPCODE+10, OPCODE+11, LIST+4
, PROC1+14*, PROC1+15*, PROC1+18, PROC1+20, HEADER+2, CTR~, CTR+1, O+3, O+4
>> ZTQUEUED EOP+3
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