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

Package: Mental Health Social Services

Routine: AMHEGR1


Information

AMHEGR1 ; IHS/CMI/LAB - GROUP ENTRY ;

Source Information

Source file <AMHEGR1.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Mental Health Social Services 7 ($$PP,EDITGRP,EXIT,SIGN)^AMHEGR  $$ESIG^AMHESIG  $$PRVG^AMHGU  (PCCLINK,RECCHECK)^AMHLE2  $$IINTAKE^AMHLEDEL  $$ALLOWV^AMHUTIL  ($$CHKD,CPT)^AMHUTIL1  
IHS VA Utilities 5 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  DIQ^XBLM  EN^XBNEW  
VA Fileman 5 FILE^DICN  ^DIE  (,IX1)^DIK  ($$GET1,EN)^DIQ  ^DIR  
Registration 2 FULL^VALM1  EN^VALM2  
IHS Patient 1 $$DOD^AUPNPAT  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health Social Services 1 AMHEGR  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP - called from protocol
PAUSE ;EP
PPINI(R) ;
GATHER ;EP
ESIGGRP ;
DELR ;EP
DEL ;EP - called from protocol
DUP ;EP
POV(R) ;
PRTEF ;EP
SOAP ;EP - put in standard soap
PCCLINK ;EP

External References

Name Field # of Occurrence
$$PP^AMHEGR ESIGGRP+9
EDITGRP^AMHEGR DUP+39
EXIT^AMHEGR DEL+2, DEL+4, DEL+5, DEL+7, DEL+8, DEL+31, DEL+40, DEL+41, DEL+42, DEL+47
, SOAP+15, PRTEF+2, PRTEF+3, PRTEF+5, PRTEF+7, PRTEF+20, DISP+2, DISP+3, DISP+5, DISP+8
, ESIGGRP+2, ESIGGRP+3, ESIGGRP+5, ESIGGRP+7, ESIGGRP+8, ESIGGRP+10, DUP+2, DUP+3, DUP+5, DUP+9
, DUP+12
SIGN^AMHEGR ESIGGRP+11
$$ESIG^AMHESIG PCCLINK+7
$$PRVG^AMHGU GATHER+10
PCCLINK^AMHLE2 PCCLINK+15
RECCHECK^AMHLE2 SOAP+5
$$IINTAKE^AMHLEDEL DELR+4
$$ALLOWV^AMHUTIL GATHER+6
$$CHKD^AMHUTIL1 DUP+29
CPT^AMHUTIL1 DUP+34
$$DOD^AUPNPAT DUP+24
FILE^DICN SOAP+10, DUP+11
^DIE SOAP+4, DUP+37, PCCLINK+8, PCCLINK+16
^DIK DEL+42, DEL+43, DUP+25, DUP+30, DUP+35
IX1^DIK DUP+38
$$GET1^DIQ GATHER+11
EN^DIQ DEL+10
^DIR DEL+39, PAUSE+2, PRTEF+14, DUP+8
FULL^VALM1 DEL+9, PRTEF+6, DISP+6, ESIGGRP+6, DUP+6
EN^VALM2 DEL+3, PRTEF+1, DISP+1, ESIGGRP+1, DUP+1
^XBDBQUE PRTEF+19
$$VAL^XBDIQ1 DELR+2, PRTEF+10, GATHER+16, GATHER+18, PCCLINK+7, PCCLINK+11
^XBFMK SOAP+3, SOAP+7, DUP+12, DUP+14
DIQ^XBLM DISP+7
EN^XBNEW DELR+7
$$FMADD^XLFDT GATHER+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to delete a Group entry.",!,"Please see your supervisor or program manager.",!
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !,"Not a valid GROUP."
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !!,"This Group has been signed and you do not have security access to delete ",!,"a signed group. See your supervisor.",!
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+11
Function Call: WRITE
  • Prompt: !!,"This visit has an Initial Intake with Updates, it can not be deleted",!,"until the update documents have been deleted."
  • Line Location: DELR+4
Function Call: WRITE
  • Prompt: !,"Incomplete record!! Deleting record!!"
  • Line Location: SOAP+5
Function Call: WRITE
  • Prompt: !!,"adding record to group failed."
  • Line Location: SOAP+11
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: PRTEF+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: PRTEF+3
Function Call: WRITE
  • Prompt: !,"Not a valid GROUP."
  • Line Location: PRTEF+5
Function Call: WRITE
  • Prompt: !!,"There were no visits created for this group."
  • Line Location: PRTEF+7
Function Call: WRITE
  • Prompt: !!,"Forms will be generated for the following patient visits:"
  • Line Location: PRTEF+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRTEF+13
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Not a valid GROUP."
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"No Group selected."
  • Line Location: ESIGGRP+2
Function Call: WRITE
  • Prompt: !,"No Group selected."
  • Line Location: ESIGGRP+3
Function Call: WRITE
  • Prompt: !,"Not a valid GROUP."
  • Line Location: ESIGGRP+5
Function Call: WRITE
  • Prompt: !!,"There were no visits created for this group."
  • Line Location: ESIGGRP+7
Function Call: WRITE
  • Prompt: !!,"The notes for this group have already been signed.",!!
  • Line Location: ESIGGRP+8
Function Call: WRITE
  • Prompt: !!,"No E-Sig Required. Provider opted out of E-Sig."
  • Line Location: ESIGGRP+10
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: DUP+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: DUP+3
Function Call: WRITE
  • Prompt: !,"Not a valid GROUP."
  • Line Location: DUP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DUP+7
Function Call: WRITE
  • Prompt: !!,"entry of new group failed."
  • Line Location: DUP+12
Function Call: WRITE
  • Prompt: !!,"Processing PCC Link for all visits..."
  • Line Location: PCCLINK+1
Function Call: WRITE
  • Prompt: !!,"a previously entered visit has been deleted, skipping signature for that visit"
  • Line Location: PCCLINK+6
Function Call: WRITE
  • Prompt: !,"Signing note for ",$$VAL^XBDIQ1(9002011,AMHR,.08)
  • Line Location: PCCLINK+7
Function Call: WRITE
  • Prompt: !!,"Error updating electronic signature...see your supervisor for programmer help."
  • Line Location: PCCLINK+9
Routine Call
  • DIE
  • Line Location:
    • SOAP+4
    • DUP+37
    • PCCLINK+8
    • PCCLINK+16
Routine Call
  • DIR
  • Line Location:
    • DEL+39
    • PAUSE+2
    • PRTEF+14
    • DUP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHREC - [#9002011] Classic Fileman Calls
^AMHGROUP - [#9002011.67] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHGROUP - [#9002011.67] DEL+7, DEL+8, DEL+31, DEL+44, DEL+45, SOAP+1, PRTEF+5, PRTEF+7, PRTEF+9, PRTEF+17
, DISP+5, ESIGGRP+5, ESIGGRP+7, ESIGGRP+8, GATHER+5, GATHER+13, PPINI+3, POV+3, DUP+5, DUP+16*
, DUP+17!, DUP+18!, DUP+21, DUP+22, DUP+27, DUP+28, DUP+32, DUP+33, DUP+36*, PCCLINK+4
, PCCLINK+5, PCCLINK+12, PCCLINK+13, PCCLINK+14
^AMHGROUP("B" GATHER+3, GATHER+4, DUP+15!
^AMHPROB - [#9002012.2] POV+3
^AMHREC - [#9002011] DELR+1, DELR+5, SOAP+1*, SOAP+2*, PRTEF+9, PCCLINK+6
^AMHSITE - [#9002013] PRTEF+14, ESIGGRP+10, GATHER+8, GATHER+9
^AMHTACT - [#9002012] GATHER+14
^DD(9002011.67 SOAP+9
^TMP($J DEL+6, PRTEF+4, DISP+4, ESIGGRP+4, GATHER+1!, GATHER+20*, DUP+4
^VA(200 - [#200] PPINI+3, PCCLINK+8, PCCLINK+16
^XUSEC("AMHZ DELETE RECORD" DEL+2
^XUSEC("AMHZ DELETE SIGNED NOTE" DEL+8, DEL+31, DELR+1

Label References

Name Line Occurrences
$$POV GATHER+19
$$PPINI GATHER+17
DELR DEL+46, SOAP+5
PAUSE DEL+2, DEL+7, DEL+8, DEL+31, DELR+4, PRTEF+5, PRTEF+7, DISP+5, ESIGGRP+5, ESIGGRP+7
, ESIGGRP+8, ESIGGRP+10, DUP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A GATHER+14*
>> AMHACTN DELR+5*, PCCLINK+3*, PCCLINK+10*
>> AMHD GATHER+2*, GATHER+3*, GATHER+4, GATHER+13, DUP+10*, DUP+11, DUP+15, DUP+37
>> AMHDATE DUP+10*, DUP+29, DUP+34, PCCLINK+12*
>> AMHDELT DEL+12*, DEL+31, DEL+34, DEL+42, DEL+43
AMHEFT PRTEF+12!, PRTEF+16*
AMHEFTH PRTEF+12!, PRTEF+16*
AMHG DEL+6*, DEL+7!, DEL+8, DEL+10, DEL+31, DEL+42, DEL+43, DEL+44, DEL+45, DISP+4*
, DISP+5!, DISP+7, DUP+4*, DUP+5!, DUP+16
AMHGRPDE DEL+46*!
>> AMHGRPN PRTEF+17*
AMHGX PCCLINK+2~, PCCLINK+4*, PCCLINK+5
>> AMHLEGP("RECS ADDED" , PRTEF+11*
>> AMHLINE GATHER+2*, GATHER+13*, GATHER+20
>> AMHLOC PCCLINK+14*
>> AMHN GATHER+5*, GATHER+6, GATHER+13, GATHER+14, GATHER+15
AMHNG SOAP+1, SOAP+9, PRTEF+4*, PRTEF+5!, PRTEF+7, PRTEF+9, PRTEF+17, ESIGGRP+4*, ESIGGRP+5!, ESIGGRP+7
, ESIGGRP+8, ESIGGRP+9, DUP+13*, DUP+15, DUP+16, DUP+17, DUP+18, DUP+21, DUP+22, DUP+25
, DUP+27, DUP+28, DUP+30, DUP+32, DUP+33, DUP+35, DUP+36, DUP+37, DUP+38, PCCLINK+4
, PCCLINK+5, PCCLINK+12, PCCLINK+13, PCCLINK+14, PCCLINK+16
>> AMHOKAY SOAP+5*
>> AMHPRVM GATHER+7*, GATHER+8*, GATHER+10*, GATHER+11*, GATHER+12
>> AMHPTYPE PCCLINK+13*
>> AMHR DEL+45*, DELR+1, DELR+2, DELR+4, DELR+5, DELR+6, SOAP+1, SOAP+2, SOAP+4, SOAP+8
, PRTEF+9*, PRTEF+10, PRTEF+11, PCCLINK+5*, PCCLINK+6, PCCLINK+7, PCCLINK+8, PCCLINK+11
>> AMHRBD GATHER+3
AMHRDEL DEL+7!, DELR+6*, DISP+5!, DUP+5!
>> AMHRED GATHER+2
>> AMHSIGN PCCLINK+16
>> AMHVDLT DELR+5*
AMHX DEL+44*, DEL+45, GATHER+4*, GATHER+5, GATHER+10, GATHER+11, GATHER+13, GATHER+16, GATHER+17, GATHER+18
, GATHER+19, GATHER+20, DUP+20~, DUP+21*, DUP+22, DUP+25, DUP+27*, DUP+28, DUP+30, DUP+32*
, DUP+33, DUP+35, DUP+36
>> AMHY PRTEF+9*, PRTEF+11
>> C SOAP+1*, SOAP+2
DA DEL+10*, DEL+39!, DEL+42*, DEL+43*, SOAP+4*, PRTEF+14!, DUP+8!, DUP+25*!, DUP+30*!, DUP+35*!
, DUP+37*, DUP+38*, PCCLINK+8*!, PCCLINK+16!*
DA(1 SOAP+9*, DUP+25*, DUP+30*, DUP+35*
DD SOAP+10!, DUP+11!
DIADD DUP+11*, DUP+12!, DUP+14!
>> DIC DEL+10*, SOAP+9*, DUP+11*
>> DIC("P" SOAP+9*
>> DIC(0 SOAP+9*, DUP+11*
DIE SOAP+4*, DUP+37*, PCCLINK+8*!, PCCLINK+16!*
DIK DEL+42*!, DEL+43*!, DUP+25*!, DUP+30*!, DUP+35*!, DUP+38*
DIR DEL+39!, PAUSE+1!, PAUSE+2!, PRTEF+14!, DUP+8!
DIR("A" DEL+38*, PAUSE+2*, DUP+8*
DIR("B" DEL+39*, PRTEF+14*
DIR(0 DEL+39*, PAUSE+2*, PRTEF+13*, DUP+8*
>> DIRUT DEL+40, PAUSE+2*, PRTEF+15, DUP+9
DIU PCCLINK+16!
DIV PCCLINK+16!
DLAYGO DUP+11*, DUP+12!, DUP+14!
DO SOAP+10!, DUP+11!
DR SOAP+4*, DUP+37*, PCCLINK+8*!, PCCLINK+16!*
DT SOAP+2, DUP+37
>> DUOUT PAUSE+2
DUZ DEL+2, DEL+8, DEL+31, DELR+1, GATHER+6, GATHER+8, GATHER+9, GATHER+10, GATHER+11, DUP+37
, PCCLINK+8, PCCLINK+16
DUZ(2 PRTEF+14, ESIGGRP+10, GATHER+8, GATHER+9
P ESIGGRP+9*, ESIGGRP+10, POV+2~, POV+3*, DUP+20~, DUP+22*, DUP+23, DUP+24, DUP+28*, DUP+29
, DUP+33*, DUP+34
R DEL+5*!, DEL+6, DEL+7!, PRTEF+3*!, PRTEF+4, PRTEF+5!, DISP+3*!, DISP+4, DISP+5!, ESIGGRP+3*!
, ESIGGRP+4, ESIGGRP+5!, PPINI~, PPINI+1, PPINI+3, POV~, POV+1, POV+3, DUP+3*!, DUP+4
, DUP+5!
R1 DEL+7!, PRTEF+5!, DISP+5!, ESIGGRP+5!, DUP+5!
U DEL+8, DEL+31, DEL+45, DELR+1, DELR+5, SOAP+9, PRTEF+9, PRTEF+14, PRTEF+17, ESIGGRP+8
, GATHER+6, GATHER+13, GATHER+14, GATHER+15, PPINI+3, POV+3, DUP+22, DUP+28, DUP+33, DUP+36
, PCCLINK+5, PCCLINK+7, PCCLINK+8, PCCLINK+12, PCCLINK+13, PCCLINK+14, PCCLINK+16
VALMY DEL+4, DEL+5!, PRTEF+2, PRTEF+3!, DISP+2, DISP+3!, ESIGGRP+2, ESIGGRP+3!, DUP+2, DUP+3!
VALMY(0 DEL+5, PRTEF+3, DISP+3, ESIGGRP+3, DUP+3
X SOAP+1*, SOAP+8*, GATHER+13*, GATHER+14*, GATHER+15*, GATHER+16*, GATHER+17*, GATHER+18*, GATHER+19*, GATHER+20
, PPINI+2~, PPINI+3*, POV+2~, POV+3*, DUP+11*
>> XBNS PRTEF+18*
>> XBRC PRTEF+18*
>> XBRP PRTEF+18*
>> XBRX PRTEF+18*
XQORNOD DEL+5!, PRTEF+3!, DISP+3!, ESIGGRP+3!, DUP+3!
XQORNOD(0 DEL+3, PRTEF+1, DISP+1, ESIGGRP+1, DUP+1
Y DEL+41, SOAP+11, PRTEF+16, PPINI+2~, PPINI+3*, PPINI+4, POV+2~, POV+3*, POV+4, DUP+10
, DUP+12, DUP+13, PCCLINK+9, PCCLINK+16!
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