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

Package: Outpatient Pharmacy

Routine: PSOASAP2


Information

PSOASAP2 ;BIRM/KML - American Society for Automation in Pharmacy (ASAP) Segments & Fields ;09/07/12

Source Information

Source file <PSOASAP2.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 4 ($$DSP04,$$DSP06,$$DSP09)^PSOASAP  ($$NUMERIC,$$PAT22)^PSOASAP0  $$RXRLDT^PSOBPSUT  $$GETNDC^PSONDCUT  
Kernel 3 ($$FMTHL7,$$HL7TFM,$$HTFM)^XLFDT  ($$LJ,$$RJ)^XLFSTR  $$NPI^XUSNPI  
VA FileMan 2 ($$FIND1,LIST)^DIC  $$GET1^DIQ  
Order Entry Results Reporting 1 ARCHIVE^ORDEA  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOASAP  PSOASAP1  

Entry Points

Name Comments DBIA/ICR reference
IS01() ; Unique Information Source ID
TH06() ;ASAP 3.0 : Response ID (Not Used)
; ASAP 4.0+: Creation Time. Format: HHMMSS or HHMM
; ASAP 5.0+: Creation Time. Data element increased in length from 6 to 7 to accomodate ZULU time Format: HHMMSSZ
PAT16() ;Patient ZIP Code
; US Zip Code
; if US then get VAPA(11), if ASAP version is 5 then get 2nd piece of VAPA(11) which is the US zip code with hyphens
; otherwise if ASAP version is a prior version then send zip code w/o hyphens (piece one)
PAT24() ;
; ASAP 5.0: Patient Preferred or Alias Last Name (new in 5.0)
PAT25() ;
; ASAP 5.0: Patient Preferred or Alias First Name (new in 5.0)
PAT26() ;
; ASAP 5.0: Patient Race Category (new in 5.0)
PAT27() ;
; ASAP 5.0: Patient Ethnicity (new in 5.0)
DSP08() ;ASAP 3.0 : Unique System ID - Drug (Not Used)
; ASAP 4.0+:Product ID (NDC - National Drug Code)
DSP27() ; ASAP 5.0: Time Filled (new with 5.0)
DSP29() ; ASAP 5.0: Total Quantity Remaining on Prescription (new with 5.0)
DSP30() ;ASAP 5.0: Total Quantity Remaining Drug Dosage Units Code (new in 5.0)
DSP34() ;ASAP 5.0: DEA Schedule/State Designation (new in 5.0)
PRE11() ;ASAP 5.0: Prescriber Address Information 1 (added in 5.0)
PRE12() ;ASAP 5.0: Prescriber Address Information 2 (added in 5.0)
PRE13() ;ASAP 5.0: Prescriber City Address (added in 5.0)
PRE14() ;ASAP 5.0: Prescriber State Address (added in 5.0)
PRE15() ;ASAP 5.0: Zip Code Address (added in 5.0)
RACE ; mapping of race and codes for PAT26
; race in VistA^code in ASAP specification
ETHNICITY ; mapping of ethnicity and codes for PAT27
; ethnicity in VistA^code in ASAP specification
ORDERARCHIVE(X) ; returns data from the ORDER DEA ARCHIVE INFO file (#101.52)
; Input - X = PLACER ORDER NUMBER (#52,39.3)
; Output - ^TMP($J,"ORDEA",ORIFN)
; - DEA # (101.52,10)
UTCTIM(FMDTM,TIMLEN) ; UTC Time
; Input=FM Date/Time
; Output=UTC time only, with appended "Z"

External References

Name Field # of Occurrence
$$FIND1^DIC PRE11+7, PRE12+7, PRE13+7, PRE14+7, PRE14+8, PRE15+7
LIST^DIC PAT24+5, PAT25+5
$$GET1^DIQ IS01+8, IS01+9, IS01+10, IS01+12, DSP08+5, DSP29+3, DSP30+3, DSP34+3, PRE11+3, PRE11+7
, PRE12+3, PRE12+7, PRE13+3, PRE13+7, PRE14+3, PRE14+7, PRE14+9, PRE15+3, PRE15+7
ARCHIVE^ORDEA ORDERARCHIVE+6
$$DSP04^PSOASAP DSP29+4
$$DSP06^PSOASAP DSP29+5
$$DSP09^PSOASAP DSP29+6
$$NUMERIC^PSOASAP0 DSP08+4, DSP08+5, DSP08+6
$$PAT22^PSOASAP0 PAT16+4
$$RXRLDT^PSOBPSUT DSP27+3
$$GETNDC^PSONDCUT DSP08+6
$$SITE^VASITE IS01+4
$$FMTHL7^XLFDT UTCTIM+7, UTCTIM+11
$$HL7TFM^XLFDT UTCTIM+9
$$HTFM^XLFDT TH06+3
$$LJ^XLFSTR UTCTIM+14
$$RJ^XLFSTR DSP08+7
$$NPI^XUSNPI IS01+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.01 LIST^DIC
^DIC(4 - [#4] GET1^DIQ
^DIC(5 - [#5] FIND1^DIC,  GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59 - [#59] GET1^DIQ
^XTV(8991.9 - [#8991.9] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] IS01+7
^TMP("DILIST" PAT24+4!, PAT24+6, PAT24+7, PAT25+4!, PAT25+6, PAT25+7
^TMP($J PRE11+8, PRE12+8, PRE13+8, PRE14+8, PRE15+8, ORDERARCHIVE+7

Label References

Name Line Occurrences
$$ORDERARCHIVE PRE11+5, PRE12+5, PRE13+5, PRE14+5, PRE15+5
$$UTCTIM TH06+3, DSP27+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD1 PRE11+2~, PRE11+7*, PRE11+8
ADD2 PRE12+2~, PRE12+7*, PRE12+8
CITYADD PRE13+2~, PRE13+7*, PRE13+8
DA IS01+3~, IS01+7*, IS01+8, IS01+9
DEA DSP34+2~, DSP34+3*, DSP34+4, ORDERARCHIVE+5~, ORDERARCHIVE+7*, ORDERARCHIVE+8
DEANUM PRE11+2~, PRE11+5*, PRE11+6, PRE11+7, PRE12+2~, PRE12+5*, PRE12+6, PRE12+7, PRE13+2~, PRE13+5*
, PRE13+6, PRE13+7, PRE14+2~, PRE14+5*, PRE14+6, PRE14+7, PRE15+2~, PRE15+5*, PRE15+6, PRE15+7
DESC PAT26+3~, PAT26+5*, PAT26+7, PAT27+3~, PAT27+5*, PAT27+6
>> DRUGIEN DSP08+5, DSP30+3, DSP34+3
DSP04 DSP29+2~, DSP29+4*, DSP29+7
DSP06 DSP29+2~, DSP29+5*, DSP29+7
DSP08 DSP08+3~*, DSP08+4*, DSP08+5*, DSP08+6*, DSP08+7*, DSP08+8
DSP09 DSP29+2~, DSP29+6*, DSP29+7
DT IS01+11, DSP27+3
>> FILLNUM DSP08+6, DSP27+3
FMDTM UTCTIM~, UTCTIM+5, UTCTIM+7
FMDTMU UTCTIM+3~, UTCTIM+9*, UTCTIM+11
FOUND PAT26+3~, PAT26+4*, PAT26+5, PAT26+6*, PAT26+7*, PAT27+3~, PAT27+4*, PAT27+5, PAT27+6*
HLDATIM UTCTIM+3~, UTCTIM+7*, UTCTIM+9, UTCTIM+11*, UTCTIM+13
HLTIMU UTCTIM+3~, UTCTIM+13*, UTCTIM+14*, UTCTIM+15
I DSP08+3~
IS01 IS01+3~, IS01+5*, IS01+8*, IS01+10*, IS01+12*, IS01+13
LINE PAT26+3~, PAT26+5*, PAT27+3~, PAT27+5*
NPINST IS01+3~, IS01+9*, IS01+10, IS01+11
NPINUM IS01+3~, IS01+11*, IS01+12
ORDNUM PRE11+2~, PRE11+3*, PRE11+4, PRE11+5, PRE11+8, PRE12+2~, PRE12+3*, PRE12+4, PRE12+5, PRE12+8
, PRE13+2~, PRE13+3*, PRE13+4, PRE13+5, PRE13+8, PRE14+2~, PRE14+3*, PRE14+4, PRE14+5, PRE14+8
, PRE15+2~, PRE15+3*, PRE15+4, PRE15+5, PRE15+8
PAT26 PAT26+3~, PAT26+4*, PAT26+6*, PAT26+7*, PAT26+8
PAT27 PAT27+3~, PAT27+4*, PAT27+6*, PAT27+7
>> PATIEN PAT24+5, PAT25+5
>> PSOASVER IS01+6, TH06+3, PAT16+4, PAT24+2, PAT25+2, PAT26+2, PAT27+2, DSP08+2, DSP08+7, DSP27+1
, DSP29+1, DSP30+1, DSP34+1, PRE11+1, PRE12+1, PRE13+1, PRE14+1, PRE15+1
>> RECTYPE DSP08+4, DSP27+3
>> RTSDATA("NDC" DSP08+4
>> RTSDATA("RELDTTM" DSP27+3
>> RXIEN DSP08+6, DSP27+3, DSP29+3, PRE11+3, PRE12+3, PRE13+3, PRE14+3, PRE15+3
SITE IS01+3~, IS01+4*, IS01+5, IS01+7, IS01+8, IS01+10, IS01+12
STATEIEN PRE14+2~, PRE14+7*, PRE14+8*, PRE14+9
TIMLEN UTCTIM~, UTCTIM+4*, UTCTIM+14
UNITS DSP30+2~, DSP30+3*, DSP30+4
UTCX DSP27+2~, DSP27+4*, DSP27+5
>> VADM(11 PAT27+6
>> VADM(12 PAT26+6, PAT26+7
>> VAPA(11 PAT16+4
>> VAPA(24 PAT16+6
X PAT24+3~, PAT24+6*, PAT24+7, PAT25+3~, PAT25+6*, PAT25+7, DSP08+3~, DSP27+2~, DSP27+3*, DSP27+4
, ORDERARCHIVE~, ORDERARCHIVE+6, ORDERARCHIVE+7
Y DSP08+3~
ZIPCODE PRE15+2~, PRE15+7*, PRE15+8

Marked Items

Name Field # of Occurrence
$T(ETHNICITY+LINE PAT27+5
$T(RACE+LINE PAT26+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All