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

Package: Patient Care Component

Routine: APCDSFR


Information

APCDSFR ; IHS/CMI/LAB - REVIEW SF BY DATE ;

Source Information

Source file <APCDSFR.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
VA Fileman 6 ^DDS  ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
IHS VA Utilities 4 $$VAL^XBDIQ1  ^XBFMK  VIEWR^XBLM  EN^XBVK  
Registration 4 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  EN^VALM2  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  DISP^XQORM1  
Patient Care Component 2 INAC^APCDEA  EP^APCDLES1  
IHS Patient 1 (,$$HRN,KILL)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP - called from protocol
HELP ; -- help code
HS ;EP called from protocol to generate hs
ADDSF(APCDPAT) ;EP called from protocol to add a new form
EXPND ; -- expand code
PAUSE ;EP
DONE ;
HDR ; -- header code
ALLOW(R,P,Q) ;
CTR(X,Y) ;EP - Center X in a field Y wide.
INIT ; -- init variables and list array
EOJ ;
CHECK ; check record for completeness
GETDATE ;EP - GET DATE OF ENCOUNTER
EN ;
D ;date range
GETTYPE ;
GETPAT ;
START ;
ADD ;EP
EDIT ;EP - called from protocol
PROV ;
GATHER ;
ADDDS ;screenman call
EXIT ; -- exit code
DEL ;EP - called from protocol
UPI(P,D) ;

External References

Name Field # of Occurrence
INAC^APCDEA GETPAT+8
EP^APCDLES1 DISP+8
^AUPNPAT HS+2, ADD+5
$$HRN^AUPNPAT GATHER+8
KILL^AUPNPAT DONE+3, EOJ+7
^DDS ADDDS+2
^DIC GETTYPE+7, GETPAT+4, PROV+3
FILE^DICN GETDATE+7
YN^DICN GETPAT+6
^DIE EDIT+7
^DIK DEL+12, CHECK+16
^DIR D+3, D+5, DEL+9, GETDATE+2, CHECK+17, PAUSE+1
EN^VALM EN+6
TERM^VALM0 EN+4, EXIT+2
CLEAR^VALM1 EN+5, EN+7, ADD+8
FULL^VALM1 D+9, EDIT+6, DISP+6, DEL+8, HS+1, ADD+1, ADDSF+1
EN^VALM2 EDIT+1, DISP+1, DEL+3
$$VAL^XBDIQ1 GATHER+9, GATHER+10, CHECK+2, CHECK+3
^XBFMK DONE+2, PROV+1
VIEWR^XBLM HS+7
EN^XBVK DONE+1, HS+4, HS+8, EXIT+8, EOJ+1
$$FMADD^XLFDT GATHER+3
$$FMTE^XLFDT HDR+1
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CTR("Review/Update Suicide Reporting Forms by Date",80)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: D+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !,"Not a valid SUICIDE RECORD."
  • Line Location: EDIT+5
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 SUICIDE RECORD."
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to delete a Suicide Form.",!,"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 SUICIDE RECORD."
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !!,"No patient entered..."
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROV+3
Function Call: WRITE
  • Prompt: !,"No Provider Selected."
  • Line Location: PROV+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETDATE+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Error creating Suicide form!! Deleting form.",!
  • Line Location: GETDATE+8
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: ADDDS+3
Function Call: WRITE
  • Prompt: !,$P(^DD(9002011.65,APCDF,0),U)," is a required data element."
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,$P(^DD(9002011.65,APCDF,0),U)," is a required data element."
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,"INTERVENTION is a required data element."
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !!,"You must enter a METHOD."
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !!,"You must enter a value for SUBSTANCE Use. None and Unknown are valid values."
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !!,"You must enter a CONTRIBUTING FACTOR. Unknown is a valid value."
  • Line Location: CHECK+15
Function Call: WRITE
  • Prompt: !!,"One or more required data elements are missing.",!!
  • Line Location: CHECK+16
Function Call: WRITE
  • Prompt: !,"Deleting form..."
  • Line Location: CHECK+16
Routine Call
  • VALM
  • Line Location:
    • EN+6
Routine Call
  • DIE
  • Line Location:
    • EDIT+7
Routine Call
  • DDS
  • Line Location:
    • ADDDS+2
Routine Call
  • DIC
  • Line Location:
    • GETTYPE+7
    • GETPAT+4
    • PROV+3
Routine Call
  • DIR
  • Line Location:
    • D+3
    • D+5
    • DEL+9
    • GETDATE+2
    • CHECK+17
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^AMHPSUIC - [#9002011.65] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPSUIC - [#9002011.65] GATHER+7, EDIT+5, EDIT+8, DISP+5, DEL+7, CHECK+5, CHECK+6, CHECK+7!, CHECK+10, CHECK+12
, CHECK+13, ALLOW+2
^AMHPSUIC("AD" GATHER+4, GATHER+5
^AMHSITE - [#9002013] ALLOW+1
^APCCCTRL - [#9001000] GETTYPE+3
^APCDSITE - [#9001001.2] GETPAT+3
^APCHSCTL - [#9001015] GETTYPE+4
^AUTTLOC - [#9999999.06] UPI+2
^AUTTSITE(1 UPI+2*, UPI+4
^DD(9002011.65 CHECK+2, CHECK+3
^DISV( GETTYPE+4
^DPT - [#2] GATHER+7, GATHER+8, HS+6
^VA(200 - [#200] PROV+3
^XUSEC("APCDZ SUICIDE FORM DELETE" DEL+2

Label References

Name Line Occurrences
$$ALLOW GATHER+6
$$CTR START+2
$$UPI GETDATE+5
ADDDS EDIT+9, GETDATE+10, CHECK+16
ADDSF ADD+7
CHECK ADDDS+4
D D+7
DONE START+3
EN D+9
EXIT D+9, EDIT+2, EDIT+3, EDIT+5, EDIT+10, DISP+2, DISP+3, DISP+5, DISP+9, DEL+2
, DEL+4, DEL+5, DEL+7, DEL+10, DEL+11, DEL+13, HS+9, ADD+4, ADD+9, PROV+4
, GETDATE+3, GETDATE+8, GETDATE+11, ADDDS+3, CHECK+16
GATHER EN+2, INIT+1, EXIT+4
GETPAT ADD+3
GETTYPE HS+3
HDR EXIT+6
PAUSE EDIT+5, DISP+5, DEL+2, DEL+7, GETDATE+8, ADDDS+3, CHECK+16
PROV GETDATE+3

Naked Globals

Name Field # of Occurrence
^("^APCHSCTL(" GETTYPE+4
^(0 GETTYPE+3, GETTYPE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HS+6*, HS+7, HS+8!, GETPAT+6*, EOJ+4!
AMCHDAYS HS+8!
AMCHDOB HS+8!
AMHIIESF EXIT+1!
>> AMHIISFE ADDDS+1*
>> AMHPAT ADDDS+1*
>> AMHSF ADDDS+1*
APCDBD D+1!, D+3*, D+7, GATHER+3, HDR+1
APCDC CHECK+1*, CHECK+2*, CHECK+3*, CHECK+9*, CHECK+11*, CHECK+15*, CHECK+16, EXIT+1!
>> APCDDATE GETDATE+2*, GETDATE+4*, GETDATE+5
>> APCDDOB GATHER+7*, GATHER+8
>> APCDDP PROV+2*
APCDED D+1!, D+5*, D+7, GATHER+4, HDR+1
APCDF CHECK+2*, CHECK+3*, EXIT+1!
APCDLINE GATHER+2*, GATHER+8*, GATHER+11, INIT+2, EXIT+1!, EXIT+5
APCDPAT EDIT+8*, HS+7~, ADD+2*, ADD+4, ADD+5, ADD+6, ADD+7, GETPAT+2*, GETPAT+7*, GETPAT+8*
, GETPAT+9*, ADDSF~, GETDATE+5, ADDDS+1, EXIT+1!
>> APCDPROV PROV+5*, GETDATE+5
>> APCDQUIT D+3*, D+5*, ADDDS+3*
APCDRDEL EDIT+5!, DISP+5!, DEL+7!
>> APCDSD GATHER+3*, GATHER+4*, GATHER+5, GATHER+8
APCDSF EDIT+4*, EDIT+5!, EDIT+7, EDIT+8, DISP+4*, DISP+5!, DISP+8, DEL+6*, DEL+7!, DEL+12
, GETDATE+9*, ADDDS+1, ADDDS+2, CHECK+2, CHECK+3, CHECK+5, CHECK+6, CHECK+7, CHECK+10, CHECK+12
, CHECK+13, CHECK+16, EXIT+1!
APCDSFR EN+1!, GATHER+1!
APCDSFR( GATHER+11*
APCDSFR("IDX" GATHER+11*, EDIT+4, DISP+4, DEL+6
APCDX GATHER+5*, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+11, EXIT+1!
>> APCHSPAT HS+5*, HS+6
>> APCHSTYP HS+4, GETTYPE+1*, GETTYPE+9*
>> AUPNLK("INAC" GETPAT+3*
D UPI~, UPI+4
D0 GETDATE+5!, GETDATE+7!
DA EDIT+7*, DEL+9!, DEL+12*, PROV+3!, GETDATE+5!, ADDDS+2*, CHECK+16*, CHECK+17!, EOJ+4!
DD GETDATE+5!
DDS EOJ+4!
DDSFILE ADDDS+2*, EOJ+3!
DFN GATHER+7*, GATHER+8, EDIT+8*, HS+2, HS+5, HS+7~, ADD+6*, EXIT+1!, EOJ+2!
DIADD PROV+3!, GETDATE+5*, GETDATE+7!
DIC GETTYPE+2!*, GETTYPE+7!, GETPAT+4*!, PROV+3*!, GETDATE+5!*, GETDATE+7!, EOJ+4!
DIC("A" GETTYPE+2*, PROV+3*
DIC("B" GETTYPE+6*, PROV+3*
DIC("DR" GETDATE+5*, GETDATE+6*
DIC(0 GETTYPE+2*, GETPAT+4*, PROV+3*, GETDATE+5*
DIE EDIT+7*, GETDATE+7!
>> DIK DEL+12*, CHECK+16*
DIMSG ADDDS+3!
DINUM GETDATE+5!
DIPGM EOJ+3!
DIR D+2!, D+4!, DEL+9!, GETDATE+2!, CHECK+17!, PAUSE+1!
DIR("A" D+2*, D+4*, DEL+9*, GETDATE+2*, CHECK+17*, PAUSE+1*
DIR("B" DEL+9*, CHECK+17*
DIR(0 D+2*, D+4*, DEL+9*, GETDATE+2*, CHECK+17*, PAUSE+1*
>> DIRUT DEL+10, GETDATE+2*, GETDATE+3, CHECK+18, PAUSE+1*
DLAYGO PROV+3!, GETDATE+5*, GETDATE+7!
DO GETDATE+5!
DR EDIT+7*, PROV+3!, GETDATE+5!, GETDATE+7!, ADDDS+2*, EOJ+4!
DT EDIT+7, GETDATE+2, GETDATE+5
>> DUOUT GETDATE+2, PAUSE+1
DUZ EDIT+7, DEL+2, GETTYPE+4, PROV+3, GETDATE+5, ALLOW+1, ALLOW+2
DUZ(2 GATHER+8, GETTYPE+3, GETPAT+3, ALLOW+1
>> G CHECK+5*, CHECK+6*, CHECK+9, CHECK+10*, CHECK+11, CHECK+12*, CHECK+13*, CHECK+15
I EXIT+7!
IOF START+1, ADDSF+2
IOM CTR+1
P UPI~, UPI+1, UPI+4, ALLOW~
Q ALLOW~
R EDIT+3*!, EDIT+4, EDIT+5!, DISP+3*!, DISP+4, DISP+5!, DEL+5*!, DEL+6, DEL+7!, ALLOW~
, ALLOW+2
R1 EDIT+5!, DISP+5!, DEL+7!
U GATHER+7, GATHER+8, EDIT+8, HS+6, GETTYPE+3, GETTYPE+4, GETPAT+3, PROV+3, CHECK+2, CHECK+3
, CHECK+6, CHECK+7, CHECK+10, CHECK+13, UPI+2, UPI+4, ALLOW+2
>> VALMBCK EXIT+3*
VALMCNT EN+3~, INIT+2*, EXIT+5*
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
>> VALMHDR(3 HDR+3*
VALMY EDIT+2, EDIT+3!, DISP+2, DISP+3!, DEL+4, DEL+5!
VALMY(0 EDIT+3, DISP+3, DEL+5
X GATHER+8*, GATHER+9*, GATHER+10*, GATHER+11, CTR~, CTR+1, HDR+2*, HDR+3*, HELP+1*, GETTYPE+3*
, GETTYPE+4*, GETTYPE+5*, GETTYPE+6, GETPAT+8, GETDATE+5*, GETDATE+7!, CHECK+5*, CHECK+6, CHECK+7, CHECK+12*
, CHECK+13, EXIT+7!, EOJ+4!
XQORNOD EDIT+3!, DISP+3!, DEL+5!
XQORNOD(0 EDIT+1, DISP+1, DEL+3
Y D+3, D+5, CTR~, CTR+1, DEL+11, HS+2*, GETTYPE+4*, GETTYPE+8, GETTYPE+9, ADD+5*
, GETPAT+5, GETPAT+7, GETPAT+9, PROV+4, PROV+5, GETDATE+4, GETDATE+8, GETDATE+9, CHECK+16, CHECK+18*
, EXIT+7!, EOJ+3!, EOJ+4!
Z CHECK+5*, CHECK+12*, EXIT+7!
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 |  All