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 |  All
Print Page as PDF
Routine: AFJXALRT

Package: Network Health Exchange

Routine: AFJXALRT


Information

AFJXALRT ;FO-OAKLAND/GMB-PROCESS INFO AND ALERT USER ;3/17/99 13:42

Source Information

Source file <AFJXALRT.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ($$FMTE,$$NOW)^XLFDT  ($$CJ,$$LJ,$$REPEAT)^XLFSTR  (DSD,DSDOC)^ZISPL  
VA FileMan 4 $$FIND1^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  
MailMan 2 REMSBMSG^XMA1C  ^XMD  
Health Summary 1 EN^GMTS1  
Network Health Exchange 1 SPL2TMP^AFJXTRF  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Network Health Exchange 1 AFJXTRF  

Entry Points

Name Comments DBIA/ICR reference
CHKSEGS ; Check to see if all components exist before proceeding
NEW ;
SENSIT ; Data for sensitive patient was accessed,
; so notify DG SENSITIVITY MAILGROUP
PERSON(DFN) ; Get personal demographic info about the patient
OPENDEV ; Set IOP to a unique name to avoid duplicates
INIT ;
NHBP ; PHAR12 - EXTRACT 12 MONTHS OF PHARMACY INFORMATION
TOTAL ; EXTRACT ALL SEGMENTS WITH NO TIME LIMITATION
EXTRACT ; Extract one component
FAIL(AXERR) ; Note the error.
AUDIT ;
FINISH ; Send the data and clean up.
CLOSDEV ; Close the spooler device and get device info
; AXSPDOC = IEN in file 3.51 of the Spool Document
; AXSPDATA = IEN in file 3.519 of the Spool Data
BRIEF ; MED12 - EXTRACT 12 MONTHS OF ALL SEGMENTS
CLOSED(AXFROM) ; Returns 1 if sending site is closed; 0 otherwise.
ENTER ;
DUPLI ; Look for the same message number to avoid duplicate tracking entries
TRANSFER ; Transfer the spool data to the temp global
GATHER ; Gather the requested data on the patient (it is sent to spool)
SEND ; Send the data to the requestor
PHARM ; EXTRACT THE WHOLE PHARMACY
PROCESS(AXRQXMZ) ; Process data incoming

External References

Name Field # of Occurrence
^%ZIS OPENDEV+6
^%ZISC INIT+3, OPENDEV+7, CLOSDEV+4
SPL2TMP^AFJXTRF TRANSFER+1
$$FIND1^DIC CLOSED+3, INIT+14, INIT+17, EXTRACT+1, SENSIT+3
FILE^DICN NEW+6
^DIE DUPLI+8
$$GET1^DIQ CLOSED+5, OPENDEV+2, CLOSDEV+5, CLOSDEV+6, SENSIT+11
EN^GMTS1 EXTRACT+7
DEM^VADPT PERSON+2
$$FMTE^XLFDT INIT+6, PERSON+6
$$NOW^XLFDT DUPLI+7, NEW+5
$$CJ^XLFSTR FINISH+3, FAIL+4, SENSIT+6
$$LJ^XLFSTR PERSON+7
$$REPEAT^XLFSTR FAIL+10, SENSIT+5, SENSIT+7
REMSBMSG^XMA1C ENTER+3
^XMD SEND+6, SENSIT+17
DSD^ZISPL TRANSFER+2
DSDOC^ZISPL TRANSFER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMT(142.1 - [#142.1] FIND1^DIC
^GMT(142.99 - [#142.99] GET1^DIQ
^DPT - [#2] FIND1^DIC
^VA(200 - [#200] FIND1^DIC
^XMB(3.51 - [#3.51] GET1^DIQ
^DIC(4.2 - [#4.2] FIND1^DIC,  GET1^DIQ
^DG(43 - [#43] GET1^DIQ
^AFJ(537000 - [#537000] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AFJ(537000 - [#537000] AUDIT+3, DUPLI+3
^DGSL(38.1 - [#38.1] INIT+24
^TMP("AFJX" INIT+2!, INIT+5*, INIT+6*, INIT+20*, INIT+23*, FINISH+1, FINISH+2*, FINISH+3*, FINISH+5!, FAIL+2
, FAIL+3*, FAIL+4*, FAIL+5*, FAIL+6*, FAIL+7*, FAIL+8*, FAIL+9*, FAIL+10*
^XMB("NETNAME" INIT+6, FINISH+3, SEND+2
^XMB(3.9 - [#3.9] INIT+4

Label References

Name Line Occurrences
$$CLOSED ENTER+2
@( GATHER+3, CHKSEGS+3
AUDIT FINISH+7
CHKSEGS INIT+21
CLOSDEV GATHER+4
DUPLI AUDIT+3
EXTRACT TOTAL+1, PHARM+1
FAIL INIT+15, INIT+16, INIT+18, OPENDEV+3, OPENDEV+8, CHKSEGS+5
FINISH PROCESS+7
GATHER PROCESS+5
INIT PROCESS+3
NEW AUDIT+4
OPENDEV INIT+22
PERSON INIT+19
PROCESS ENTER+2
SEND FINISH+4
SENSIT FINISH+6
TRANSFER PROCESS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS OPENDEV+5*
AXABBR GATHER+1~, CHKSEGS+1~, TOTAL+1*, PHARM+1*, EXTRACT+1, EXTRACT+2
AXABORT PROCESS+1~, PROCESS+4, INIT+1*, INIT+19, INIT+21, INIT+22, FINISH+6, FAIL+1*, AUDIT+2
AXCHK GATHER+1~, CHKSEGS+1~, CHKSEGS+2*, EXTRACT+2
AXCHK("NF" CHKSEGS+4, CHKSEGS+5, EXTRACT+2*
AXDAYS GATHER+1~, BRIEF+1*, NHBP+1*, EXTRACT+4
AXDFN PROCESS+1~, INIT+17*, INIT+18, INIT+19, INIT+24, OPENDEV+4, EXTRACT+4
AXDOMIEN CLOSED+2~, CLOSED+3*, CLOSED+4, CLOSED+5, PROCESS+1~, INIT+14*, INIT+15, NEW+5
AXERR FAIL~, FAIL+8
AXFROM CLOSED~, CLOSED+1, CLOSED+3
AXGRP SENSIT+2~, SENSIT+11*, SENSIT+12
AXIEN DUPLI+1~, DUPLI+2*, DUPLI+3*, DUPLI+6
AXNHEDUZ SENSIT+2~, SENSIT+3*, SENSIT+4*, SENSIT+14
AXPID PROCESS+1~
AXPID("DOB" PERSON+6*, PERSON+7
AXPID("INFO" INIT+20, PERSON+7*
AXPID("NAME" SEND+2, PERSON+3*, PERSON+7, SENSIT+9
AXPID("S-S-N" PERSON+5*, PERSON+7
AXPID("SSN" PERSON+4*
AXRQDUZ PROCESS+2~, INIT+8*, NEW+5
AXRQFROM PROCESS+2~, INIT+13*, SENSIT+10
AXRQNAME PROCESS+2~, INIT+9*, INIT+13, NEW+5
AXRQREC PROCESS+2~, INIT+4*, INIT+5, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12
AXRQSITE PROCESS+2~, INIT+11*, INIT+13, INIT+14, INIT+15, SEND+3, SEND+4
AXRQSSN PROCESS+2~, INIT+7*, INIT+16, INIT+17, INIT+18, SEND+2, SENSIT+9, NEW+5
AXRQTYPE PROCESS+2~, INIT+12*, GATHER+3, SEND+2, CHKSEGS+3, NEW+5
AXRQWHEN PROCESS+2~, INIT+10*, NEW+5
AXRQXMZ PROCESS~, INIT+4, AUDIT+3, DUPLI+3, NEW+4
AXSEG GATHER+1~, CHKSEGS+1~, EXTRACT+1*, EXTRACT+2, EXTRACT+5, EXTRACT+6
AXSENSIT PROCESS+1~, INIT+24*, FINISH+6, DUPLI+7, NEW+5
AXSPDATA PROCESS+1~, TRANSFER+2, CLOSDEV+6*
AXSPDEV OPENDEV+1~, OPENDEV+2*, OPENDEV+3, OPENDEV+4*, OPENDEV+8
AXSPDOC PROCESS+1~, TRANSFER+2, CLOSDEV+3*, CLOSDEV+5, CLOSDEV+6
AXSUCCES AUDIT+1~, AUDIT+2*, DUPLI+7, NEW+5
AXTEXT SENSIT+2~
AXTEXT(1 SENSIT+5*
AXTEXT(2 SENSIT+6*
AXTEXT(3 SENSIT+7*
AXTEXT(4 SENSIT+8*
AXTEXT(5 SENSIT+9*
AXTEXT(6 SENSIT+10*
AXTI PROCESS+1~, INIT+1*, INIT+5*, INIT+6*, INIT+20*, INIT+23*, FINISH+1*, FINISH+2*, FINISH+3*, FAIL+2*
, FAIL+3*, FAIL+4*, FAIL+5*, FAIL+6*, FAIL+7*, FAIL+8*, FAIL+9*, FAIL+10*
DA DUPLI+4~, DUPLI+6*
DD NEW+1~
DFN PERSON~, EXTRACT+3~, EXTRACT+4*
DIC NEW+1~, NEW+2*
DIC("DR" NEW+5*
DIC(0 NEW+3*
DIE DUPLI+4~, DUPLI+5*
DLAYGO NEW+1~, NEW+2*
DO NEW+1~
DR DUPLI+4~, DUPLI+7*
DT INIT+6
GMTSDLM EXTRACT+3~, EXTRACT+4*, EXTRACT+5
GMTSEG EXTRACT+3~
GMTSEG(1 EXTRACT+5*
GMTSEGC EXTRACT+3~, EXTRACT+6*
GMTSEGI EXTRACT+3~
GMTSEGI( EXTRACT+6*
GMTSNDM EXTRACT+3~
GMTSTITL EXTRACT+3~, EXTRACT+4*
IO GATHER+2
IO("SPOOL" CLOSDEV+3
>> IOP OPENDEV+4*
>> POP OPENDEV+6
U INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+24, PERSON+4
VA PERSON+1~
VA("PID" PERSON+5
VADM PERSON+1~
VADM(1 PERSON+3
VADM(2 PERSON+4
VADM(3 PERSON+6
VAERR PERSON+1~
X NEW+1~, NEW+4*
XMDUZ SENSIT+2~, SENSIT+16*
XMSER ENTER+1~, ENTER+3*
XMSUB SEND+1~, SEND+2*, SENSIT+2~, SENSIT+13*
XMTEXT SEND+1~, SEND+5*, SENSIT+2~, SENSIT+15*
XMY SEND+1~, SENSIT+2~
XMY( SENSIT+14*
XMY("G." SENSIT+12*
XMY("NETWORK, HEALTH EXCHANGE@" , SEND+3*
XMY("S.AFJXNHDONE@" SEND+4*
XMZ ENTER+1~, ENTER+3*, SEND+1~, SENSIT+2~
>> XQMSG ENTER+2, ENTER+3
>> XQSND ENTER+2
Y NEW+1~
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 |  All