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

Package: IFCAP

Routine: PRCPHLQU


Information

PRCPHLQU ;WISC/CC/DWA-Build/receive HL7 messages for QOH queries ;4/00

Source Information

Source file <PRCPHLQU.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
IFCAP 7 UPDATE^PRCPHL1  NAME^PRCPHL70  ERR^PRCPHLM0  (ADD,CLEAR)^PRCPULOC  $$ORDERNO^PRCPUTRX  $$INVNAME^PRCPUX1  GETUSER^PRCPXTRM  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIE  
Health Level Seven 2 INIT^HLFNC2  GENERATE^HLMA  
MailMan 1 EN^XMB  

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

Package Total Caller Graph
IFCAP 3 PRCPHL70  PRCPRDIS  PRCPSSQT  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**1,24,52**;Oct 20, 2000
BLDSEG(INVPT) ;
1
2
3
GETMSG(PRCPDA,PRCPDONE) ; receive query information from file 447.1
LOOP
Q
ERR ;

External References

Name Field # of Occurrence
DD^%DT GETMSG+27
NOW^%DTC 2
^DIE Q+26
INIT^HLFNC2 1
GENERATE^HLMA 3
UPDATE^PRCPHL1 LOOP+21
NAME^PRCPHL70 LOOP+9, LOOP+10
ERR^PRCPHLM0 ERR+7
ADD^PRCPULOC GETMSG+12
CLEAR^PRCPULOC GETMSG+17, Q+25
$$ORDERNO^PRCPUTRX GETMSG+30
$$INVNAME^PRCPUX1 Q+16, ERR+3
GETUSER^PRCPXTRM Q+13
EN^XMB Q+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"HL7 can't build your QOH update request now. Please try later."
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !,"HL7 Error: "_$P(HL,"^",2)
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,"ERROR: ",MYRESULT
  • Line Location: 3+3
Routine Call
  • DIE
  • Line Location:
    • Q+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445 - [#445] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] LOOP+7, LOOP+9, Q+6
^PRCP(445 - [#445] BLDSEG+4, 2+5, 2+8, GETMSG+9, GETMSG+11, GETMSG+13, GETMSG+16, GETMSG+18, GETMSG+19, GETMSG+20
, LOOP+5, LOOP+6, LOOP+10, LOOP+11, LOOP+15*, LOOP+16, Q+1, Q+5, Q+22*, Q+25
^PRCP(445.5 - [#445.5] 2+8, GETMSG+9, Q+1
^PRCP(447.1 - [#447.1] GETMSG+3, LOOP, LOOP+1
^TMP($J Q+2!, Q+8*, Q+10*, Q+11*, Q+12*, Q+20!
^VA(200 - [#200] GETMSG+28

Label References

Name Line Occurrences
ERR GETMSG+18, GETMSG+19, GETMSG+20
LOOP LOOP+5, LOOP+6, LOOP+7, LOOP+23
Q LOOP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BLDSEG+2~, 2
%H BLDSEG+2~
%I BLDSEG+2~
CNT BLDSEG+2~, BLDSEG+3*
DA Q+24~, Q+26*
DATETIME BLDSEG+2~, 2*, 2+1, 2+5
DIE Q+24~, Q+26*
DR Q+24~, Q+26*
>> ERR GETMSG+18*, GETMSG+19*, GETMSG+20*, ERR+2
>> HL 1, 1+2, 1+5
>> HL("ECH" 1+7
>> HL("FS" 1+6, 2+1, 2+5
HLA BLDSEG+2~
HLA("HLS" 2+2*, 2+6*
HLCS BLDSEG+2~, 1+7*
HLEVN BLDSEG+2~
HLFS BLDSEG+2~, 1+6*
>> HLL("LINKS" 2+8*
INVPT BLDSEG~, BLDSEG+4, 2+5, 2+8
ITEM Q~, Q+3*, Q+4*, Q+5, Q+6, Q+7, Q+8, Q+14*
ITEMDATA GETMSG+1~
ITEMNAME Q~, Q+5*, Q+6*, Q+8
LN Q~, Q+3*, Q+8, Q+9*, Q+12
MC BLDSEG+2~
MYOPTNS BLDSEG+2~, 3
MYRESULT BLDSEG+2~, 3, 3+1, 3+3
NUMBER ERR+1~, ERR+2*, ERR+7
PRCPDA GETMSG~, GETMSG+3, LOOP, LOOP+1
PRCPDATA GETMSG+1~, GETMSG+3*, GETMSG+4, GETMSG+5, GETMSG+6, GETMSG+7, LOOP+1*, LOOP+2, LOOP+3, LOOP+4
, LOOP+11*, LOOP+12, LOOP+13*, LOOP+14*, LOOP+15
PRCPDONE GETMSG~, Q+27*, ERR+8*
PRCPHL7 GETMSG+1~, GETMSG+4*, LOOP+9, LOOP+10, ERR+7
>> PRCPHLPO LOOP+21, ERR+7
>> PRCPHLPO("DATE" GETMSG+21*
>> PRCPHLPO("INVVAL" LOOP+19*, LOOP+20
>> PRCPHLPO("ITEM" LOOP+16*, LOOP+18, LOOP+19, LOOP+22, ERR+4*
>> PRCPHLPO("LEFT" ERR+6*
>> PRCPHLPO("NAME" ERR+5*
>> PRCPHLPO("QTY" LOOP+18*, LOOP+19
>> PRCPHLPO("REASON" GETMSG+22*, GETMSG+28*
>> PRCPHLPO("RECIPIENT" GETMSG+23*
>> PRCPHLPO("SELVAL" LOOP+20*
>> PRCPHLPO("SIPNAME" ERR+3*
>> PRCPHLPO("TRAN" GETMSG+30*
>> PRCPHLPO("USER" GETMSG+24*, GETMSG+29*
PRCPITDA GETMSG+1~, GETMSG+32*, LOOP*, LOOP+1
PRCPITEM GETMSG+1~, LOOP+2*, LOOP+5, LOOP+6, LOOP+7, LOOP+9, LOOP+10, LOOP+11, LOOP+15, LOOP+16
, LOOP+21, LOOP+22, ERR+4, ERR+5
PRCPITNM GETMSG+1~, LOOP+3*, LOOP+5, LOOP+6, LOOP+7, LOOP+9, LOOP+10, ERR+5
PRCPLEFT GETMSG+1~, LOOP+4*, LOOP+5, LOOP+6, LOOP+7, LOOP+14, LOOP+18, LOOP+21, LOOP+22, ERR+6
PRCPQTY GETMSG+1~
PRCPQTY( LOOP+5*, LOOP+6*, LOOP+7*, LOOP+22*, Q+4, Q+7, Q+8
PRCPQTY(0 Q+10
PRCPREP GETMSG+1~, GETMSG+8*, GETMSG+13*, GETMSG+14, GETMSG+15*, GETMSG+25, GETMSG+27, GETMSG+28, GETMSG+29, LOOP+17
, LOOP+22, Q+10, Q+11, Q+23
PRCPSEC GETMSG+1~, GETMSG+6*, GETMSG+9, GETMSG+11, GETMSG+12, GETMSG+13, GETMSG+16, GETMSG+17, GETMSG+18, GETMSG+19
, GETMSG+20, GETMSG+30, LOOP+5, LOOP+6, LOOP+9, LOOP+10, LOOP+11, LOOP+15, LOOP+16, LOOP+21
, Q+1, Q+5, Q+13, Q+16, Q+22, Q+25, Q+26, ERR+3, ERR+7
PRCPSITE GETMSG+1~, GETMSG+5*
PRCPSSFL GETMSG+1~, GETMSG+9*, LOOP+9, LOOP+10
PRCPWHEN GETMSG+1~, GETMSG+7*, GETMSG+14, GETMSG+21, LOOP+12, LOOP+13, Q+22
PRCPXMY Q~, ERR+1~
PRCPXMY( Q+14
PRCPXMY("" Q+13
QTYIP Q~, Q+7*, Q+8
QTYSS Q~, Q+7*, Q+8
SEG BLDSEG+2~, 2+1*, 2+2, 2+5*, 2+6
SSTYPE Q~, Q+1*, Q+6
XMB Q~, Q+17*
XMB(1 Q+16*
XMDUZ Q~, Q+18*
XMTEXT Q~, Q+15*
>> XMY( Q+14*
Y GETMSG+26~, GETMSG+27*, GETMSG+28
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 |  Local Variables  | All