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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AG71A4

Package: IHS Patient Registration

Routine: AG71A4


Information

AG71A4 ;IHS/SD/EFG - Patient Registration 7.1 PATCH 4 PRE/POST INSTALL ;

Source Information

Source file <AG71A4.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 $$HTE^XLFDT  $$ADD^XPDMENU  ($$LAST,BMES,MES)^XPDUTL  SETUP^XQALERT  
IHS Patient Registration 3 $$INSTALLD^AG71ENV  ^AGCNVROI  UPDTHADD^AGUTILS  
VA Fileman 3 ^DIC  ^DIE  ^DIK  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PAT ;CLEAN UP D X-REF IN PATIENT FILE
SINGLE(K) ;EP - Get holders of a single key K.
GUAR1(PATPTR) ;EP - DELETE GUARANTOR ENTRIES WITH MISSING GUARANTORS OR DATES
GUAR ;CLEAR GUARANTOR RECORDS WITH INCOMPETE ENTRIES
PRE ;EP - From KIDS.
ADDHIST ;EP - ADD FIRST HISTORICAL ENTRY
RRE ;FIX "B" X-REF ENTRIES WITH NO ZERO RECORD
TS
POL ;
ADDMAN ;
PRVT ;CLEAR ANY PRIVATE ELIG RECORDS MISSING INSURER POINTER
POLHOLD ;
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
POST ;EP - From KIDS.
REDO ;
INSURER ;EP - CAN WE INCLUDE THIS IN AG PATCH 1??
MCD ;CLEAR MCD RECORDS MISSING .01 FIELD
VAALERT ;EP - SEND VA ALERT IF WANTED
MAIL ;Send install mail message.
SETDEF ;EP - SET DEFAULTS IN NEW PARAMETERS
OPTRES(AGM) ;
MCR ;

External References

Name Field # of Occurrence
$$INSTALLD^AG71ENV POST+48, POST+53
^AGCNVROI POST+6
UPDTHADD^AGUTILS ADDHIST+5
^DIC POLHOLD+14, ADDMAN+12, ADDMAN+16, ADDMAN+20, ADDMAN+22
^DIE POLHOLD+20, POLHOLD+28, POLHOLD+36, SETDEF+7
^DIK INSURER+10, PRVT+7, PRVT+9, REDO+3, REDO+9
$$HTE^XLFDT TS
^XMD MAIL+11
$$ADD^XPDMENU OPTRES+5
$$LAST^XPDUTL POST+42
BMES^XPDUTL POST+1, POST+6, POST+8, POST+11, POST+14, POST+17, POST+20, POST+23, POST+26, POST+29
, POST+32, POST+35, POST+40, POST+49, POST+51, POST+57, POST+61, OPTRES+1, OPTRES+3, OPTRES+5
MES^XPDUTL TS
SETUP^XQALERT VAALERT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"INSURER NODE:",$G(^AUPNPRVT(POLM,11,REC,0))
  • Line Location: POL+7
Routine Call
  • DIE
  • Line Location:
    • POLHOLD+20
    • POLHOLD+28
    • POLHOLD+36
    • SETDEF+7
Routine Call
  • DIC
  • Line Location:
    • POLHOLD+14
    • ADDMAN+12
    • ADDMAN+16
    • ADDMAN+20
    • ADDMAN+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPN3PPH - [#9000003.1] Classic Fileman Calls
^AUPNPRVT - [#9000006] Classic Fileman Calls
^AUPNGUAR - [#9000043] Classic Fileman Calls
^AGFAC - [#9009061] Classic Fileman Calls
^AUTNINS - [#9999999.18] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGEDERRS - [#9009061.5] PRE+5!
^AGFAC - [#9009061] ADDMAN+3, ADDMAN+4, SETDEF+3
^AUPN3PPH - [#9000003.1] POLHOLD+3, POLHOLD+4, POLHOLD+5, POLHOLD+6
^AUPNGUAR - [#9000043] GUAR+3, REDO+1, REDO+6, REDO+7
^AUPNMCD - [#9000004] MCD+5, MCD+7!, MCD+8
^AUPNMCR - [#9000003] MCR+3!, MCR+5, MCR+6!
^AUPNMCR("B" MCR+2, MCR+3!, MCR+6!
^AUPNPAT - [#9000001] MCD+8, PAT+3, ADDHIST+4
^AUPNPAT("D" PAT+1, PAT+2, PAT+3!
^AUPNPRVT - [#9000006] PRVT+3, PRVT+5, PRVT+6!, PRVT+7, PRVT+8, PRVT+12!, POL+4, POL+6, POL+7, POL+8
^AUPNPRVT("B" PRVT+10, PRVT+11, PRVT+12!
^AUPNPRVT("C" POL+1, POL+2, POL+3, POL+8!
^AUPNRRE - [#9000005] RRE+4!, RRE+6, RRE+7!
^AUPNRRE("B" RRE+3, RRE+4!, RRE+7!
^AUTNINS - [#9999999.18] INSURER+2, INSURER+3!, INSURER+8
^AUTNINS("B" INSURER+3!, INSURER+5, INSURER+7
^DIC(9.4 - [#9.4] PATCH+3, PATCH+4, PATCH+6, PATCH+7
^DPT - [#2] MCD+8, PAT+3, ADDHIST+3
^TMP("AG71MS" MAIL+2!, MAIL+3*, MAIL+4*, MAIL+8*, MAIL+12!
^XTMP("AG71" OPTRES+3, OPTRES+5
^XTMP("XPDI" MAIL+8
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$PATCH POST+6
ADDHIST POST+44
ADDMAN POST+36
GUAR POST+27
GUAR1 GUAR+3
INSURER POST+18
MAIL POST+50, POST+59
MCD POST+12
MCR POST+15, POST+21
OPTRES POST+55
PAT POST+30
POLHOLD POST+33
PRVT POST+9
REDO REDO+6
RRE POST+24
SETDEF POST+46
SINGLE MAIL+10
TS POST+1, POST+6, POST+8, POST+11, POST+14, POST+17, POST+20, POST+23, POST+26, POST+29
, POST+32, POST+35, POST+40, POST+49, POST+51, POST+55, POST+57, POST+61

Naked Globals

Name Field # of Occurrence
^( MAIL+8, OPTRES+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAIL+7*, MAIL+8*, MAIL+10*, PATCH+2~, PATCH+7*, PATCH+8
AG OPTRES+2~, OPTRES+4*, OPTRES+5*
AGERRLST MAIL+6!, MCD+2!
AGERRLST( MCD+8*
AGI OPTRES+2~, OPTRES+5*
AGM OPTRES~, OPTRES+1, OPTRES+3, OPTRES+5
>> CNT MAIL+5*, MAIL+8
>> D1 PRVT+4*, PRVT+5*, PRVT+6, PRVT+7
DA INSURER+9!, INSURER+10*, PRVT+7*, PRVT+9*, REDO+3!*, REDO+9!*, POLHOLD+16!, POLHOLD+17*, POLHOLD+24!, POLHOLD+25*
, POLHOLD+32!, POLHOLD+33*, ADDMAN+1!, SETDEF+1!, SETDEF+4*
DA(1 PRVT+7*, REDO+9*, ADDMAN+4*, ADDMAN+6, ADDMAN+8
DA(2 ADDMAN+7*, ADDMAN+8
DD ADDMAN+1!
DFN MCD+3~, MCD+8*
DIC INSURER+9!, REDO+3!, REDO+9!, POLHOLD+11!, POLHOLD+13*, POLHOLD+16!, POLHOLD+24!, POLHOLD+32!, ADDMAN+1!, ADDMAN+8*
, SETDEF+1!
DIC("DR" ADDMAN+11*, ADDMAN+15*, ADDMAN+19*
DIC(0 ADDMAN+10*, ADDMAN+14*, ADDMAN+18*
DIE INSURER+9!, REDO+3!, REDO+9!, POLHOLD+16!, POLHOLD+18*, POLHOLD+24!, POLHOLD+26*, POLHOLD+32!, POLHOLD+34*, ADDMAN+1!
, SETDEF+1!, SETDEF+5*
DIFROM MAIL+1~
DIK INSURER+9!, INSURER+10*, PRVT+7*, PRVT+9*, REDO+3!*, REDO+9!*
DINUM ADDMAN+1!
DIR INSURER+9!, SETDEF+1!
DO ADDMAN+1!
DOB POLHOLD+1~, POLHOLD+5*, POLHOLD+7, POLHOLD+21, POLHOLD+22, POLHOLD+23
DR INSURER+9!, POLHOLD+16!, POLHOLD+19*, POLHOLD+24!, POLHOLD+27*, POLHOLD+32!, POLHOLD+35*, ADDMAN+1!, SETDEF+6*
DUZ MAIL+9
DUZ(2 MCD+8
>> DUZ2 ADDMAN+2*, ADDMAN+3*, ADDMAN+4, ADDMAN+7, SETDEF+2*, SETDEF+3*, SETDEF+4
HRN MCD+3~, PAT+1*, PAT+2, PAT+3
I PATCH+2~, PATCH+3*, PATCH+4, PATCH+6, PATCH+7
IEN PRE+5*, PRVT+11*, PRVT+12, POLHOLD+1~, POLHOLD+2*, POLHOLD+3*, POLHOLD+4, POLHOLD+5, POLHOLD+6, POLHOLD+10
, POLHOLD+17, POLHOLD+23, POLHOLD+25, POLHOLD+31, POLHOLD+33
J PATCH+2~, PATCH+4*, PATCH+6, PATCH+7
K SINGLE~, SINGLE+3, SINGLE+4
MCDNUM MCD+3~
PADFN ADDHIST+1~
>> PATDFN ADDHIST+2*, ADDHIST+3*, ADDHIST+4, ADDHIST+5
PATPTR GUAR+1~, GUAR+2*, GUAR+3*, GUAR1~, REDO+1, REDO+3, REDO+6, REDO+7, REDO+9
>> POLH POL+1*, POL+2, POL+3, POL+4, POL+5, POL+8
>> POLM POL+2*, POL+3, POL+4, POL+5, POL+6, POL+7, POL+8
>> REC POL+3*, POL+4, POL+5, POL+6, POL+7, POL+8
>> RECIEN INSURER+6*, INSURER+7*, INSURER+8, INSURER+10
>> RECNO MCD+4*, MCD+5*, MCD+7, MCD+8, RRE+2*, RRE+3*, RRE+4, RRE+5*, RRE+6*, RRE+7
, MCR+1*, MCR+2*, MCR+3, MCR+4*, MCR+5*, MCR+6, INSURER+1*, INSURER+2*, INSURER+3, INSURER+4*
, INSURER+5*, INSURER+7, PAT+2*, PAT+3, PRVT+2*, PRVT+3*, PRVT+5, PRVT+6, PRVT+7, PRVT+8
, PRVT+9, PRVT+10*, PRVT+11, PRVT+12
REDO GUAR1+1~, REDO+5*, REDO+6, REDO+9*
SEX POLHOLD+1~, POLHOLD+6*, POLHOLD+7, POLHOLD+29, POLHOLD+30, POLHOLD+31
ST MCD+3~
STATE POLHOLD+1~, POLHOLD+4*, POLHOLD+7, POLHOLD+8, POLHOLD+9, POLHOLD+10, POLHOLD+12
SUB1 GUAR1+1~, REDO+1*, REDO+2, REDO+5*, REDO+6*, REDO+7, REDO+9
SUB11 GUAR1+1~, REDO+7*, REDO+8
U OPTRES+5, MCD+7, MCD+8, RRE+4, RRE+7, MCR+3, MCR+6, INSURER+8, PRVT+6, PRVT+7
, PRVT+12, POLHOLD+4, POLHOLD+5, POLHOLD+6, POL+4, POL+6, POL+7, POL+8
X POST+42*, POLHOLD+12*, PATCH~, PATCH+1, PATCH+3, PATCH+4*, PATCH+6, PATCH+7, PATCH+8, ADDMAN+9*
, ADDMAN+13*, ADDMAN+17*, ADDMAN+21*
XMDUZ MAIL+1~, MAIL+9*
XMSUB MAIL+1~, MAIL+9*
XMTEXT MAIL+1~, MAIL+9*
XMY MAIL+1~
XMY( MAIL+9*, SINGLE+4*
XMY(1 MAIL+9*
>> XPDA MAIL+8
>> XPDBLD MAIL+8
>> XQA("AG MAIL GROUP" , VAALERT+2*
>> XQAMSG VAALERT+1*
Y SINGLE+1~, SINGLE+2*, SINGLE+4*, POLHOLD+15

Marked Items

Name Field # of Occurrence
$T( MAIL+9, VAALERT+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All