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

Package: IHS Changes To Pharmacy

Routine: APSQLAB


Information

APSQLAB ;IHS/ITSC/ENM/POC - PRINT MOST RECENT LAB VALUE ON PROFILE ; 5/6/94 [ 11/13/2003 4:13 PM ]

Source Information

Source file <APSQLAB.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ENDR^%ZISS  ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 2 ^%DT  $$GET1^DIQ  
Patient Care Component Reports 1 $$START1^APCLDF  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSODRG  PSOREF0  PSORENW0  

Entry Points

Name Comments DBIA/ICR reference
BEG
TWO ;
CLEAN
PRINT ;EP - Prints most recent lab test value on profile.
ONE ;
EDATE
HILO(TST,TSTSP)

External References

Name Field # of Occurrence
^%DT EDATE
ENDR^%ZISS ONE+23, BEG+9
$$START1^APCLDF ONE+9
$$GET1^DIQ ONE+16
$$FMADD^XLFDT ONE+1
$$FMTE^XLFDT ONE+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"I CAN'T FIND A PSODFN SO I'M QUITTING THIS SUBROUTINE...CONTACT YOUR SYSTEMS ADMINISTRATOR"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,INFOPCC
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,INFOLR
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"*** RESULTS FOR A PANEL CANNOT BE PRINTED! ONLY A LAB TEST RESULT CAN BE PRINTED FOR MARKED DRUGS."
  • Line Location: TWO+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVLAB - [#9000010.09] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TWO+4, TWO+5
^LAB(60 - [#60] ONE+14, TWO+10, TWO+12, BEG+6, BEG+10, HILO+1
^LR - [#63] BEG, BEG+1, BEG+3, BEG+4, BEG+5, BEG+6, BEG+10
^PSDRUG - [#50] PRINT+9, TWO+8

Label References

Name Line Occurrences
$$HILO ONE+20, ONE+24, BEG+6, BEG+10
CLEAN PRINT+10, PRINT+14
ONE PRINT+11
TWO PRINT+11

Naked Globals

Name Field # of Occurrence
^( TWO+10
^("CLOZ" PRINT+9, TWO+8
^(0 TWO+10, BEG+1, BEG+3, BEG+4, HILO+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EDATE!
ARRAY PRINT+2~, ONE+2*, ONE+9, CLEAN+2!
BDL BEG*, BEG+1, BEG+3, BEG+4, BEG+5, BEG+6, BEG+10, CLEAN!
DATE PRINT+2~, ONE+12*, ONE+17, ONE+20, ONE+24, CLEAN+2!
DATELR PRINT+3~, PRINT+12, TWO+4*, BEG+11*, CLEAN+1!
DATEPCC PRINT+3~, PRINT+12, ONE+11*, ONE+12, ONE+25*, CLEAN+1!
DT ONE+1, ONE+6
DTBACK PRINT+2~, ONE+1*, ONE+6, CLEAN+2!
EDL EDATE*, BEG, CLEAN!
EDT EDATE*, BEG+12, CLEAN!
ERR PRINT+2~, ONE+9*, CLEAN+2!
HI PRINT+3~, ONE+21, BEG+7, HILO+1*, HILO+3*, HILO+4, CLEAN+3!
INDIC EDATE*, BEG, BEG+6*, BEG+10*, BEG+12, CLEAN!
INFO PRINT+2~, ONE+6*, ONE+7*, ONE+9, CLEAN+2!
INFOLR PRINT+3~, PRINT+13, TWO+4*, TWO+12*, BEG+6*, BEG+10*, BEG+12*, CLEAN+1!
INFOPCC PRINT+3~, PRINT+12, ONE+17*, ONE+19*, ONE+20*, ONE+24*, CLEAN+1!
>> IORVOFF ONE+24, BEG+10
>> IORVON ONE+24, BEG+10
LDN TWO+10*, BEG+1, BEG+5, BEG+6, BEG+10, CLEAN!
LO PRINT+3~, ONE+21, BEG+7, HILO+1*, HILO+2*, HILO+4, CLEAN+3!
LRDFN TWO+5*, BEG, BEG+1, BEG+3, BEG+4, BEG+5, BEG+6, BEG+10, CLEAN!
MDAYS PRINT+3~, PRINT+9*, PRINT+10, ONE+1, ONE+7, TWO+8*, TWO+9, EDATE, CLEAN!
MDRUG PRINT+9*, ONE+7, TWO+8*, CLEAN!
>> PSODFN PRINT+5*, PRINT+6, ONE+6, ONE+7, TWO+4, TWO+5
>> PSODRUG("IEN" PRINT+9, TWO+8
>> PSOREF("DRUG IEN" , PRINT+9, TWO+8
>> PSOREF("PSODFN" PRINT+5
>> PSORENW("DRUG IEN" , PRINT+9, TWO+8
>> PSORENW("PSODFN" PRINT+5
RETURN PRINT+2~, CLEAN+2!
RETURN(1 ONE+10, ONE+11, ONE+13, ONE+15
>> SITE ONE+16*, ONE+18
TEST PRINT+2~, ONE+14*, ONE+17, ONE+20, ONE+24, CLEAN+2!
TST PRINT+3~, PRINT+9*, PRINT+10, ONE+6, ONE+14, ONE+20, ONE+24, TWO+8*, TWO+9, TWO+10
, TWO+12, BEG+6, BEG+10, HILO~, HILO+1, CLEAN!
TSTN TWO+10*, BEG+6, BEG+10, BEG+12, CLEAN!
TSTSP PRINT+3~, PRINT+9*, PRINT+10, ONE+18, ONE+20, ONE+24, TWO+8*, TWO+9, BEG+3, BEG+6
, BEG+10, HILO~, HILO+1, CLEAN!
VALUE PRINT+2~, ONE+13*, ONE+17, ONE+20, ONE+21, ONE+24, BEG+5*, BEG+7, CLEAN+2!
>> VLABIEN ONE+15*, ONE+16
X ONE+22*, EDATE*, BEG+8*, CLEAN!
Y EDATE, BEG+4*, BEG+6, BEG+10, BEG+11, CLEAN!
Info |  Source |  Call Graph |  Caller 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