Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: AFJXWCP1

Package: Network Health Exchange

Routine: AFJXWCP1


Information

AFJXWCP1 ;FO-OAKLAND/GMB-REQUEST PATIENT INFORMATION ;4/11/96 05:36

Source Information

Source file <AFJXWCP1.m>

Entry Points

Name Comments DBIA/ICR reference
REQUEST(AXTYPE) ; Request data
INIT(AXTYPE,AXPARM,AXABORT) ;
SITES(AXTO,AXABORT) ; Choose station(s)
CHKALL(AXTO) ; "ALL LOCAL AREA SITES"
CHKSITE(AXDOMIEN,AX25IEN,AXTO) ;
MESSAGE(XMY,AXSSN) ; Build message and transmit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: REQUEST+4
Function Call: WRITE
  • Prompt: "@"
  • Line Location: REQUEST+4
Function Call: WRITE
  • Prompt: !,?8,"This option will request ",AXPARM("U")," DATA from another VAMC."
  • Line Location: REQUEST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REQUEST+6
Function Call: WRITE
  • Prompt: "@"
  • Line Location: REQUEST+6
Function Call: WRITE
  • Prompt: !!,?5,"You can't request information if the patient is not already on file.",!
  • Line Location: REQUEST+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: REQUEST+10
Function Call: WRITE
  • Prompt: !,?5,$C(7),"SORRY, You can't request Pseudo SSNs."
  • Line Location: REQUEST+16
Function Call: WRITE
  • Prompt: !,$C(7),"No valid sites chosen. No request sent."
  • Line Location: REQUEST+19
Function Call: WRITE
  • Prompt: !,"Routine ^AFJXWCP1 called with incorrect TYPE parameter: ",AXTYPE
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SITES+10
Function Call: WRITE
  • Prompt: !,"Network Area Recipients:"
  • Line Location: CHKALL+2
Function Call: WRITE
  • Prompt: !,^XMB("NETNAME")," FYI: That's this domain."
  • Line Location: CHKSITE+6
Function Call: WRITE
  • Prompt: !,$P(AXDOMREC,U,1)
  • Line Location: CHKSITE+15
Function Call: WRITE
  • Prompt: !!,"Sending Patient Data Request..."
  • Line Location: MESSAGE+2
Function Call: WRITE
  • Prompt: !,"Local Message ID: "_XMZ
  • Line Location: MESSAGE+6
Function Call: WRITE
  • Prompt: !!,"Your request has been submitted for completion."
  • Line Location: MESSAGE+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AFJ(537000 - [#537000] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call