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

Package: Mental Health Social Services

Routine: AMHLEDV


Information

AMHLEDV ; IHS/CMI/LAB - ;

Source Information

Source file <AMHLEDV.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Mental Health Social Services 7 ^AMHDVD  EN^AMHEKL  (PCCLINK,RECCHECK)^AMHLE2  (DEL,OTHER,PAUSE)^AMHLEA  GATHER^AMHLEDV1  (,CALLDIE)^AMHLEIN  ($$ALLOWP,$$ALLOWVI,$$PPINT,NALLOWP)^AMHUTIL  
VA Fileman 6 ^DDS  ^DIC  (FILE,YN)^DICN  ^DIE  IX1^DIK  ^DIR  
Registration 4 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  EN^VALM2  
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHLEP1  AMHUTIL  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
HELP ;EP -- help code
BACK ;
EXPND ; -- expand code
PAUSE ;EP
POVS ;
GETPAT1
NEWDATE ;get new date
DISPLAY ;EP-DISPLAY AN ACTIVITY RECORD
SELECT ;select record, get new date, confirm, duplicate
HDR ;EP -- header code
CREATE ;
GETVISIT ;
INIT ;EP -- init variables and list array
LBLK(V,L) ;left blank fill
GETDATE ;EP
DUPLICAT ;
EN ; EP -- main entry point for AMH UPDATE ACTIVITY RECORDS
GETPAT ;EP
PROVS ;
XIT ;kill variables and quit
RBLK(V,L) ;EP - right blank fill
GETPROV ;
START ;
EP1 ;EP
GETHRN ;
EXIT ; -- exit code
SM ;

External References

Name Field # of Occurrence
^AMHDVD DISP+2
EN^AMHEKL XIT+2
PCCLINK^AMHLE2 SM+7
RECCHECK^AMHLE2 SM+4
DEL^AMHLEA SM+4
OTHER^AMHLEA SM+6
PAUSE^AMHLEA GETPAT1+5
GATHER^AMHLEDV1 INIT+2, BACK+3
^AMHLEIN START+4, EP1+4
CALLDIE^AMHLEIN CREATE+7
$$ALLOWP^AMHUTIL GETPAT1+5
$$ALLOWVI^AMHUTIL GETVISIT+6
$$PPINT^AMHUTIL GETVISIT+7
NALLOWP^AMHUTIL GETPAT1+5
^DDS SM+1
^DIC GETPAT1+2, GETPROV+1
FILE^DICN CREATE+2, POVS+2, PROVS+2
YN^DICN GETPAT1+7
^DIE CREATE+6
IX1^DIK CREATE+10
^DIR GETDATE+2, PAUSE+1, NEWDATE+2
EN^VALM EN+2
TERM^VALM0 BACK+2
CLEAR^VALM1 EN+3, XIT+1
FULL^VALM1 START+2, SELECT+6, NEWDATE+1, DISPLAY+6, EP1+2
EN^VALM2 SELECT+1, DISPLAY+1
^XBFMK GETPAT+1
$$FMTE^XLFDT GETPAT1+6, DUPLICAT+1
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option has been disabled."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"This option is used to duplicate a patient visit that occurred on a different",!,"day. The user selects a visit, enters a new date, and then the visit",!,"is copied to the new date.",!!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"You must first identify the patient and the visit to duplicate.",!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!!?20,"TYPE THE PATIENT'S HRN, NAME, SSN OR DOB"
  • Line Location: GETPAT1+0
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: GETPAT1+6
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Patient has no visits to duplicate"
  • Line Location: GETVISIT+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Patient has no visits to meeting your criteria to duplicate.",!
  • Line Location: GETVISIT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !,"Not a valid BH RECORD."
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !,"The following visit will be duplicated:",!
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-"),!
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: ^TMP("AMHPATV",$J,$O(VALMY(0)),0),!!!
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"New date not entered"
  • Line Location: NEWDATE+3
Function Call: WRITE
  • Prompt: !,"Duplicating visit to ",$$FMTE^XLFDT(AMHNEWD)," HOLD ON..."
  • Line Location: DUPLICAT+1
Function Call: WRITE
  • Prompt: !,"Creating new record..."
  • Line Location: CREATE+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",!
  • Line Location: CREATE+3
Function Call: WRITE
  • Prompt: !!,"Creating pov FAILED!"
  • Line Location: POVS+3
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: SM+2
Function Call: WRITE
  • Prompt: !!,"Incomplete record!! Deleting record!!"
  • Line Location: SM+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"PLEASE EDIT THIS RECORD!!",!!
  • Line Location: SM+5
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"Not a valid BH RECORD."
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: "No patient defined."
  • Line Location: EP1+1
Function Call: WRITE
  • Prompt: !!,"This option is used to duplicate a patient visit that occurred on a different",!,"day. The user selects a visit, enters a new date, and then the visit",!,"is copied to the new date.",!!
  • Line Location: EP1+6
Function Call: WRITE
  • Prompt: !,"You must first identify the patient and the visit to duplicate.",!
  • Line Location: EP1+7
Routine Call
  • VALM
  • Line Location:
    • EN+2
Routine Call
  • DIE
  • Line Location:
    • CREATE+6
Routine Call
  • DDS
  • Line Location:
    • SM+1
Routine Call
  • DIC
  • Line Location:
    • GETPAT1+2
    • GETPROV+1
Routine Call
  • DIR
  • Line Location:
    • GETDATE+2
    • PAUSE+1
    • NEWDATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AMHREC - [#9002011] Classic Fileman Calls
^AMHRPRO - [#9002011.01] Classic Fileman Calls
^AMHRPROV - [#9002011.02] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] GETVISIT+5, SELECT+5, DUPLICAT+2, CREATE+9*, SM+1, DISPLAY+5
^AMHREC("C" GETVISIT+1, GETVISIT+4
^AMHRPRO - [#9002011.01] POVS+2
^AMHRPRO("AD" POVS+1
^AMHRPROV - [#9002011.02] PROVS+2
^AMHRPROV("AD" PROVS+1
^AUPNPAT - [#9000001] GETHRN+3, GETHRN+4
^AUTTLOC - [#9999999.06] GETHRN+3, GETHRN+4
^DPT - [#2] HDR+3
^TMP("AMHPATV" EXIT+1!, XIT+3!, SELECT+4, SELECT+8, DISPLAY+4
^VA(200 - [#200] HDR+4

Label References

Name Line Occurrences
BACK NEWDATE+3
EXIT SM+4
GETDATE GETPAT+3, GETPROV+2, EP1+8
GETHRN HDR+2
GETPAT1 GETPAT1+5
HDR BACK+5
PAUSE GETVISIT+1, GETVISIT+10, SELECT+4, SELECT+5, CREATE+3, DISPLAY+4, DISPLAY+5
XIT GETPAT1+3, GETDATE+3, GETVISIT+1, GETVISIT+10, SELECT+2, SELECT+3, SELECT+4, SELECT+5, SM+8, DISPLAY+2
, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GETPAT1+7*, RBLK+1~, RBLK+2*, LBLK+1~, LBLK+2*
>> AMHACTN DUPLICAT+4*
AMHC GETPAT+2*, GETPAT1+7!, XIT+4!
AMHDATE GETDATE+1*, GETDATE+4*, GETVISIT+5, XIT+4!, SM+1*, DISP+1~
>> AMHERROR SM+5
AMHHRN HDR+3, HDR+6!, GETHRN+1*, GETHRN+3*, GETHRN+4*, GETHRN+5*, GETHRN+6*
AMHNEWD XIT+4!, SELECT+9*, NEWDATE+4*, DUPLICAT+1, CREATE+1, BACK+6!
>> AMHOKAY SM+4*
AMHPAT GETPAT+3, GETPAT1+1*, GETPAT1+4*, GETPAT1+5, GETPAT1+7*, GETVISIT+1, GETVISIT+4, HDR+3, XIT+4!, GETHRN+2
, GETHRN+3, GETHRN+4, CREATE+7, POVS+2, PROVS+2, DISP+1~, EP1+1
AMHPATV GETVISIT+3!, GETVISIT+10, XIT+4!
AMHPATV( GETVISIT+8*
AMHPROV GETPROV+3*, GETVISIT+7, HDR+4, XIT+4!, DISP+1~
>> AMHPTYPE DUPLICAT+2*
>> AMHQUIT DUPLICAT+4*, SM+2*
AMHR CREATE+5*, CREATE+6, CREATE+7, CREATE+9, CREATE+10, POVS+2, PROVS+2, SM+1, DISPLAY+3*!, DISPLAY+4*!
, DISPLAY+5!
AMHR1 XIT+4!, SELECT+3*!, SELECT+4*!, SELECT+5!, DUPLICAT+2, CREATE+9, POVS+1, PROVS+1
AMHRCNT INIT+3, EXIT+1!, BACK+4
AMHRDEL SELECT+4!, SELECT+5!, DISPLAY+4!, DISPLAY+5!
AMHX GETVISIT+4*, GETVISIT+5, GETVISIT+6, GETVISIT+7, GETVISIT+8, XIT+4!, POVS+1*, POVS+2, PROVS+1*, PROVS+2
>> APCDOVRR DUPLICAT+3*
>> AUPNDOD GETPAT1+6
D0 CREATE+1!, CREATE+2!, POVS+2!, PROVS+2!
DA GETPAT1+2!, GETDATE+2!, GETPROV+1!, NEWDATE+2!, CREATE+1!, CREATE+6*!, CREATE+7*, CREATE+10*, POVS+2!, PROVS+2!
, SM+1*
DD CREATE+1!, POVS+2!, PROVS+2!
>> DDSFILE SM+1*
DIADD GETPAT1+2!, CREATE+1*, CREATE+2!, POVS+2*!, PROVS+2*!
DIC GETPAT1+2*!, GETPROV+1*!, CREATE+1!*, CREATE+2!, POVS+2*!, PROVS+2*!
DIC("A" GETPAT1*, GETPROV+1*
DIC("DR" CREATE+1*, POVS+2*, PROVS+2*
DIC(0 GETPAT1+2*, GETPROV+1*, CREATE+1*, POVS+2*, PROVS+2*
DIE CREATE+2!, CREATE+6*!, CREATE+7*
>> DIK CREATE+10*
DIMSG SM+2!
DINUM CREATE+1!
DIR GETDATE+2!, PAUSE+1!, NEWDATE+2!
DIR("A" GETDATE+2*, PAUSE+1*, NEWDATE+2*
DIR(0 GETDATE+2*, PAUSE+1*, NEWDATE+2*
>> DIRUT PAUSE+1*, NEWDATE+3
DLAYGO GETPAT1+2!, CREATE+1*, CREATE+2!, POVS+2*!, PROVS+2*!
DO CREATE+1!, POVS+2!, PROVS+2!
DR GETPAT1+2!, CREATE+1!, CREATE+2!, CREATE+6*!, CREATE+7*, POVS+2!, PROVS+2!, SM+1*
DR(2 CREATE+6*
>> DUOUT GETDATE+3, PAUSE+1
DUZ GETPAT1+5, GETVISIT+6, CREATE+1
DUZ(2 GETHRN+4
I RBLK+1~, RBLK+2*, LBLK+1~, LBLK+2*
IOF START+5, NEWDATE+1, EP1+5
L RBLK~, RBLK+2, LBLK~, LBLK+2
U GETVISIT+5, HDR+3, HDR+4, GETHRN+3, GETHRN+4, DUPLICAT+2, CREATE+9, POVS+2, PROVS+2, SM+1
V RBLK~, RBLK+2*, RBLK+3, LBLK~, LBLK+2*, LBLK+3
>> VALMBCK BACK+1*
VALMCC EN+1*, EXIT+2!
>> VALMCNT INIT+3*, BACK+4*
VALMHDR EXIT+2!
VALMHDR(1 HDR+1*
VALMHDR(2 HDR+3*
VALMHDR(3 HDR+4*
VALMHDR(4 HDR+5*
VALMHDR(5 HDR+7*
>> VALMSG INIT+1*
VALMY SELECT+2, SELECT+3!, DISPLAY+2, DISPLAY+3!
VALMY(0 SELECT+3, SELECT+8, DISPLAY+3
X HELP+1*, CREATE+1*, CREATE+2!, CREATE+9*, POVS+2*, PROVS+2*
XQORNOD SELECT+3!, DISPLAY+3!
XQORNOD(0 SELECT+1, DISPLAY+1
>> Y GETPAT1+3, GETPAT1+4, GETDATE+4, GETPROV+2, GETPROV+3, NEWDATE+4, CREATE+3, CREATE+5, POVS+3
>> Z RBLK+2*, LBLK+2*
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