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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPRPIYF

Package: Prosthetics

Routine: RMPRPIYF


Information

RMPRPIYF ;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;8/2/02 07:27

Source Information

Source file <RMPRPIYF.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Prosthetics 8 DEL1^RMPRPIFD  $$FIFO^RMPRPIUB  $$UPD^RMPRPIX2  ($$CRE,$$UPALL,$$UPD)^RMPRPIX3  ($$CRE,$$UPD)^RMPRPIX6  ($$CRE,$$UPD)^RMPRPIX7  $$UPCR^RMPRPIXJ  (CO,SET60)^RMPRPIYE  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Prosthetics 1 RMPRPIYE  
Prosthetics Vision 4 Sight II 1 RMPV0RMPRPIYE  

Entry Points

Name Comments DBIA/ICR reference
COST ;
DATE
REQ
LOT
REMA
CC
POST ;POSTS EDITED TRANSACTION TO 660
  • ICR #7540
    • Status: Active
    • Usage: Controlled Subscription
    API ;call API for 660, 661.7, 661.6, 661.63, 661.9
    PCE ;update PCE data
    DEL1 ;ENTRY POINT TO DELETE AN ISSUE FROM STOCK
  • ICR #7540
    • Status: Active
    • Usage: Controlled Subscription
    EXIT ;KILL VARIABLES AND EXIT ROUTINE
  • ICR #7540
    • Status: Active
    • Usage: Controlled Subscription
    UP660 ;update 660
    UPDATE ;update the new entries AND delete old data
    BACK ; Bring back ITEM into current stock.
    UP6 ;now update file 661.6
    UP63 ;update file 661.63
    UP7 ;file #661.7,deduct quantity
    UP9 ;file 661.9
    QUAN ;only update quantity
    ERR

    External References

    Name Field # of Occurrence
    DD^%DT DATE+3
    NOW^%DTC BACK+1, UP9+1
    ^DIR DATE, REQ, LOT, REMA
    DEL1^RMPRPIFD DEL1+2
    $$FIFO^RMPRPIUB UP7+9
    $$UPD^RMPRPIX2 UP660+3
    $$CRE^RMPRPIX3 UPDATE+6, UPDATE+10
    $$UPALL^RMPRPIX3 UPDATE+5
    $$UPD^RMPRPIX3 UP63+5
    $$CRE^RMPRPIX6 UPDATE+8, UPDATE+24
    $$UPD^RMPRPIX6 UPDATE+4, UP6+4
    $$CRE^RMPRPIX7 BACK+23, BACK+24
    $$UPD^RMPRPIX7 BACK+20
    $$UPCR^RMPRPIXJ UP9+8
    CO^RMPRPIYE DATE+1, REQ, LOT, REMA, CC
    SET60^RMPRPIYE POST+5
    KILL^XUSCLEAN EXIT+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"This field is mandatory!!!",!
    • Line Location: DATE+1
    Function Call: WRITE
    • Prompt: !,"This field is mandatory!!!",!
    • Line Location: DATE+2
    Function Call: WRITE
    • Prompt: !,"Jumping not allowed!"
    • Line Location: REQ+1
    Function Call: WRITE
    • Prompt: !?5,"Deleted..."
    • Line Location: REQ+2
    Function Call: WRITE
    • Prompt: !,"Jumping not allowed!"
    • Line Location: LOT+1
    Function Call: WRITE
    • Prompt: !?5,"Deleted..."
    • Line Location: LOT+2
    Function Call: WRITE
    • Prompt: !,"Jumping not allowed!"
    • Line Location: REMA+1
    Function Call: WRITE
    • Prompt: !?5,"Deleted..."
    • Line Location: REMA+2
    Function Call: WRITE
    • Prompt: !,"Posting...."
    • Line Location: POST+1
    Function Call: WRITE
    • Prompt: !!,"*** ERROR in 2319 UPDATE, Please notify your IRM..IEN = ",$G(RMPR60("IEN")),!!
    • Line Location: API+6
    Function Call: WRITE
    • Prompt: !,"*** Error in API RMPRPIX2, ERROR = ",RMPRERR,!,"*** Please inform your IRM !!",!
    • Line Location: UP660+4
    Function Call: WRITE
    • Prompt: !!,"Error encountered while posting to PIP. Patient 10-2319 not deleted!! Please check with your Application Coordinator."
    • Line Location: ERR+0
    Routine Call
    • DIR
    • Line Location:
      • DATE
      • REQ
      • LOT
      • REMA

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(660 - [#660] EXIT+1
    ^RMPR(661.6 - [#661.6] POST+8, POST+9
    ^RMPR(661.63 - [#661.63] POST+10, POST+11, POST+12
    ^RMPR(661.7 - [#661.7] BACK+12, BACK+13, BACK+15, BACK+21
    ^TMP($J EXIT+2!

    Label References

    Name Line Occurrences
    BACK UPDATE+26, QUAN+13
    CC REMA+2
    DATE DATE+1, DATE+2
    EXIT DATE+1, REQ, REMA, PCE+3, ERR
    LOT REQ+2, LOT+1
    PCE POST+23
    QUAN API+4
    REMA LOT+2, REMA+1
    REQ REQ+1
    UP6 QUAN+7
    UP63 QUAN+7
    UP660 POST+23, API+5
    UP7 UPDATE+32, QUAN+8
    UP9 UPDATE+36, UPDATE+46, QUAN+8, QUAN+13
    UPDATE API+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % BACK+7, UP9+5
    DIR DATE!, LOT!, REMA!
    DIR("A" DATE*
    DIR("B" DATE*, REQ*, LOT*, REMA*
    DIR(0 DATE*, REQ*, LOT*, REMA*
    >> DTOUT DATE+1, REQ, REMA
    >> DUOUT REQ, LOT, REMA
    DUZ UPDATE+17
    >> R1("D" DATE, DATE+3*
    >> R1(0 COST+1*, REQ, REQ+2*, REQ+3*, LOT, LOT+2*, LOT+3*, REMA, REMA+2*, REMA+3*
    >> R1(1 DATE, DATE+1, DATE+3*, POST+7
    >> R1BCK(0 POST+23, POST+27, UPDATE+39, UPDATE+40, QUAN+8, QUAN+9, QUAN+10, QUAN+11, QUAN+12, QUAN+13
    , QUAN+14, QUAN+15, QUAN+16, QUAN+17
    >> R3("D" COST+1*
    >> RMACNT COST+1*
    >> RMDA7 BACK+15*, BACK+16
    >> RMDAQUA BACK+16*, BACK+17
    >> RMDAT6 POST+9*
    >> RMDAT63 POST+12*, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18, POST+19, POST+20, POST+21
    >> RMDAVAL BACK+16*, BACK+18
    RMDTTIM POST+2!, POST+13*, POST+25, POST+26, UPDATE+36, BACK+12, BACK+13, BACK+19, BACK+21, BACK+22
    , BACK+24, QUAN+2
    >> RMFLG POST+3*, POST+25*, POST+26*, POST+27*, API+3, API+4
    >> RMHC1 BACK+3*, BACK+12, BACK+13, BACK+21
    >> RMIEN6 POST+7*, POST+8, POST+9, POST+10, UP6+1, UP63+1, QUAN+2
    >> RMIEN63 POST+10*, POST+11, POST+12, UP63+4
    >> RMIT1 BACK+4*, BACK+12, BACK+13, BACK+21
    >> RMLO1 UPDATE+22, BACK+5*, BACK+12, BACK+13, BACK+21
    >> RMNEWHC UPDATE+1*, UPDATE+27, UPDATE+42
    >> RMNEWIT UPDATE+2*, UPDATE+28
    >> RMPERR UP9+8*
    RMPR EXIT+2~
    >> RMPR11I UP660+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8, UPDATE+10, UPDATE+23, UPDATE+24, BACK+20, BACK+23
    , BACK+24, UP6+4, UP63+5
    >> RMPR11I("HCPCS" UPDATE+1, UPDATE+12*, UPDATE+27*, UPDATE+37*, UPDATE+42*, BACK+3, UP7+4, UP9+3, QUAN+4*
    >> RMPR11I("ITEM" UPDATE+2, UPDATE+13*, UPDATE+28*, UPDATE+38*, UPDATE+43*, BACK+4, UP7+5, UP9+4, QUAN+5*
    >> RMPR11I("STATION" BACK+2, UP7+1, UP7+2, UP9+2, QUAN+3*
    >> RMPR5("IEN" UP63+2, UP7+3, QUAN+6*
    >> RMPR6 UPDATE+6, UPDATE+10, UP6+4
    >> RMPR6("IEN" POST+7*, UPDATE+3, UPDATE+7, UPDATE+9*, UP6+1*, UP63+1*
    >> RMPR6("LOCATION" UP63+2*
    >> RMPR6("QUANTITY" UP6+2*
    >> RMPR6("VALUE" UP6+3*
    >> RMPR6("VENDOR" UP63+3*
    RMPR60 POST+2!, UP660+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8, UPDATE+10, UP63+5
    RMPR60("COST" UPDATE+19, UPDATE+30, UPDATE+34, UPDATE+45, UP6+3, QUAN+10, QUAN+12, QUAN+16, QUAN+17
    RMPR60("IEN" POST+3*, API+6, UP660+1*, UPDATE+3*, UPDATE+9
    RMPR60("IEN6" UPDATE+9*
    RMPR60("ITEM" UPDATE+43
    RMPR60("QUANTITY" POST+23, POST+27, UPDATE+18, UPDATE+29, UPDATE+33, UPDATE+44, UP6+2, QUAN+8, QUAN+9, QUAN+11
    , QUAN+13, QUAN+14, QUAN+15
    RMPR60("UNIT" UPDATE+20
    RMPR60("VENDO R IEN" , UPDATE+21, UP63+3
    RMPR63 POST+2!, UPDATE+5, UP63+5
    RMPR63("IEN" POST+12*, UPDATE+5, UPDATE+6, UP63+4*
    >> RMPR7I POST+23, UP7+9
    >> RMPR7I("DATE&TIME" POST+25, POST+26, UP7+6*
    >> RMPR7I("HCPCS" UP7+4*
    >> RMPR7I("ISSUE D QTY" , UP7+7*, D VALUE" , UP7+8*
    >> RMPR7I("ITEM" UP7+5*
    >> RMPR7I("LOCAT ION IEN" , UP7+3*
    >> RMPR7I("QUANTITY" UPDATE+29*, UP7+7, QUAN+9*
    >> RMPR7I("STATI ON IEN" , UP7+2*
    >> RMPR7I("VALUE" UPDATE+30*, UP7+8, QUAN+10*
    >> RMPR7R BACK+20, BACK+23, BACK+24
    >> RMPR7R("DATE&TIME" BACK+7*, BACK+19*, BACK+22*
    >> RMPR7R("HCPCS" BACK+3*
    >> RMPR7R("IEN" BACK+13*, BACK+14, BACK+15
    >> RMPR7R("ITEM" BACK+4*
    >> RMPR7R("LOCATION" BACK+5*
    >> RMPR7R("QUANTITY" BACK+9*, BACK+17*
    >> RMPR7R("SEQUENCE" BACK+8*
    >> RMPR7R("STATION" BACK+2*
    >> RMPR7R("UNIT" BACK+11*
    >> RMPR7R("VALUE" BACK+10*, BACK+18*
    >> RMPR7R("VENDOR" BACK+6*
    >> RMPR9 UP9+8
    >> RMPR9("HCP" UP9+3*
    >> RMPR9("ITE" UP9+4*
    >> RMPR9("QUANTITY" UPDATE+33*, UPDATE+39*, UPDATE+44*, UP9+6, QUAN+11*, QUAN+14*
    >> RMPR9("RDT" UP9+5*
    >> RMPR9("STA" UP9+2*
    >> RMPR9("TCST" UP9+7*
    >> RMPR9("TQTY" UP9+6*
    >> RMPR9("VALUE" UPDATE+34*, UPDATE+40*, UPDATE+45*, UP9+7, QUAN+12*, QUAN+16*
    >> RMPRCOST COST+1
    >> RMPRERR API+6, UP660+2*, UP660+3*, UP660+4, UPDATE+4*, UPDATE+5*, UPDATE+6*, UPDATE+8*, UPDATE+10*, UPDATE+23
    , UPDATE+24*, UPDATE+26, BACK+12*, BACK+14*, BACK+20*, BACK+23*, BACK+24*, UP6+4*, UP63+5*, UP7+9*
    >> RMPRIEN POST+3, EXIT+1, UP660+1
    >> RMPRRET UPDATE+24, QUAN+2
    >> RMPRRET("COMMENT" UPDATE+16*
    >> RMPRRET("DATE&TIME" POST+13*, BACK+7, UP7+6
    >> RMPRRET("HCPCS" POST+15*, UPDATE+12, UPDATE+37, QUAN+4
    >> RMPRRET("ITEM" POST+17*, UPDATE+13, UPDATE+38, QUAN+5
    >> RMPRRET("LOCATION" POST+21*, UPDATE+22*, BACK+5, QUAN+6
    >> RMPRRET("QUANTITY" POST+14*, UPDATE+18*, BACK+9, QUAN+15*
    >> RMPRRET("SEQUENCE" UPDATE+14*
    >> RMPRRET("STATION" POST+16*, QUAN+3
    >> RMPRRET("TRAN TYPE" , UPDATE+15*
    >> RMPRRET("UNIT" POST+19*, UPDATE+20*, BACK+11
    >> RMPRRET("USER" UPDATE+17*
    >> RMPRRET("VALUE" POST+18*, UPDATE+19*, BACK+10, QUAN+17*
    >> RMPRRET("VENDOR" POST+20*, UPDATE+21*, BACK+6
    RMPRSITE EXIT+2~
    >> RMST1 BACK+2*, BACK+12, BACK+13, BACK+21
    U COST+1, DATE, DATE+1, DATE+3, REQ, REQ+2, REQ+3, LOT, LOT+2, LOT+3
    , REMA, REMA+2, REMA+3, POST+7, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18
    , POST+19, POST+20, POST+21, POST+23, POST+27, UPDATE+39, UPDATE+40, BACK+16, QUAN+8, QUAN+9
    , QUAN+10, QUAN+11, QUAN+12, QUAN+13, QUAN+14, QUAN+15, QUAN+16, QUAN+17
    >> X DATE+1, DATE+2, REQ+1, REQ+2, REQ+3, LOT+1, LOT+2, LOT+3, REMA+1, REMA+2
    , REMA+3
    >> Y DATE+3*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All