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

Package: Patient Care Component

Routine: APCDDPAP


Information

APCDDPAP ; IHS/CMI/LAB - DISPLAY EXISTING LAB DATA FOR PATIENT ;

Source Information

Source file <APCDDPAP.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIC  

Entry Points

Name Comments DBIA/ICR reference
START ;

External References

Name Field # of Occurrence
DD^%DT START+13
^DIC START+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?29,"PAP SMEAR RESULTS",!!,"Patient Name: ",$P(^DPT(AUPNPAT,0),U)," ","Patient Age: ",$J((AUPNDAYS/365.25),6,1)," years"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!?5,"Date/Time of Visit",?28,"Pap Smear Result",?55,"Test Name",!?5,"------------------",?28,"----------------",?55,"---------"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"NO Pap Smear Lab Tests on File",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"PAP SMEAR NOT FOUND IN LABORATORY TEST FILE"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"NO Pap Smear Lab Tests on File",!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !?5,APCDDPAP("VDATE"),?28,$S($P(^AUPNVLAB(APCDDPAP("X"),0),U,4)]"":$P(^AUPNVLAB(APCDDPAP("X"),0),U,4),1:"NO RESULTS ON FILE"),?55,$P(^LAB(60,X,0),U)
  • Line Location: START+14
Routine Call
  • DIC
  • Line Location:
    • START+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXLAB - [#9002228] START+8
^ATXLAB("B" START+7
^AUPNVLAB - [#9000010.09] START+13, START+14
^AUPNVLAB("AA" START+11, START+12
^AUPNVLAB("AC" START+4
^AUPNVSIT - [#9000010] START+13
^DPT - [#2] START+2
^LAB(60 - [#60] START+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDDPAP START+17!
APCDDPAP("IDATE" START+11*, START+12
APCDDPAP("TEST" START+6*, START+8*, START+10
APCDDPAP("VDATE" START+13*, START+14
APCDDPAP("VDFN" START+13*
APCDDPAP("X" START+12*, START+13, START+14
>> AUPNDAYS START+2
>> AUPNPAT START+2, START+4, START+11, START+12
DIC START+5*!
DIC(0 START+5*
>> T START+7*, START+8
U START+2, START+13, START+14
X START+1~, START+5*, START+8*, START+10*, START+11, START+12, START+14
Y START+5!, START+6, START+8*, START+13*, START+17!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All