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

Package: Aberdeen GPRA Report

Routine: CIMGAGPX


Information

CIMGAGPX ; IHS/OHPRD/TMJ - PRINT VISITS WITH INJURIES ; [ 01/27/00 9:49 AM ]

Source Information

Source file <CIMGAGPX.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Aberdeen GPRA Report 1 CIMGAGPW  

Entry Points

Name Comments DBIA/ICR reference
SET ;
END ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEADER
PRNT ;
CTR(X,Y) ;EP - Center X in a field Y wide.
USR() ;EP - Return name of current user from ^VA(200.
SET4 ;
SET5 ;
INIT ;initialize variables
HEADER1 ;
SET2 ;
SET3

External References

Name Field # of Occurrence
$$AGE^AUPNPAT SET4+2
$$HRN^AUPNPAT SET4+2
^DIR HEADER+1
$$FMTE^XLFDT HEADER1+2, HEADER1+5, HEADER1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No injury visits to report."
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !!,$E(CIMNAME,1,20),?22,$J($$HRN^AUPNPAT(DFN,DUZ(2)),6),?32,$J($$AGE^AUPNPAT(DFN,$P($P(^AUPNVSIT(CIMV,0),U),".")),2),?40,$P($G(^AUPNPAT(DFN,11)),U,18)
  • Line Location: SET4+2
Function Call: WRITE
  • Prompt: ?60,$E(D,4,5),"/",$E(D,6,7),"/",(1700+$E(D,1,3))
  • Line Location: SET4+3
Function Call: WRITE
  • Prompt: !,"ICD9: ",$P(^ICD9(+^AUPNVPOV(CIMPOV,0),0),U),?19,"Provider Narrative: ",$S($P(^AUPNVPOV(CIMPOV,0),U,4):$E($P(^AUTNPOV($P(^AUPNVPOV(CIMPOV,0),U,4),0),U),1,40),1:"<no narrative available>")
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: !,"Cause of Injury: ",?19,$P(^ICD9($P(^AUPNVPOV(CIMPOV,0),U,9),0),U)," - ",$P(^(0),U,3)
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: !,"Date of Injury: ",?19,$E($P(^AUPNVPOV(CIMPOV,0),U,13),4,5),"/",$E($P(^AUPNVPOV(CIMPOV,0),U,13),6,7),"/",$E($P(^AUPNVPOV(CIMPOV,0),U,13),2,3)
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",CIMGPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("*** ABERDEEN AREA GPRA INDICATORS ***",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U)),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: ?26,"Visits with Injury Diagnosis",!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !!,"PATIENT",?23,"HRCN",?31,"AGE",?40,"COMMUNITY",?60,"VISIT DATE",!
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: "--------------------------------------------------------------------------------"
  • Line Location: HEADER1+9
Routine Call
  • DIR
  • Line Location:
    • HEADER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] SET4+2
^AUPNVPOV - [#9000010.07] PRNT+2, PRNT+3, PRNT+4
^AUPNVSIT - [#9000010] SET4+2, SET4+3
^AUTNPOV - [#9999999.27] PRNT+2
^DIC(4 - [#4] HEADER1+4, LOC+1
^ICD9 - [#80] PRNT+2, PRNT+3
^VA(200 - [#200] HEADER1+2, USR+1
^XTMP("CIMGAGP" INIT+3, SET+2, SET2+2, SET3+1, SET5+1

Label References

Name Line Occurrences
$$CTR HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
END INIT+3
HEADER INIT+2, SET4+1, PRNT+1
HEADER1 HEADER
PRNT SET5+1
SET2 SET+2
SET3 SET2+2
SET4 SET3+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CIM98B HEADER1+6
>> CIM98E HEADER1+6
>> CIMBD HEADER1+5
>> CIMED HEADER1+5
>> CIMGH INIT+3, SET+2, SET2+2, SET3+1, SET5+1
>> CIMGJ INIT+3, SET+2, SET2+2, SET3+1, SET5+1
>> CIMGPG INIT+1*, HEADER, HEADER1+1*, HEADER1+2
>> CIMNAME SET+1*, SET+2*, SET2+2, SET3+1, SET4+2, SET5+1
>> CIMPOV SET5+1*, PRNT+2, PRNT+3, PRNT+4
>> CIMQUIT INIT+2, SET+2, SET3+1, SET4+1, SET5+1, PRNT+1, HEADER+1*
>> CIMV SET3+1*, SET4+2, SET4+3, SET5+1
>> D SET4+3*
>> DFN SET2+1*, SET2+2*, SET3+1, SET4+2, SET5+1
DIR HEADER+1!
DIR(0 HEADER+1*
DT HEADER1+2
>> DTOUT HEADER+1
DUZ HEADER1+2, USR+1
DUZ(2 SET4+2, HEADER1+4, LOC+1
IO HEADER+1
IO(0 HEADER+1
IOF HEADER1+1
IOM CTR+1
IOSL SET4+1, PRNT+1
IOST HEADER+1
U SET4+2, SET4+3, PRNT+2, PRNT+3, PRNT+4, HEADER1+2, HEADER1+4, USR+1, LOC+1
X HEADER1+5*, HEADER1+6*, CTR~, CTR+1
Y HEADER+1, CTR~, CTR+1
>> ZTQUEUED HEADER+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All