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 |  Local Variables |  All
Print Page as PDF
Routine: APCPSRP2

Package: Patient Care Component Data Transmission

Routine: APCPSRP2


Information

APCPSRP2 ; IHS/TUCSON/LAB - PRINT . SECTION AUGUST 14, 1992 ; [ 04/07/99 9:50 AM ]

Source Information

Source file <APCPSRP2.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Patient Care Component Data Transmission 1 HEAD^APCPSRP  
VA Fileman 1 DD^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Data Transmission 1 APCPSRP  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
SCH ;
VD ;
PROC ;
PRNTDATE ;
EOJ ;
PROC1 ;
PROVDISC ;
PRNTPTR ;
PRNT ;
CLINIC ;
PROVH ;
LOCH ;
SC ;
APC ;EP
TYPE ;
INPT ;EP - PRINT INPATIENT INFO
TYPEH ;

External References

Name Field # of Occurrence
DD^%DT PRNTDATE+1
HEAD^APCPSRP APC+1, PROC+1, PRNT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,APCPSR("T")
  • Line Location: PROC+2
Function Call: WRITE
  • Prompt: !?13,Y,?45,$J(^XTMP("APCPSR",APCPJOB,APCPBTH,"GEN",APCPSR("2"),APCPSR("N")),7)
  • Line Location: PRNTDATE+1
Function Call: WRITE
  • Prompt: !!?10,APCPSR("T")
  • Line Location: PRNT+1
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: APCPSR("WC")>0
  • Line Location: PRNT+1
Function Call: WRITE
  • Prompt: !?13,APCPSR("D"),?45,$J(X,7)
  • Line Location: PRNT+5
Function Call: WRITE
  • Prompt: !?13,$P(@G@(0),U,APCPSR("PIECE")),?45,$J(X,7)
  • Line Location: PRNTPTR+2
Function Call: WRITE
  • Prompt: ?55,"(IHS CODE: ",$P(^AUTTLOC(APCPSR("D"),0),U,10),")"
  • Line Location: PRNTPTR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] PRNTPTR+3
^XTMP("APCPSR" PROC+3, PROC1+2, PRNTDATE+1, PRNT+3

Label References

Name Line Occurrences
PRNT PROC1+1, PROC1+2
PRNTDATE PRNT+2
PRNTPTR PRNT+4
PROC VD+3, TYPE+2, LOC+2, SC+2, CLINIC+2, PROVDISC+2, INPT+3, TYPEH+2, LOCH+2, SCH+2
, PROVH+2
PROC1 PROC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCPBTH PROC+3, PROC1+2, PRNTDATE+1, PRNT+3
>> APCPJOB PROC+3, PROC1+2, PRNTDATE+1, PRNT+3
>> APCPSR("1" VD+2*, TYPE+1*, LOC+1*, SC+1*, CLINIC+1*, PROVDISC+1*, PRNT+2, PRNTPTR+3, INPT+2*, TYPEH+1*
, LOCH+1*, SCH+1*, PROVH+1*
>> APCPSR("2" VD+2*, TYPE+1*, LOC+1*, SC+1*, CLINIC+1*, PROVDISC+1*, PROC+3, PROC1+1, PROC1+2, PRNTDATE+1
, PRNT+3, INPT+2*, TYPEH+1*, LOCH+1*, SCH+1*, PROVH+1*
>> APCPSR("D" PROC1+2*, PRNT+3, PRNT+5, PRNTPTR+1, PRNTPTR+3
>> APCPSR("GLOBAL" LOC+1*, PRNTPTR+1, LOCH+1*
>> APCPSR("N" PROC+3*, PROC1+2, PRNTDATE+1, PRNT+3
>> APCPSR("PIECE" LOC+1*, PRNTPTR+2, LOCH+1*
>> APCPSR("PTR" VD+2*, TYPE+1*, LOC+1*, SC+1*, CLINIC+1*, PROVDISC+1*, PRNT+4, INPT+2*, TYPEH+1*, LOCH+1*
, SCH+1*, PROVH+1*
>> APCPSR("QUIT" APC+1, VD+3, TYPE+2, LOC+2, SC+2, CLINIC+2, PROVDISC+2, PROC+1, PROC+3, PRNT+1
, INPT+3, TYPEH+2, LOCH+2, SCH+2, PROVH+2
>> APCPSR("T" VD+2*, TYPE+1*, LOC+1*, SC+1*, CLINIC+1*, PROVDISC+1*, PROC+2, PRNT+1, INPT+2*, TYPEH+1*
, LOCH+1*, SCH+1*, PROVH+1*
>> APCPSR("WC" VD+2*, TYPE+1*, LOC+1*, SC+1*, CLINIC+1*, PROVDISC+1*, PRNTDATE+1*, PRNT+1, PRNT+5*, PRNTPTR+2*
, INPT+2*, TYPEH+1*, LOCH+1*, SCH+1*, PROVH+1*
G PRNTPTR+1*, PRNTPTR+2, PRNTPTR+4!
IOSL APC+1, PROC+1, PRNT+1
U PRNTPTR+2, PRNTPTR+3
>> X PRNT+3*, PRNT+5, PRNTPTR+2
>> Y PRNTDATE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All